Archives actuelles avec moteur de recherche
N'hésitez pas à vous inscrire à la liste : http://listes.patpro.net/mailman/listinfo/applescript_fr
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 17 décembre 2001 06:00
Objet : applescript_fr Digest #371
Liste AppleScript francophone Digest #371
1) Changer Port Imprmante avec Ethernet ds Appletalk
by sartorg <sartorg@xxxxxxx.ch>
2) N.A.O.D et AppleScript
by SeguS <wirinum@xxxxxxx.fr>
3) Re: Changer Port Imprmante avec Ethernet ds Appletalk
by Daniel Varlet <varlet@xxxxxxx.ch>
4) Re: Display progress
by Daniel Varlet <varlet@xxxxxxx.ch>
5) Re: Display progress
by Georges Schell <gs@xxxxxxx.com>
6) Re: Display progress
by patpro <patpro@xxxxxxx.net>
7) Re: Display progress
by Georges Schell <gs@xxxxxxx.com>
De : sartorg <sartorg@xxxxxxx.ch> Date : Sun, 16 Dec 2001 11:14:13 +0100 Objet : [AS] Changer Port Imprmante avec Ethernet ds Appletalk > Damned !!! non je ne sais pas. > En plus c'est une fenêtre modale. ( c.-à-d. blocante). Peuvent être chiant > chez Apple parfois... > Il y a peut-être moyen avec des utilitaires extérieurs (Okey dokey, prefab > player). Note que je reste très évasif ;-))) > > Bon je crois qu'il faut passer par le scriptage de AppleTalk comme je l'ai dit > en me rattrapant aux branches dans mon 2e message. > > Je ne connais pas bien (doux euphémisme), et te conseille de jetter un coup > d'oeil dans l'AppleScript Guidebook dans le centre d'aide qui est une aide AS > beaucoup plus pointue. > Si tu n'as pas AppleScript Guidebook dans l'aide, regarde sur tes CD > d'install: > > Compléments CD > AppleScript CD Extras > > ou télécharge-le : > > <http://www.apple.com/applescript/help_mods.html> > > Si problèmes et que personne prend le relais, je m'y mettrais pour te filer un > coup de main. > > grosso modo ça revient à scripter "Pilotage réglages réseau".. il me semble... > ®©™ C'est bon ! grâce à Daniel j'ai su où aller chercher( Applescript GuideBook) !!!!! (ça rend légèrement euphorique de trouver après tant de vaines recherches...) Encore Merci ! Georges ci-joint le script [SCRIPT] set the transaction_ID to {} try tell application "Macintosh HD:Dossier Système:Compléments de pilotage:Pilotage réglages réseau" -- open the Networking Database open database -- query for the active configuration set the current_config to every AppleTalk configuration ¬ whose active is true --returns a one-item list, so extract the reference set the current_config to item 1 of the current_config -- get the name of configuration set the current_connection to the connecting via of the current_config set the transaction_ID to begin transaction -- il est necéssaire pour agir sur Appletalk d'ouvrir une transaction qui alors prend un numéro. if current_connection is "Port imprimante" then set the connecting via of the current_config to "Ethernet" else if current_connection is "Ethernet" then set the connecting via of the current_config to "Port imprimante" end if end if end transaction --close the Network Database close database end tell on error try tell application "Macintosh HD:Dossier Système:Compléments de pilotage:Pilotage réglages réseau" if the the transaction_ID is not "" then abort transaction close database end tell on error end try end try [SCRIPT]
De : SeguS <wirinum@xxxxxxx.fr> Date : Sun, 16 Dec 2001 15:18:40 +0100 Objet : [AS] N.A.O.D et AppleScript bonjour les AS a tout hasard, existe t-il une OSAX qui permette de *coder*jouer des notes de musique a la façon d'HyperCard (systeme N.A.O.D : note/ alteration/ octave/ durée) ou on ne peut jouer que des ressource "snd " ? [Ex HyperCard] play "Flute" tempo 500 "c d e f g rw b3h rh c4q" j'y crois pas trop mais qui sait ? Gwénael peut-être ? merci -- Serge Ségu wirinum@xxxxxxx.fr PGPkey : 0x30D196E9
De : Daniel Varlet <varlet@xxxxxxx.ch> Date : Sun, 16 Dec 2001 14:59:58 +0100 Objet : [AS] Re: Changer Port Imprmante avec Ethernet ds Appletalk À 11:14 +0100 le 16.12.2001, sartorg écrivait au sujet de "[AS] Changer Port Imprmante avec Ethernet ds Appletalk" : [...] > C'est bon ! grâce à Daniel j'ai su où aller chercher( Applescript GuideBook) !!!!! (ça rend légèrement euphorique de trouver après tant de vaines recherches...) > Encore Merci ! > Georges > ci-joint le script [...] Ben voilà :-))) Peut pas m'empêcher de dire que ça fait plaisir que tu t'en sois sortit tout seul. Il te fallait juste quelques exemples de l'Applescript GuideBook, histoire de comprendre le mécanisme. Content. A+ -- Daniel
De : Daniel Varlet <varlet@xxxxxxx.ch> Date : Sun, 16 Dec 2001 17:01:29 +0100 Objet : [AS] Re: Display progress À 16:57 +0100 le 15.12.2001, Georges Schell écrivait au sujet de "[AS] Display progress" : > Quelle bonne âme me donnera la syntaxe de Display progress > > (je sais : > display progress : Create, Update and Destroy progress windows > display progress [ Progress Window Rec] -- The progress window - leave > blank if creating - or optionally just give the title of the window again. > [subtitled string] -- Usually the name of what you are doing the > title to. When initially created, if this is present, the window is movable > modal, else just modal. > etc.......) > > Mais comment écrit-on l'instruction ? Par exemple pour ce script tout bête : C'est de l'Akua 1.4.3 (tu ne l'avais pas précisé) Bon après quelques recherches/tentatives, j'en ai eu marre. C'est tellement mal documenté. Et il me fallait redémarrer à chaque fois pour effacer ces sal***ries de fenêtres. quelques pistes cependant car tu es téméraire ;-) : Il semble qu'il faille rajouter un titre à la fenêtre : display progress "Le titre" maximum max value k Attention 'max value' est un mot clef d'une quelconque commande... Dans le dossier Akua 1.4.3 il y a un script qui emploit display progress : New & Updated Scripts Show All Pictures Et qui n'a pas l'air de marcher chez moi. (pas trop essayé quand même) bon courage :-( > [script] > set MonFolder to choose folder > set MaListe to MT List Files MonFolder return as file specification with sub > folders > set max to MT Count Files MonFolder as integer > set k to 0 as integer > repeat with i in Maliste > set k to k+1 > display progress maximum max value k ?????????? <-- C'est ici ???? > end repeat > [/script] Juste pour dire que dans ton script, le display progress n'a pas un intérêt fulgurant, car la liste des fichiers est déjà crée. Il me semble que tu as oublié un sub folders avec MT Count Files. Le as integer retourne une erreur car il est pris avec Mon folder... Tu pouvais simplement faire count MaList. Mais je suppose que c'est un exemple... et que dans la boucle tu vas travailler avec chaque fichier. Pour être un peu plus positif : J'emploi Dialogue Director pour les "thermomètres" évidemment la routine est un peu plus longue. Mais elle est beaucoup moins moche. Et surtout complètement paramétrable (c'est pour ça que je la présente dissociée : pour pouvoir la modifier aisémment) [SCRIPT] progressDlg() on progressDlg() set maxVal to 100 set c1 to {¬ {class:push button, bounds:{228, 32, 287, 52}, name:"Stop"}} set i200 to count c1 set c2 to {¬ {class:gauge, bounds:{8, 36, 214, 48}, value:0, max value:100}} set i300 to (count c2) + i200 set c3 to {¬ {class:static text, bounds:{6, 4, 213, 20}, contents:"Vérification des numéros : "}, ¬ {class:static text, bounds:{6, 22, 206, 34}, font:5, contents:""}} -- items remarquables set i201 to i200 + 1 -- gauge set i301 to i300 + 1 --static text -- texte gras set i302 to i300 + 2 -- static text-- texte maigre set rdlg to {size:{294, 56} ¬ , style:movable dialog ¬ , name:("Vérification") ¬ , contents:c1 & c2 & c3} dd install with fonts [null, null, null, null, {name:"Geneva", size:9}] with grayscale set dlg1 to dd make dialog rdlg try tell dlg1 repeat with x from 1 to maxVal set ui to dd interact with user for max ticks 3 if ui = 1 then exit repeat dd set value of item i201 to x dd set contents of item i302 to "" & x & "/" & maxVal end repeat dd set contents of item i302 to "terminée" dd delete end tell dd uninstall on error erT number erN try dd uninstall end try error erT number erN end try end progressDlg [/SCRIPT] > Excusez-moi encore de vous déranger un samedi ! ;-)))) Tu m'étonnes ;-)))) -- Daniel
De : Georges Schell <gs@xxxxxxx.com> Date : Sun, 16 Dec 2001 23:01:43 +0100 Objet : [AS] Re: Display progress Daniel Varlet <varlet@xxxxxxx.ch> wrote : > Bon après quelques recherches/tentatives, j'en ai eu marre. C'est tellement > mal documenté. Et il me fallait redémarrer à chaque fois pour effacer ces > sal***ries de fenêtres. > quelques pistes cependant car tu es téméraire ;-) : J'ai repris les essais et, moi non plus, je me suis simplement retrouvé avec ces sal***ries de fenêtres (j'ai dit "bizarre", comme c'est étrange !) Je suis rassuré que tu aies eu le même pb ! > Dans le dossier Akua 1.4.3 il y a un script qui emploit display progress : > New & Updated Scripts > Show All Pictures > Et qui n'a pas l'air de marcher chez moi. (pas trop essayé quand même) > bon courage :-( C'est pareil pour moi. Par contre, ton script est super, avec la bande bleue ; je l'adopte ! (avec ton accord...) ; en tout cas, je l'ai utilisé pour les 100 derniers fichiers que j'avais à convertir du pc vers le mac ; c'était bien agréable. C'est sûr que si j'avais pu avoir une réponse + tôt ;;;;-))))) Les 2000 fichiers sont traités et c'est ma collaboratrice juridique qui va être contente lundi. >> Excusez-moi encore de vous déranger un samedi ! ;-)))) > Tu m'étonnes ;-)))) Il a fallu attendre le dimanche, avec le stress d'une alim de mon titanium (tu sais, celui que je dois t'envoyer...), une alim, disais-je qui ne marchait plus ; heureusement que l'Apple-man est un ami qui est venu me livrer ce matin avec sa femme (et les 3 petits). Bon, ce week end, j'ai énormément progressé, grâce à toi, mais aussi à Pat. En plus, j'ai regardé le manuel de Smile et j'ai découvert un tas de fonctionnalités que j'ignorais ! Donc, merci, merci, merci, bonne fin de w-e, et bonne semaine à tutti ! Georges PS Si qq'un utilise Display Progress d'Akua, ce serait intéressant de le savoir ! (pour le sport)
De : patpro <patpro@xxxxxxx.net> Date : Sun, 16 Dec 2001 23:43:09 +0100 Objet : [AS] Re: Display progress le 16/12/01 23:01, Georges Schell à gs@xxxxxxx.com a écrit : > PS Si qq'un utilise Display Progress d'Akua, ce serait intéressant de le > savoir ! (pour le sport) j'utilise pas, mais j'ai reussit a faire fonctionner un exemple livré avec la 1.3.1 sur la 1.3.7 en le modifiant juste un chouilla. Il est chiantissime, mais c'est qu'un exemple apres tout : [script] property gasLocation : {40, 60} property gasLoc2 : {60, 200} on run set max to 222 set progW to display progress "Counting Progress" subtitled ¬ "Yo yo yo, here we go…" maximum max located at gasLocation set newLabel to "" set altCol to false repeat with i from 1 to max if (i mod 7) = 0 then if (newLabel is "Love is …") then set newLabel to "… the seventh wave." set altCol to true else set newLabel to "Love is …" set altCol to false end if end if if (canceled of (display progress progW value i labeled newLabel ¬ alternate color altCol)) then set cancer to display dialog "Are you sure you want to quit this awesome demo?" buttons {"Continue", "Quit"} default button 2 if (the button returned of cancer is "Quit") then beep display progress progW with disposal return 0 end if end if end repeat display progress progW subtitled "Counting again" labeled "Down" repeat with i from max to 1 by -1 display progress progW value i end repeat display progress progW labeled "… and back" set anotherProgress to display progress "Parallel" labeled "Where's my MP?" maximum max * 2 located at gasLoc2 repeat with i from 1 to max * 2 display progress progW value i display progress anotherProgress value i end repeat -- Save window location in property set gasLocation to screen location of (display progress progW) set gasLoc2 to screen location of (display progress anotherProgress) -- Close it! display progress progW with disposal display progress anotherProgress with disposal end run [/script] patpro -- () Campagne du ruban ascii... /\ Contre les mails en html, les vcards et les blaireaux
De : Georges Schell <gs@xxxxxxx.com> Date : Mon, 17 Dec 2001 00:10:21 +0100 Objet : [AS] Re: Display progress patpro <patpro@xxxxxxx.net> wrote : > Objet : [AS] Re: Display progress > > j'utilise pas, mais j'ai reussit a faire fonctionner un exemple livré avec > la 1.3.1 sur la 1.3.7 en le modifiant juste un chouilla. J'ai compris, ça ne marche pas en lançant les script à partir de l'éditeur, du moins à partir de Smile, car sinon, Smile quitte inopinément et on se retrouve avec ces sal***ries de fenêtres (comme l'a écrit poliment Daniel Varnet, lui qui est, habituellement si mesuré !) Par contre, Sauvegardé en appli, ça marche ! Bravo Pat ! Allez, bien le bonsoir, Georges