[sisyphus] tcl/tk & WindowMaker appicon

[Sergey Vlasov]

Hello!

Интересует вопрос: насколько правомерно делать такое?

wm group . .
rename toplevel builtin_tk_toplevel
proc toplevel {name args} {
	eval [concat [list builtin_tk_toplevel $name] $args]
	wm group $name .
}

На самом деле это предполагается использовать вот так:

def setup_wm_group(root):
    root.wm_group(".")
    root.update()
    root.tk.call('rename', 'toplevel', 'builtin_tk_toplevel')
    root.tk.call('proc', 'toplevel', 'name args',
	'eval [concat [list builtin_tk_toplevel $name] $args]; wm group $name .')

Смысл подобной операции - получить appicon в WindowMaker. Конечно, можно
проставлять wm group на все окна руками, но при этом не получается
обработать стандартные окна типа tk_messageBox - они выпадают из группы;
да и патчить приходится заметно больше.

Может быть, кто-то знает более правильный способ это сделать?

-- 
Sergey Vlasov