diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2021-08-16 16:36:12 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2021-08-16 16:36:12 (GMT) |
| commit | 797ddeb8ac2455c7fd761a4ad3516b9d438c18e2 (patch) | |
| tree | cd9a3a4315cfb512a97e295236f4a2d6491785c6 | |
| parent | cd744e203c11766ea33c951abc4029a0171716e1 (diff) | |
| download | tk-797ddeb8ac2455c7fd761a4ad3516b9d438c18e2.zip tk-797ddeb8ac2455c7fd761a4ad3516b9d438c18e2.tar.gz tk-797ddeb8ac2455c7fd761a4ad3516b9d438c18e2.tar.bz2 | |
Refine widget demo
| -rw-r--r-- | library/demos/tclIndex | 1 | ||||
| -rw-r--r-- | library/demos/windowicons.tcl | 8 |
2 files changed, 5 insertions, 4 deletions
diff --git a/library/demos/tclIndex b/library/demos/tclIndex index 0c3a516..85be67d 100644 --- a/library/demos/tclIndex +++ b/library/demos/tclIndex @@ -66,4 +66,5 @@ set auto_index(setColor) [list source -encoding utf-8 [file join $dir clrpick.tc set auto_index(setColor_helper) [list source -encoding utf-8 [file join $dir clrpick.tcl]] set auto_index(fileDialog) [list source -encoding utf-8 [file join $dir filebox.tcl]] set auto_index(systray) [list source -encoding utf-8 [file join $dir systray.tcl]] +set auto_index(windoicons [list source -encoding utf-8 [file join $dir windowicons.tcl]] diff --git a/library/demos/windowicons.tcl b/library/demos/windowicons.tcl index ab89f84..0d90b1b 100644 --- a/library/demos/windowicons.tcl +++ b/library/demos/windowicons.tcl @@ -21,10 +21,10 @@ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 set ::tk::icons::base_icon icon -pack [button .i -text "Set Window Icon to Globe" -image $::tk::icons::base_icon -compound top -command {wm iconphoto . $::tk::icons::base_icon }] -pack [button .b -text "Set Badge to 3" -command {wm iconbadge . 3}] -pack [button .e -text "Set Badge to 11" -command {wm iconbadge . 11}] -pack [button .f -text "Reset Badge" -command {wm iconbadge . ""}] +pack [button $w.i -text "Set Window Icon to Globe" -image $::tk::icons::base_icon -compound top -command {wm iconphoto $w $::tk::icons::base_icon }] +pack [button $w.b -text "Set Badge to 3" -command {wm iconbadge $w 3}] +pack [button $w.e -text "Set Badge to 11" -command {wm iconbadge $w 11}] +pack [button $w.f -text "Reset Badge" -command {wm iconbadge $w ""}] ## See Code / Dismiss buttons pack [addSeeDismiss $w.buttons $w] -side bottom -fill x |