D 2020-01-13T08:05:52.518
J icomment @Takamoto,\r\nHi,\r\nwhile\susing\smac_styles\sbranch\sI\shad\sto\swrite:\r\nafter\s1\s[list\sdoDesiredEval\sargs]\r\na\slot\sin\sorder\sfor\sstuff\sto\sbe\ssmooth\sand\snot\scrashing.\r\n\r\nalso\sfor\stoplevel\screation/destroy\sI\shad\sto\suse\sa\sdelay\smechanism\sfor\snot\smy\sapp\sto\scrash.\r\nsomething\slike\sthat:\r\n\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\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\s\r\n\r\nhope\sthis\shelps.\r\n++
J login nab
J mimetype text/plain
K 48f5da841df2a45749880bdafb276521e67e825b
U nab
Z a2fe883c81fe0ead544c2751ab6ea27d