Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle

De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : lundi 13 novembre 2000 18:42
Objet : applescript_fr Digest #53


        Liste AppleScript francophone Digest #53

 1) Finder scripting...
    by Dominique Delefortrie <domi59@xxxxxxx.fr>
 2) Re: Label name
    by Dominique Delefortrie <domi59@xxxxxxx.fr>

De : Dominique Delefortrie <domi59@xxxxxxx.fr>
Date : Mon, 13 Nov 2000 07:50:14 +0100
Objet : [AS] Finder scripting...

J'ai un petit problème, assez agaçant : un script sous OSA Menu, me remet
la vue de la fenêtre aux réglages par défaut :

=====
tell application "Finder"
	set view of front window to kind
	set zoomed of front window to true -- +marche pas
	set has custom view settings of front window to false
end tell

(*tell application "OSA Menu" to Do Script ¬
	alias "Sys: Le Système':Scripts:Finder Scripts:Zoom\\Z+O"*)
=====

le "set zoomed" ne marche pas !
en fait, on dirait que tout se passe trop vite (un comble avec AS) !

j'ai essayé ce qui est en commentaires (un script d'une ligne qui fait la
même chose) , mais il ne se passe rien (à part un long délai...)

Bien sur, tout seul ça marche, mais ça fait 2 commandes au lieu d'une...

domi  (-8
mailto:domi59@xxxxxxx.fr





De : Dominique Delefortrie <domi59@xxxxxxx.fr>
Date : Mon, 13 Nov 2000 07:50:14 +0100
Objet : [AS] Re: Label name

Jean-Marie Hoornaert ecrivait / wrote:

>
> un script qui donne simplement la liste des noms des labels
>
> tell application "Finder"
>     set nomLabel to {}
>     repeat with i from 1 to 7
>         set nomLabel to ¬
>            (nomLabel & ((name of label i of Finder preferences) as list))
>     end repeat
> end tell

Joli !

(-8

tout juste adapté et complété :

=====
tell application "Finder"
	set lesLabel to {}
	repeat with i from 1 to 7
		set lesLabel to ¬
			(lesLabel & ((name of label i of Finder preferences) as list))
	end repeat
	choose from list lesLabel with prompt "Choisir une famille :"
	set unLabel to the result as text
	set numLabel to index of label unLabel of Finder preferences
	set label index of selection to numLabel
end tell
====

Il n' y a pas moins lourd que mes 3 "set" finaux ?
Je suis obligé de contourner de cette façon, car le Finder n'accepte pas la
commande directe :

set label name of selection to "lafamille"

voilà ...

domi  (-8
mailto:domi59@xxxxxxx.fr