Article View: pl.comp.lang.tcl
Article #421Re: Tcl Tutorial 6
From: Zbigniew B.
Date: Wed, 17 Jan 2007 16:34
Date: Wed, 17 Jan 2007 16:34
19 lines
1483 bytes
1483 bytes
OK, kierując się podpowiedzią z comp.lang.tcl zrobiłem to w końcu tak:
#v+
bind .menubar.help.menu <<MenuSelect>> {showHelp %W}
proc showHelp {w} {
if { [$w index active] != "none" && [$w index active] > 0 } {
set chosen [.menubar.help.menu entrycget active -label]
.statusBar.lab config -text $helptext($chosen)
} else {
.statusBar.lab config -text ""
}
}
#v-
Co to za zmienna "%W"? Czy jest gdzieś dostępne wyszczególnienie
i szczegółowy opis takich "wewnętrznych"(?) zmiennych?
--
Z.
Technical Details
Message-ID:
<slrneqskr7.9mk.Zbigniew@localhost.localdomain>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mailReferences:
<egttra$h5j$1@nemesis.news.tpi.pl> <slrneqpu6q.8sp.Zbigniew@localhost.localdomain> <eokq30$98b$1@srv.cyf-kr.edu.pl> <slrneqsaup.70h.Zbigniew@localhost.localdomain>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail From: "Zbigniew B." <Zbigniew@a.co.komu.do.tego> Newsgroups: pl.comp.lang.tcl Subject: Re: Tcl Tutorial 6 Date: Wed, 17 Jan 2007 16:34:21 +0000 (UTC) Organization: tp.internet - http://www.tpi.pl/ Lines: 19 Message-ID: <slrneqskr7.9mk.Zbigniew@localhost.localdomain> References: <egttra$h5j$1@nemesis.news.tpi.pl> <slrneqpu6q.8sp.Zbigniew@localhost.localdomain> <eokq30$98b$1@srv.cyf-kr.edu.pl> <slrneqsaup.70h.Zbigniew@localhost.localdomain> NNTP-Posting-Host: i-s.net.autocom.pl Mime-Version: 1.0 X-Trace: atlantis.news.tpi.pl 1169051661 11674 213.134.175.146 (17 Jan 2007 16:34:21 GMT) X-Complaints-To: usenet@tpi.pl NNTP-Posting-Date: Wed, 17 Jan 2007 16:34:21 +0000 (UTC) User-Agent: slrn/0.9.8.1pl1 (Debian) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit