Agrandissement de fenêtres vers le bas en ASS

[Anonyme]

Salut,
Je suis en train de programmer une application en applescript avec Xcode et je voudrais pouvoir agrandir ou réduire une fenêtre avec du code. Un peu le même genre que dans OnyX ou dans TinkerTool quand on clique sur un item de la toolbar...
J'ai essayé ça, mais ça ne marche pas correctement : la fenêtre s'agrandit vers le haut, or j'aimerais qu'elle s'agrandisse vers le bas.

repeat 20 times
	set taille to size of window "main"
	set largeur to item 1 of taille
	set hauteur to item 2 of taille
	set size of window "main" to {largeur, hauteur + 1}
end repeat

J'ai donc essayé de la faire descendre en même temps :

repeat 20 times
	set taille to size of window "main"
	set largeur to item 1 of taille
	set hauteur to item 2 of taille
	set position_fenetre to position of window "main"
	set x to item 1 of position_fenetre
	set y to item 2 of position_fenetre
	set position of window "main" to {x, y - 1}
	set size of window "main" to {largeur, hauteur + 1}
end repeat

La fenêtre s'agrandit comme il faut vers le bas mais se met à trembler...

Quelqu'un pourrait-il m'aider ?????

 

[ceslinstinct]

Salut,
Je suis en train de programmer une application en applescript avec Xcode et je voudrais pouvoir agrandir ou réduire une fenêtre avec du code. Un peu le même genre que dans OnyX ou dans TinkerTool quand on clique sur un item de la toolbar...
J'ai essayé ça, mais ça ne marche pas correctement : la fenêtre s'agrandit vers le haut, or j'aimerais qu'elle s'agrandisse vers le bas.

repeat 20 times
	set taille to size of window "main"
	set largeur to item 1 of taille
	set hauteur to item 2 of taille
	set size of window "main" to {largeur, hauteur + 1}
end repeat

J'ai donc essayé de la faire descendre en même temps :

repeat 20 times
	set taille to size of window "main"
	set largeur to item 1 of taille
	set hauteur to item 2 of taille
	set position_fenetre to position of window "main"
	set x to item 1 of position_fenetre
	set y to item 2 of position_fenetre
	set position of window "main" to {x, y - 1}
	set size of window "main" to {largeur, hauteur + 1}
end repeat

La fenêtre s'agrandit comme il faut vers le bas mais se met à trembler...

Quelqu'un pourrait-il m'aider ?????

Bonjour

En AS, j'utilise plutôt ce genre de code.

--repeat 20 times
set taille to bounds of window 1 -- "main"
set gH to item 1 of taille
set hG to item 2 of taille
set bD to item 3 of taille
set dH to item 4 of taille

--set bounds of window 1 to {gH, hG, bD, (dH + 1)} -- Ligne par ligne avec repeat
set bounds of window 1 to {gH, hG, bD, (dH + 20)} -- 20 lignes à la fois sans repeat
delay 5
set bounds of window 1 to {gH, hG, bD, (dH - 20)} -- Retour à la taille originale sans repeat
--end repeat

@+

 

[Anonyme]

Merci beaucoup pour cette réponse claire et rapide.