Portál AbcLinuxu, 3. května 2025 05:18
convert -delay 100 *.png vysledek.gifA ked chces mat fakt peknu grafiku, tak si namiesto xtermu spustis konsole.
#!/usr/bin/wish wm title . Animace proc animate {} { global zdroje global cil global prodleva eval exec /usr/bin/convert -delay $prodleva [split $zdroje " "] $cil exit 0 } label .l1 -text "Zdrojove soubory:" label .l2 -text "Cilovy soubor:" label .l3 -text "Prodleva:" entry .e1 -textvariable zdroje entry .e2 -textvariable cil entry .e3 -textvariable prodleva button .buttonek -text "Animuj" -command animate grid .l1 -row 0 -column 0 -sticky w grid .l2 -row 1 -column 0 -sticky w grid .l3 -row 2 -column 0 -sticky w grid .e1 -row 0 -column 1 -sticky w grid .e2 -row 1 -column 1 -sticky w grid .e3 -row 2 -column 1 -sticky w grid .buttonek -row 3 -column 1Znalcům tcl/tk se omlouvám za takové triviální zpracování, ale nemám čas věnovat se dalšímu čtení referenční příručky a seriálů. Vím, že bych měl odchytit případný chybný návratový kód z convert, ale mám teď jinou práci
klikací "softwarovou klávesnici"To je jistě zajímavá fíčura, zde je tedy patch
12a13,16 > proc virtkeyb {} { > eval exec /usr/bin/xvkbd & > } > 22a27,28 > button .but_klav -text "Virt. klav." -command virtkeyb > 29c35,36 < grid .buttonek -row 3 -column 1 --- > grid .buttonek -row 3 -column 2 > grid .but_klav -row 3 -column 1Jinak to samozřejmě bylo jen bezobsažné samoúčelné rýpnutí, je nutno přiznat, že ten program má velký potenciál, např. může být velmi snadno předělán třeba na program na kopírování souborů (že by snad zárodek jxpcmd-tcltk?)
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.