МегаФорум

Задача: заменить "иконку" tk-ного окна.
Есть команда wm iconbitmap, но:
во-первых она "понимает" только двухцветные битмэпы в формате xbm (а хотелось бы чтоньть цветное),
а во-вторых, наотрез отказывается работать в виндах (а это уже совершенно необходимо)

Что это за зверь

Который ?

wm по моим воспоминаниям изначально заточен под Х11 протоколы. Возможно придется написать чуть-чуть на С с вызовами соответствующих функций из Выньдоуз интерфейса.

К этому делу появился Perl API... Забыл название. Но проще, чем на TCL/Tk писать.

Хех, я на TCL в последний раз писал скрипты "умной" (на самом деле - "случайной", как женский разум) болталки для эггдропа - разновидности IRCшного бота...

Прoбегaли , пoстoяннo пишу нa нём нa рaбoте.
Крoме тoгo знaкoм с рaзличными рaсширениями, в чaстнoсти для irc бoтoв, eggdrop-oв. Сaмим tk-ем я не oсoбенo чaстo пoльзуюсь, в oснoвнoм чистым tcl-ем с рaширениями пoлученными при пoмoщи swig-a, a тaк же нaпример TclDp(библиoтекa для udp).
Кaкие имеются прoблеммы/вoпрoсы?

AlexZ писал(а):Задача: заменить "иконку" tk-ного окна.
Есть команда wm iconbitmap, но:
во-первых она "понимает" только двухцветные битмэпы в формате xbm (а хотелось бы чтоньть цветное),
а во-вторых, наотрез отказывается работать в виндах (а это уже совершенно необходимо)

Кaкaя версия? 8.4.x ?

Если 8.4.x тo вoт:

... On the Windows operating system, an additional flag is supported: wm iconbitmap window ?-default? ?image?. If the -default flag is given, the icon is applied to all toplevel windows (existing and future) to which no other specific icon has yet been applied. In addition to bitmap image types, a full path specification to any file which contains a valid Windows icon is also accepted (usually .ico or .icr files), or any file for which the shell has assigned an icon. Tcl will first test if the file contains an icon, then if it has an assigned icon, and finally, if that fails, test for a bitmap.

Вот, нашёл:

wm iconbitmap doesn`t work on Windows

The wm iconbitmap command does not work on Windows. If you execute the following command, you`ll still see Tcl`s icon for your application:

wm iconbitmap . filename

To change this, you need to substitute your own .ico file and recompile the relevant parts of the Tk source code.

-Eric Foster-Johnson

http://tcltk.free.fr/tcltkfaq.php3?idxquery=196



Всем спасибо...

Однако, я еще не совсем впал в маразм