๐Ÿš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.tcl
Article #529

Re: [Q] How to use "option"

#529
From: Yoshinori Itoh
Date: Mon, 29 Jan 1996 00:00
47 lines
2535 bytes
   ไผŠ่—ค๏ผ ่ŒจๅŸŽๅคงใงใ™ใ€‚

In article fj.lang.tcl <4e4ket$bg4@news.yk.rim.or.jp> 
	tukachan@yk.rim.or.jp wrote at 1996/01/24 Wed 15:43:41 JST

> option ใ‚ณใƒžใƒณใƒ‰ใซใคใ„ใฆๆ•™ใˆใฆใใ ใ•ใ„ใ€‚
> -----------------------------------------------------------------------------
> #!/usr/local/bin/wish4.0
> 
> frame .f 
> pack .f
> button .f.b -text "change bg color"  -command "changeProc .f"
> pack .f.b -padx 20 -pady 30
> proc changeProc {f} {
>     option add $f.background: yellow
> }
> -----------------------------------------------------------------------------
>   optionใ‚ณใƒžใƒณใƒ‰ใฎไฝฟใ„ๆ–นใ‚’็Ÿฅใ‚ŠใŸใใฆใ“ใฎใ‚ˆใ†ใชใƒ—ใƒญใ‚ฐใƒฉใƒ ใ‚’ๆ›ธใ„ใฆใฟใพใ—ใŸใ€‚
> ใƒœใ‚ฟใƒณใŒๆŠผใ•ใ‚ŒใŸใ‚‰ใƒ•ใƒฌใƒผใƒ ใฎ่ƒŒๆ™ฏใŒ้ป„่‰ฒใซๅค‰ๅŒ–ใ—ใฆๆฌฒใ—ใ„ใฎใงใ™ใ€‚ใ—ใ‹ใ—ใชใŒ
> ใ‚‰ใชใ‚“ใฎๅค‰ๅŒ–ใ‚‚ใ‚ใ‚Šใพใ›ใ‚“ใ€‚
>   ใกใชใฟใซ $f.background ใฎใจใ“ใ‚ใ‚’ Tk*Background ใจใ—ใฆใ‚‚ไฝ•ใฎๅค‰ๅŒ–ใ‚‚ใ‚ใ‚Š
> ใพใ›ใ‚“ใงใ—ใŸใ€‚option ใ‚ณใƒžใƒณใƒ‰ใฎไฝฟใ„ๆ–นใจใ„ใ†ใฎใฏใ“ใ‚Œใงใ„ใ„ใฎใงใ—ใ‚‡ใ†ใ‹๏ผŸ

ใ™ใงใซไฝœๆˆใ•ใ‚ŒใŸใ‚ฆใ‚คใ‚ธใƒƒใƒˆใซๅฏพใ—ใฆใ‚ชใƒ—ใ‚ทใƒงใƒณใฏ็„กๅŠนใ ใฃใŸใจๆ€ใ„ใพใ™ใ€‚
ใ“ใฎๅ ดๅˆใฏใ€๏ผ‘ๅ›ž
   changeProc
ใ‚’ๅ‘ผใ‚“ใ ใ‚ใจใซไฝœใ‚‰ใ‚Œใ‚‹ใ‚ฆใ‚คใ‚ธใƒƒใƒˆใฎ่ƒŒๆ™ฏใฏ้ป„่‰ฒใซใชใ‚Šใพใ™ใŒใ€
ๅ‘ผใณๅ‡บใ—ๅ‰ใซไฝœใ‚‰ใ‚Œใฆใ„ใ‚‹ใ€Œ.fใ€ใฎ่ƒŒๆ™ฏใฏๅค‰ๅŒ–ใ—ใพใ›ใ‚“ใ€‚
ใงใ™ใ‹ใ‚‰ใ€ใ“ใ‚Œใ‚’ๅค‰ๅŒ–ใ•ใ›ใ‚‹ใซใฏใ€
   .f conf -bg yellow
ใจใ™ใ‚‹ๅฟ…่ฆใŒใ‚ใ‚Šใพใ™ใ€‚

ใ‚ใจใ€ใ€Œoptionใ€ใฎใƒ‘ใ‚ฟใƒผใƒณใฎๆœ€ๅพŒใซใ‚ใ‚‹ใ€Œ:ใ€ใฏใ€ใ„ใ‚‰ใชใ„ใฏใšใงใ™ใ€‚
    option add $f.background: yellow
                           โ†‘ใ“ใ“
ใƒ‘ใ‚ฟใƒผใƒณใฎๆŒ‡ๅฎšๆ–นๆณ•ใงใ™ใŒใ€
ๅ…จไฝ“ใฎ่ƒŒๆ™ฏใ‚’ๅค‰ใˆใ‚‹ใจใใฏ
   option add *background
็‰นๅฎšใฎใ‚ฆใ‚คใ‚ธใƒƒใƒˆใ‚’้ธๆŠžใ™ใ‚‹ใจใใฏ
   option add *Frame.background
ใจๆŒ‡ๅฎšใ™ใ‚Œใฐใ†ใพใใ„ใใฏใšใงใ™ใ€‚

--
      ฯƒใ€€โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”€
ใ€€ใ€€โ”Œโ”ผโ”˜ใ€€ใ€€ใ„ใจใ†ใ‚ˆใ—ใฎใ‚Šใ€€ใ€€่ŒจๅŸŽๅคงๅญฆ ๅทฅๅญฆ้ƒจ ๆƒ…ๅ ฑๅทฅๅญฆ็ง‘ ๏ผ“ๅนด
โ‰กใ€€_๏ผ๏ผผใ€€ใ€€ใ€€ไผŠ่—ค  ๅ–„่ฆใ€€ใ€€ใ€€ใ€€ใ€€st93011@cis.ibaraki.ac.jp
โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”โ”€
Technical Details
Message-ID: <4ehtep$mgh@pollux.cis.ibaraki.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <4e4ket$bg4@news.yk.rim.or.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 15a83d,9ccee540b90c198c
X-Google-Attributes: gid15a83d,public
From: st93011@cis.ibaraki.ac.jp (Yoshinori Itoh)
Subject: Re: [Q] How to use "option"
Date: 1996/01/29
Message-ID: <4ehtep$mgh@pollux.cis.ibaraki.ac.jp>
X-Deja-AN: 137009692
distribution: fj
references: <4e4ket$bg4@news.yk.rim.or.jp>
content-type: text/plain; charset=ISO-2022-JP
organization: Dept. of Comp. & Info. Sci.s, Ibaraki University, Ibaraki, JAPAN
mime-version: 1.0
newsgroups: fj.lang.tcl