From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <vsu@mivlgu.murom.ru>
Date: Wed, 2 Oct 2002 10:22:53 +0400
From: Sergey Vlasov <vsu@altlinux.ru>
To: Sisyphus ML <sisyphus@altlinux.ru>
Message-Id: <20021002102253.2753adf4.vsu@altlinux.ru>
X-Mailer: Sylpheed version 0.8.4 (GTK+ 1.2.10; i586-alt-linux)
Mime-Version: 1.0
Content-Type: text/plain; charset=KOI8-R
Content-Transfer-Encoding: 8bit
Subject: [sisyphus] tcl/tk & WindowMaker appicon
Sender: sisyphus-admin@altlinux.ru
Errors-To: sisyphus-admin@altlinux.ru
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.0.13
Precedence: bulk
Reply-To: sisyphus@altlinux.ru
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Id: <sisyphus.altlinux.ru>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
List-Archive: <http://altlinux.ru/pipermail/sisyphus/>
Archived-At: <http://lore.altlinux.org/sisyphus/20021002102253.2753adf4.vsu@altlinux.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>

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