🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.tcl
Article #421

Re: Tcl Tutorial 6

#421
From: Zbigniew B.
Date: Wed, 17 Jan 2007 16:34
19 lines
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-mail
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>

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