D 2020-01-13T08:09:05.386
J icomment Hi,\r\nusing\smac_style\sbranch\sI\shad\sto\suse\sa\slot\sthe\sfollowing\ssyntax:\r\nafter\s1\s[list\sdoWhateverYouWant]\r\n\r\nfor\sstuff\sto\sbe\ssmooth.\r\n\r\nalso\sI\shad\sto\sadd\sa\sdelay\smechanism\sfor\screation/destroy\sof\stopLevels\sfor\snot\smy\sapp\sto\scrash.\r\nsomething\slike\sthat:\r\nproc\snsWin_sleep\s{ms\snamespace}\s{\r\n\s\s\s\snamespace\supvar\s$namespace\snsWin_sleepV\slocalnsWin_sleepV\r\n\r\n\s\s\s\safter\s$ms\s{set\slocalnsWin_sleepV\s1}\r\n\s\s\s\svwait\slocalnsWin_sleepV\r\n\r\n}\r\nproc\swin_modifyDelay\s{}\s{\r\n\s\s\s\snsWin_sleep\s100\sDlightmain\r\n}\r\n\r\nproc\swin_deiconifySequence\s{win}\s{\r\n\s\s\s\sif\s{[tk\swindowingsystem]\seq\s{aqua}\s&&\s$::tcl_platform(osVersion)\s>=\s18}\s{\r\n\s\s\s\s\s\s\s\supdate\sidletasks\r\n\s\s\s\s\s\s\s\s::tk::unsupported::MacWindowStyle\sappearance\s$win\sdarkaqua\r\n\s\s\s\s}\r\n\r\n\s\s\s\s\r\n\s\s\s\swm\sdeiconify\s$win\r\n\s\s\s\sif\s{[tk\swindowingsystem]\seq\s{aqua}}\s{\r\n\s\s\s\s\s\swin_modifyDelay\r\n\s\s\s\s}\r\n\r\n}\r\n\r\nproc\swin_deleteSequence\s{delay\swin}\s{\r\n\s\s\s\sdestroy\s$win\r\n\s\s\s\sif\s{[tk\swindowingsystem]\seq\s{aqua}}\s{\r\n\s\s\s\s\s\s\s\snsWin_sleep\s$delay\sDlightmain\r\n\s\s\s\s\s\s\s\supdate\sidletasks\r\n\s\s\s\s}\r\n}\r\n\r\n\r\nhope\sit\shelps.\r\n++
J login nab
J mimetype text/plain
K 48f5da841df2a45749880bdafb276521e67e825b
U nab
Z c9aa2772935e982653cf2643097fc133