Newsgroups: fj.lang.tcl,fj.archives.answers
Subject: [comp.lang.tcl] Tk Toolkit Usage Questions And Answers (1/1)
Distribution: fj
Followup-To: fj.lang.tcl
Reply-To: taguchi@aic.co.jp
Expires: Fri Apr 14 00:00:00 JST 1995
Keywords: tk, tcl, expect, extended tcl, wish

Archive-name: tk-usage-QnA-j/part01
Version: 1.4-J1.0

Last modified: Fri Mar 24 12:08:12 1995

Posting-Frequency: monthly
------------------------------------------------------------------------------



ϡtja@cpu.com (Thomas J. Accardo) ˤäƴ "FAQ:
comp.lang.tcl Tk Toolkit Usage Questions And Answers" ܸǤꥸ
Υإåʲ˼ޤ

  From: tja@cpu.com (Thomas J. Accardo)
  Newsgroups: comp.lang.tcl,comp.answers,news.answers
  Subject: FAQ: comp.lang.tcl Tk Toolkit Usage Questions And Answers (1/1)
  Followup-To: comp.lang.tcl
  Reply-To: tja@cpu.com (Thomas J. Accardo)
  Summary: A regular posting of the comp.lang.tcl Tk Toolkit usage
        questions and answers.
  Originator: tja@cpu.com
  Keywords: tk, tcl, wish
  Sender: tja@cpu.com
  Expires: Sat, 15 Apr 1995 11:59:59 GMT
  Approved: news-answers-request@MIT.EDU

  Archive-name: tcl-faq/tk/part1
  Posting-Frequency: monthly
  Version: 1.5
  Last-modified: March 14, 1995

ܸФ뤴ո䡦ΤŦʤɤϡԤޤǡ ޤ
¾ξܺ٤ʾˤĤƤϡtcl-faq-j/part00 򻲾ȤƲ
------------------------------------------------------------------------------

Ϥ

 FAQ եϡ Tk ġ륭åȤ˴ؤưŪˤ褯ʹ򰷤
ȤΤǤ ʸˤäơŪɤʹβ󶡤뤳
Ȥˤꡤ Tk ο桼᤬ äƤΥե饹ȥ졼򴶤
뤳Ȥ㸺졤 ơcomp.lang.tcl ɼԽƱȲη֤
ˤ륤饤 뤳Ȥʤʤ뤳ȤԤޤ

FAQϡ comp.lang.tcl comp.answers news.answersƤ졤 ޤ 
ftp.aud.alcatel.com (198.64.191.10)Tcl֤Ρ /tcl/docs ǥ쥯ȥ
ǽǤ

¾ʸ䥳ɤؤΥݥ󥿤ʤɤΡ ¿Tcl˴ؤ줿
С Larry Virden (lvirden@cas.org) δFAQ:
    "FAQ: comp.lang.tcl Frequently Asked Questions"
ftp.aud.alcatel.com /tcl/docs/tcl-faq.part0*.gzꤹȤ褤Ǥ


Tclץߥ󥰸˴ؤϡ Joe Moss (joe@morton.rain.com) δ
 FAQ:
    "FAQ: comp.lang.tcl Tcl Language Usage Questions And Answers"
ftp.aud.alcatel.com /tcl/docs/tcl-faq-usage.gzꤹ뤳Ȥ򤪴ᤷ


ȤFAQؤΥȥӥ塼ϡ紿ޤǤ ɤ
tja@cpu.comޤǤ겼
------------------------------------------------------------------------------

ܼ:

I. ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
    o Q1A.Υޥ Tcl ưɬפʾܺ٤ʾϡ ɤ 
      ΤǤ礦
    o Q1B. 󥹥ȡ뤷褦Ȥ ʳǴĤTclδؿɬ 
      ʤΤ̵衤 ȸΤϲΡ
    o Q1C. HP-UX  Tcl ΥѥͤϤޤ󤫡
    o Q1D. SCO Unix  Tcl 򥳥ѥ뤹ˤϡ ɤ餤Ǥ
    o Q1E. tclTest 餻ȡ format  scan ǥ顼ˤʤΤϲΡ 
      (NeXT, AIX, ʤɤ)
    o Q1F. tclTest  Irix 4.0.1 餻ȡ ̤Υ顼ФΤϲΤǤ 
      
    o Q1G. Cray  Tcl ̵餻ͤϤޤ󤫡
    o Q1H. SparcBook 䡤 ¾ο˸³Τåץȥå׵ Tk餻 
      ˡΤäƤͤϤޤ󤫡
    o Q1I. Tcl/Tk 386BSD/Linux 䡤 ¾ΤޤݡȤƤʤPOSIX/ANSI C 
      ƥǥѥ뤹ˤϡ ɤɤΤǤ礦
    o Q1J. Irix Υޥ Tk 򥳥ѥ뤷褦Ȥ顤 tkInit.c ǥѡ 
      顼ˤʤäΤǤ
    o Q1K. NeXTSTEP 3.1  Tcl 7.x/Tk 3.x  󥹥ȡ뤹ˤϡɤ 
      Ǥ
    o Q1L. Tcl/Tk ܤΥɥեȤǤʤǤɡ
    o Q1M. ʤ SGI Indigoȥ顼ˤʤΤǤ礦
    o Q1N. TclX/Tk  BLT ɲäˡϡ
    o Q1O. Sequent  Tcl  Tk ܿˤϡ
    o Q1P. wish ưˡ "ʤޥ̾" ȸΤϲΡ
    o Q1Q. A/UX ǡܥơ֥뤬դ衤 Ȥåϡɤ 
      Ʋ򤹤Ρ
    o Q1R. SunOS ƥư xmkmf  Makefile ƤʤΤϡ 
      Ρ

II. Tk μȲ - ˤϤɤΡ:

A. Tk ץꥱεư˴ؤ
    o Q2.A.1. wish ץꥱ ¹Ԥˤ(wish ΥץץȤФ 
      ʤǤ)
    o Q2.A.2. 8 ӥåȥ顼ʲ ޥưˤϡ
    o Q2.A.3. app-defaultsե wish ץꥱΥ꥽ꤹ 
      ˤϡ
    o Q2.A.4. ե̾ꤸʤ ӥåȥޥåסѥľܥޥɥ 
       Ǥޤ󤫡
    o Q2.A.5. Motif桼󥿥ե 󶡤ˤϡ
    o Q2.A.6. OpenLook桼󥿥ե 󶡤ˤϡ
    o Q2.A.7. Tk 3.3 ȵưˤ (ƥΥ顼ФΤǤ 
      )
    o Q2.A.8. C ץफ Tk ץȤƤӽФˤϡ
B. Tk ץꥱȥܡɤ˴ؤ
    o Q2.B.1. ǥեȤΥ饹Хɤ ѹˤϡ
    o Q2.B.2. Хɤˤϡ
    o Q2.B.3. SunΥܡɤ Ȥˤϡ
    o Q2.B.4. Tk ץꥱ 롼ȤΥޥХɤư褦ˤˤϡ
    o Q2.B.5. ¸ߤƤХɤˡ ɲäˤϡ
C. Tk  X11 ȤΥ󥿥饯˴ؤ
    o Q2.C.1. ץꥱ libXt ȤǤ
    o Q2.C.2. X11 Υѹˤϡ
    o Q2.C.3. ɥνŤʤ岼ˤϡ
    o Q2.C.4. ѤΥɥID ƥޥåפˤϡ
    o Q2.C.5.  Tk  X11 ץꥱǡ Tk ǥ֥ɥȤˤϡ
    o Q2.C.6. ¾ΥåȤޤե졼ǡ <Enter>  <Leave>Х 
      ˤϡ
    o Q2.C.7. Xt  Tk/Tcl ֤ 祤󥿥饯󤹤ˤϡ
    o Q2.C.8. ResizeRequest ٥Ȥ Хɤˤϡ
    o Q2.C.9. 顼å 'bad geometry "+0+0": expected widthxheight'  
      򤹤ˤϡ
    o Q2.C.10. ¾Υץꥱ󤫤"send" ̵뤹ˤϡ
    o Q2.C.11. `wm'`winfo'ΰ㤤ϲǤ
D. Tk Υꥹȥܥå˴ؤ
    o Q2.D.1. listboxꥵˤϡ
    o Q2.D.2. Ʊˡ2Ĥ٤ʤܤ 򤹤ˤϡ
    o Q2.D.3. Ʊˡ1 İʾιܤ 򤹤ˤϡ
    o Q2.D.4. ꥵǽʥꥹȥܥå üζϤʶäˤϡ
    o Q2.D.5. ĤΥС 2ĤΥꥹȥܥå򥹥뤵ˤϡ
    o Q2.D.6. ꥹȥܥåƱ1ĤǤΤ ǽȤˤϡ
E. Tk ΥХ˴ؤ
    o Q2.E.1. ХϤˤϡ
    o Q2.E.2. ݥꥴʱߤͤʷˡ ХδĤʬǰϤޤ줿 
      ΰɤĤ֤ޤ
    o Q2.E.3. ХΥ֥ȤνŤʤ 岼ꡤХ 
      ɥ֥Ȥξ ޷ޤ
    o Q2.E.4. ХΥѹ Фˤϡ
    o Q2.E.5. Хȥꥹȥܥå Ʊ 1 ĤΥСǥ 
      뤵ˤϡ
    o Q2.E.6. ѿ˳Ǽ줿ɸΥꥹȤ ݥꥴ(䡤¾Υ 
      )˻Ѥˤϡ
F. ¾μ
    o Q2.F.1. ¹ԤƤ륤󥿥ץ꥿ ̾Τˤϡ
    o Q2.F.2. ƥȥåȤ -relief ưˤϡ
    o Q2.F.3. ܥǥǤ ɥˤϡ
    o Q2.F.4. ƥȥåȤ Ū˥ꥵ褦packˤϡ
    o Q2.F.5. ʸ̾ĥåȤ ˤϡ
    o Q2.F.6. Υܥˤϡ
    o Q2.F.7. եȤˤ餺 Ĥˤ줤¤֥饸ܥˤϡ
    o Q2.F.8. ʸǥȥꥦåȤ Ƥޤˤϡ
    o Q2.F.9. TkǡǥեȤɽ Ѥˤϡ
    o Q2.F.10. packޥɤǻȤݤˡ ɽ֤Υɥ򸫤Ĥˤϡ
    o Q2.F.11. '.'ʳƤΥɥ ˲ˤϡ
    o Q2.F.12. 饸ܥνޤ ˥롼ײˤϡ
ܼν
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1A- Υޥ Tcl ưɬפʾܺ٤ʾϡ ɤ
ΤǤ礦

A1A. 褯ʹƤޤ Tcl ʪ椫 "porting.notes" ȸƤФ
եõƸޤ礦 ˤϡޤ¿ο͡󤻤줿 ͡
ʥޥ OS  Tcl ưݤबޤȤƤޤ ޤ
˿äꤹ˺ǽɤ٤ "README" Ȥե⤢ޤ (ϡ
ɤʥѥåˤ뤳ȤǤ) Ǹˡ ޤǤΥ꡼Ǥѹ
ޤȤ᤿ "changes" Ȥե⤢ޤ ϡʤΥץब
ʤФʤʤΤ뤳ȤǤޤ

    []
      Tcl7.3/Tk3.6porting.notesեϹƤޤ⤷  
      porting.notes˵᤬դʤϡtcl7.4b2/tk4.0b2 Υե
      롤 porting.old򻲾ȤȲ餫ξ礬 ޤ
      ϼʬ FreeBSD2.0RTclܤݤˡ򻲾Ȥޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1B- 󥹥ȡ뤷褦ȤʳǴĤ Tcl δؿ
ɬפʤΤ̵衤ȸΤϲΡ

A1B. "csh ./configure" Ȥäơ ǽ "configure" ץ餻ޤ
 ԤʤȡˤäƤϡ strtoul  strerror εҤ
ƤޤȤޤ

Tcl ϡƥˤεǽʤʤС ȤѰդʲδؿȥ󥯥롼
ɥեѤޤ


dirent.h       limits.h       stdlib.h       string.h

opendir.c      strerror.c     strstr.c       strtol.c       strtoul.c

strtod.c

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1C- HP-UX  Tcl ΥѥͤϤޤ󤫡

A1C. ݡƥ ΡȤ򻲾ȤƲ ޤConfigure ߴС 
opendir()  (ѥ)Ȥ٤ȽǤƤޤɡ dirent.h¸ߤ
ʤȤ𤬴ĤʤƤޤ ϡglob ǥ顼
ޤTclX  readdir ǤƱͤǤ

tcl 7.3 Ǥϡopendir θߴեѹԤޤ礦 ơ-
DNO_DIRENT, -DUSE_DIRENT2 Сϲ褷ޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1D- SCO Unix  Tcl 򥳥ѥ뤹ˤϡɤ餤Ǥ

A1D. "#undef select"  tkEvent.c ˲ä main.c  460 ܤ 
TK_EXCEPTION λȤޤ

Tk ϡ åΩɽΤˡ ɽȤΥ顼ݤΤȼλ
ȤߤȤäƤޤ 줬 Tk "Pseudo Color" ǥץ쥤饹ǡ 16 
Υ顼ޥåפΥޥǼ¹ԤݡȤʤޤ

8 bit ץ졼ȤʤʤС ǥץ쥤饹 "StaticColor"ˤ
ˡ Ф "-static" (Xsco)  "-analog" (Xsight) ץΩ夲
Ȥ褤Ǥ礦 ϡ顼ޥåפɤ߹ߤΤߤȤ ׵ᤵ줿
ˤǤǤᤤ֤褦ˤޤ

ξϡKeith Amann (Keith_Amann@stortek.com) 󤻤ޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1E- tclTest 餻ȡformat  scan ǥ顼ˤʤΤϲΡ 
(NeXT, AIX, ʤɤ)

A1E.  (scanf/printf ) ϡ¿ΥƥǸޤ ˴ؤ
ϡޤмˤʤɬפϤޤ --- '٤'ǽȤʤǤ 
⤷ʤ C ΥϥåʤСƱ˽ж魯ȦǤ

򤢤ʤСprintf("%Ng", double_value) strtod("+",&terminal) ϡ
̤⤿餷ޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1F- tclTest  Irix 4.0.1 餻ȡ̤Υ顼ФΤϲ
Ǥ

A1F. ϡ4.0.1 ΥץƥޥΥХǡ4.0.2 ǤϽƤޤ 
tclVar.c  ץ -O0 (Ŭ̵) ǥѥ뤷Ʋ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1G- Cray  Tcl ̵餻ͤϤޤ󤫡

A1G. ݡƥ󥰡ΡȤѹ˴ؤ뵭Ҥ򻲾ȤƲ ޤBooker
C. Bense (benseb@grumpy.sdsc.edu) ϡ С 3.0.1.6 Ǥϥ饯Υ
󥿤ο꤬ꡤ Tcl å夹𤷤Ƥޤ С 
3.0.2.1 Ȥ¿ϥޥǤ format ޥɤκ٤ʥХȡscan ޥ
ɤοϻĤޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1H- SparcBook 䡤¾ο˸³Τåץȥå׵ Tk
ˡΤäƤͤϤޤ󤫡

A1H. SparcBook , openwin (OpenWindows Фεưޥ) ¹ԤƤ
С ʲΥץꤷƵư褦ˤƲ


  openwin -dev "/dev/fb staticvis"

СŪ顼ɽǥȤʤꡤTk ϡǥեȤɤưޤ 
¿ɽޤ󤬡ΥɤǤ礦

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1I- Tcl/Tk 386BSD/Linux 䡤¾ΤޤݡȤƤʤ
POSIX/ANSI C ƥ Tcl 򥳥ѥ뤹ˤϡɤɤΤǤ礦

A1I. 386BSD ؤΥѥå 1992 ǯ 11  comp.lang.tcl  alt.sources 
Ƥޤ Υ֤¸Ƥ ftp ȤդƲ 
ŪˤϡĤ define ȡ const char * Ȥ٤Ĥ 
char * Ǥ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1J- Irix Υޥ Tk 򥳥ѥ뤷褦Ȥ顤tkInit.c ǥѡ
󥰡顼ˤʤäΤǤ

A1J. Jon Knight (J.P.Knight@loughborough.ac.uk) ϡ λȤäƤIrixΥС
Ǥϡ uid_t Ƥʤ𤷤Ƥޤ äơѥ뤬
褦ŬʾŬͤˡ Ƥ (ΤäԤ򥳥
ȥȤ) ɬפޤ

    ܼ
------------------------------------------------------------------------------

From: -K- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1K- NeXTSTEP 3.1  Tcl 7.1/Tk 3.4 򥤥󥹥ȡ뤹ˤϡ 
餤Ǥ

A1K. εμȤʤȻפβȤơ ƥȻפͤ
ƤǼޤ礦

From: Robert Nicholson (robert@steffi.demon.co.uk)

 TCL7.1  TK3.4 оݤȤޤ

 Thomas Funke ΥȥǤ TCL7.1  NeXT ؤΥ󥹥ȡˡ

tcl7.1  NeXTSTEP 3.1 ˥󥹥ȡ뤹ˤϡʲΤ褦ˤޤ:

    configure  CPP Ǽ¹:
      ܡ󥷥¹Ԥ뤿ˡ"sh" Ǥߤޤ ơʲΤ褦 
      פޤ

      CPP='cc -E' ./configure

    Makefile Խ:
      tmpnam.o  COMPAT_OBJS ɲ:

      COMPAT_OBJS =      getcwd.o waitpid.o strtod.o tmpnam.o
λNeXT 饤֥ libsys_a.a Ƕ뤵ΤФơ strtod  tmpnam 
̤뤿ˡŬ̾ѹȻפǤ礦 Ԥ
ϡAC_FLAGS ˡʲιԤդä뤳Ȥǽޤ


        -Dstrtod=newstrtod -Dtmpnam=newtmpnam

̾ѹ줿ؿϡcompat/*.c ˤޤ

Ƥưɤåˤϡtclsh ư ʲ¹Ԥޤ


  % expr {"0" == "+"} 
  0

ְ㤨 strtod ؿѤƤʤС֤ͤ 1 ˤʤꡤ ʥ顼Ȥʤ
ޤΤʥ顼̵뤷ޤ TK3.4  NEXTSTEP 3.1 ؤΥ󥹥ȡˡ

Tk3.4 ˤ strtod ؿθƤӽФΤǡ Ҥ ..
/tcl-7.1/compat/strtod.o ˥󥯤ĥꡤ AC_FLAGS  -Dstrtod=newstrtod 
äɬפޤ

: Tk  raise ϡ ɥޥ͡ tvtwm ȤäƤȼԤ
 λ̤ˤϡtwm  fvwm ʤɤѹɬפޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1L- Tcl/Tk ܤΥɥեȤǤʤǤɡ

A1L. John Ousterhout (ouster@tcl.eng.sun.com) ˤ:

ΤȤϤƤΤ餻ˤȡ ¿ο͡ܤΰΰϤ
Ƥ褦Ǥ

ŤС Transcript ס顦եȥˤϡ ڡսˤʤä 
PostScript եǡ ̤ encapsulated PostScript ե򰷤ʤ
Τ褦Ǥ ϡڡ¤򤴤äˤ뷹ꡤ ǽ EPS 
եΤȤǡ顼ˤʤäƤޤޤ  2 ϡ꡼פ
뤿ˡ  EPS ե뤬ޤƤޤ ⤷Υե
ϤǤʤʤ顤 ڡսϤǽȤʤäƤ뤫ɤ򸫤Ʋ ⤷
ǤʤСѤƤ륷ƥΥɤ˸äơ Ūǽˤ
Ƥ餤ޤ礦 ǡϲǽˤʤȦǤ 뤤ϡ뤤ϡס
եȥͳˡ ľܥץ󥿤ͤΤ褤Ǥ礦 (㤨
Сץ󥿤ηѤäƤ륷ꥢݡȤˡľ cat ƤޤȤ)

¾ˤ⡤ν󤻤Ƥޤ

Ȥ߹ޤ줿ޤϡԤζڤ LF ǤϤʤ CR ѤƤ뤿ᡤ 줬
θȤʤ礬ޤ LF ѴƸޤ礦


   tr '\015' '\012' <  book.p2.ps > fixedbook.p2.ps

:

ϡꥸʥƼԤǤϤޤ󤬡 ϻ A4 Ȥ Ƥǡ 
Dataproducts LZR1260E ͤʥץ󥿤ѤƤ硤 ѻ極
˰ФƤޤȤޤ ϡ¾ Framemaker 줿
եǤȯޤ ʤ PS 󥿥ץ꥿ΥХǤ礦 ˤϡ
A4 ѻ礭ԽƤޤ ʲΥ륹ץȤϡξ
Ȥ⽤ޤ


  #!/bin/sh
  cat $1 | tr '\015' '\012' | sed '/FMDOCUMENT$/s/612 792/595 842/'

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1M- ʤ SGI Indigo ȥ顼ˤʤΤǤ礦

A1M. Gordon Lack (gml4410@ggr.co.uk)ˤС SGI  C ѥˤϡѿ
ΰˤĤΥ顼뤽Ǥ

tclVar.c ϡIRIX C 4.0.1 Ǥϡѿ˴ؤХΤᡤ  -O0 ǥѥ
ͤФʤޤ

Makefile Υ롼ʲΤ褦˽񤭴Ƥޤ


  > # GGR SG needs -O0 for varargs at 4.0.1
  >
  > CC_SWITCHES0 =  -O0 -I. -I${SRC_DIR} ${AC_FLAGS} ${MATH_FLAGS} \
  > ${GENERIC_FLAGS} ${PROTO_FLAGS} ${MEM_DEBUG_FLAGS} \
  > -DTCL_LIBRARY=\"${TCL_LIBRARY}\"
  >
  > tclVar.o: tclVar.c
  >         $(CC) -c $(CC_SWITCHES0) $<

Peter NEELIN (neelin@pet.mni.mcgill.ca) ϡ Τ褦դ򤷤Ƥޤ

ϡե Config.mk 򼡤Τ褦ѹơ TclX 7.3a  SGI (irix4.0.5) 
ǥѥ뤷ޤ


  71c71
  < CFLAGS=-cckr -D__GNU_LIBRARY__
  ---
  > #CFLAGS=
  106,107c106,107
  < TCL_PLUS_BUILD=TCL_PLUS
  < CCPLUS=g++
  ---
  > #TCL_PLUS_BUILD=TCL_PLUS
  > CCPLUS=CC
  191,193c191
  < MAN_DIR_SEPARATOR=
  < 
  < LIBOBJS=strftime.o
  ---
  > #MAN_DIR_SEPARATOR=.

-D__GNU_LIBRARY srandom 褷ޤ פˡ-cckr  waitpid ǥ
ȥס顼򵯤ޤ (ǤȤꤢưޤ) strftime 
ʤɬפäϡ˺Ƥޤޤ

κ Config.mk ΥСߤʤС᡼뤷Ʋ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1N- TclX/Tk  BLT ɲäˡϡ

A1N. George A. Howlett (gah@grenache.mhcnet.att.com)ˤäơ 


TclX  blt_wish ɲäˡ̤ˡǤäƤߤޤ礦 BLTwishx
ɲäΤǤϡȤäƤñǤ

ե ./tksrc/tkXAppInit.c  116 ܤˡ Τ褦 BLT ν롼
դäޤ


    if (TkX_Init(interp) == TCL_ERROR) {
        return TCL_ERROR;
    }
    if (Blt_Init(interp) != TCL_OK)) {
        return TCL_ERROR;
    }

ƤäơlibBLT.a  wishx ˥󥯤СޤǤ

¾μʤȤơtkmkmf  make-a-wish ѥåѤƤ⤤Ǥ礦

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1O- Sequent  Tcl  Tk ܿˤϡ

A1O. Andrew Swan (aswan@soda.berkeley.edu)ˤäƲޤ

Tcl  Tk ǡ ANSI  Sequent cc ǤϤʤgcc Ѥޤ

Tcl Ǥϡإ饤֥ˡ2 Ĥ꤬ޤ 1ˡSequent οإ饤
꤬'fmod' ؿޤǤʤȤǤ  fmod Υ ftp.uu.net 
ꤷ ֥ǥ쥯ȥ compat ޤ ơ Makefile 
äޤ fmod ϡ'isnan'  'finite'ؿǻѤƤޤ tcl 
̵¤ nan 򥵥ݡȤȿʤäΤǡ ϥȥȤ


إ饤֥Τ⤦ 1 Ĥϡ Υ饤֥ 'tanh' ؿΥԡ 2 
ġ ޤޤƤޤäƤ뤳ȤǤ"ar" Ȥä 饤֥򥪥֥Ȥʬ
򤷡ȤΩľơ tanh ΥԡäƤޤСñ fix Ǥ
ޤ

ͤѹԤСTcl ΥѥϤ줤˽λ ⡤scanλ
Ϥ٤̤ޤ ɤ⡤Dynix Ǥϡ*scanf ؿƤͤǤ 
ϡ8 ʿνǳǧǤޤ ϡ礦ɡ˼ݤäȤ
Ǥ ϡ*scanf ؿΥդȤȤˤʤǤ


Tk 򥳥ѥ뤹뤿ˡ  wchar_t Τ褦ʤΤ С
 stddef.h ͤФʤޤǤ Ϥ̤Υ󥯥롼ɡǥ
ȥ˥ԡ Υǥ쥯ȥǽ˻ꤷơ줬Ȥ褦ˤ
ޤ Tk Ǥإ饤֥ (tanh) ȯޤ ʳ⤢
٤ƤΥѥϤ줤˽λ ٤Ƥλˤѥޤ

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1P- wishưˡʤޥ̾פȸΤϲ
Ρ

A1P. ϡСwishۤ ư褦ȤȤ
ȯǡ 㤨СΤ褦ʥ顼ޤ


$ /projects/xopsrc/wishx3.6a            
Error: invalid command name "tk_bindForTraversal"
invalid command name "tk_bindForTraversal"
    while executing
"tk_bindForTraversal Entry"
    (file "/projects/xopsrc/Tclsrc/v7/lib/3.6a/tk.tcl" line 98)
    invoked from within
"source $tk_library/tk.tcl"
    invoked from within
"if [file exists $tk_library/tk.tcl] {
            source $tk_library/tk.tcl
        } else {
            set msg "can't find $tk_library/tk.tcl; perhaps you "
            append  ..."

ͤʥǤ ϡ  config Ƥʤȥ
ȡ뤵ƤʤΤɤ餫Ǥ ޥ̾ʤС ѿ
ؤƤǥ쥯ȥ꤬ ǥեȤΤ񤭤ƤޤäƤ뤫 
ȡ˻ꤷƤʤǡauto_pathꤵƤʤΤǤ礦

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1Q- A/UX 3.0 ǡܥơ֥뤬դ衤Ȥåϡ
äƲ򤹤Ρ

A1Q. AU/X ǤΥΥѥ뤬äʤС ǥեȤΥơ֥Υ
ĥ -A {factor}  󥫤˻ꤷʤФʤޤ 
{factor} ϡǥեȤΥβܤˤ뤫ꤷޤ -A 2 
Ƥߤޤ礦 ΰܿ˴ؤ뤳ʾξܺ٤ϡ Walter B. Kulecz  
(wkulecz@medics.jsc.nasa.gov) ϢɤǤ礦

    ܼ
------------------------------------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ:
Subject: -Q1R- SunOS ƥư xmkmf  Makefile Ƥʤ
ΤϡΡ

A1R. ˿¿Υ桼顤 OpenWindows ° imake/xmkmf ȤȤ
ݤ𤬤ʤƤޤ н褹ˤϡ
comp.sys.sun.* ʹƸΤ褤Ǥ礦 ϡX11R6 imake§
ȯͽ¬ͤ⤤ޤ ٤ƤδΤ imake ƥץ졼ΥХ
ƤϻĤǤ礦 Ĵ٤ƤߤƲ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.1- wish ץꥱ¹Ԥˤ - wish ΥץץȤ
ʤǤɡ ޤϡpermition denied Ȥnot found Ȥ褦ʥ
顼ФʤǤɡ

A2.A.1. ۤȤɤΥƥǤϡ󥿥ץ꥿ϥեѥǻꤹɬפޤ 
äơwish ץȤƬ򡤼ͤ˻ϤƤϤޤ


  #! wish -f

ξ塤¿ Unix ƥǤϡ #! Ԥ˽񤱤ʸĹκĹ¤
ޤ ⤷¤ۤƤޤȡ̤ưϤʤǤ礦 Ǥwish 
ΥɤǤϡΤ褦ˤƤ⤤ޤ


  #! /Ĺץ̾//Ĺ/ѥ̾/bin/sun4/wish -f

ԤûˤƤޤ礦32 ʸʲ侩ޤ kennykb@carla.crd.ge.com
(Kevin B. Kenny)ϡ ץȤλϤιԤʲΤ褦ˤ뵻侩Ƥޤ:


  #!/bin/sh
  # This line makes the next one a comment in Tcl \
  exec /path/to/wish "$0" ${1+"$@"}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.2- 8 ӥåȥ顼ʲΥޥưˤϡ

A2.A.2. Tk ϡ8 bit ̤Υ顼꡼Ǥưޤ ⤷
ʴĶư褦ȤʤСTk/wish ΥΡ ӥåȡץ졼
Ĵ٤뤿˸ƤӽФƤƤ DefaultDepthOfScreen ؿεҤƤ
õޤ ơ1 bit ץ졼Ǥ뿶򤹤褦񤭴뤫 
뤤ϡTcl ѿƻ뤹ץƤӽФ褦˽񤭴ޤ 
Ĥ֤ޤޤǤ礦

̤򤷤ȤơѤƤ륵Фˡƥ顼Τ褦ʡ ̤Υӥ
/顼ǥ뤬ȤʤĴ٤Ƹ꤬ޤ ͤʥǥ 1 Ĥϡ
Tk 褯ưǤ礦

ξ󶡤Ƥ줿 Nathaniel Borenstein (nsb@thumper.bellcore.com)˴
ޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.3- app-defaultsեwishץꥱΥ꥽ꤹ
ˤϡ

A2.A.3. option ޥɤΥɥȤɤߤޤ礦 ʤСΤ褦
ˤƼ¸Ф褤ȤʬȦǤ ʤǤϥץ̾ xwf Ȥ
ޤ

˼ 2 Ĥѥץ򡤥饤֥֤ޤ


# envVal envValName
#   Ķѿ envValName դ֤ͤ¸ߤʤ
#   {} ֤
proc envVal {envValName} {
  global env
  if [info exists env($envValName)] {return $env($envValName)} {return {}}
}

# loadAppDefaults classNameList ?priority?
#   ꤷ饹̾ className ˰פ app-defaults ե
#   X ġ륭åȡȥ󥷥 ˻ꤵ줿֤õ
#   줿ץ饤ƥ (ǥեȤ startupFile) ǥɤ롥
proc loadAppDefaults {classNameList {priority startupFile}} {
  set filepath "[split [envVal XUSERFILESEARCHPATH] :] \
                [envVal XAPPLRESDIR] \
                [split [envVal XFILESEARCHPATH] :] \
                /usr/lib/X11"
  foreach i $classNameList {
    foreach j $filepath {
      if {[file exists $j/$i]} {
        option readfile $j/$i $priority; break
      }
    }
  }
}

ʤС㤨СΤ褦 xwf Υ˵Ҥޤ


option add Tk.BoldFont "*-lucida sans-Bold-R-Normal-*-100-*" widgetDefault
loadAppDefaults {xwf XWF} userDefault

ϡץΥǥեȤޤꤷƤޤ ơ桼Υǥե
ȤΥ꥽ͤ˻ꤵ줿ǥեͤɤ߹ߡ Ǹˡ衤뤤ϡ
Ū app-defaults ꥽ɤ߹ߤޤ  ¹Ի˥桼
ͤꤷʤȤ褦ʥץ xwf Ȥ߹Ǥǽ
Ǥ礦

Chris Milam (ɥ쥹Ծ) ϡ ͡긵 app-defaults եޡ
 X11R5 ε򥵥ݡȤ褦ѹ loadAppDefaults󶡤Ƥ



# loadAppDefaults classNameList ?priority?
#   Searches for the app-default files corresponding to classNames in
#   the order specified by X Toolkit Intrinsics (R5), and loads them with
#   the priority specified (default: startupFile).
proc loadAppDefaults {classNameList {priority startupFile}} {
  set lang [envVal LANG]
  if {[string length $lang] > 0} { set lang /$lang }
  set filepath "\
                /usr/lib/X11${lang}/app-defaults \
                [split [envVal XFILESEARCHPATH] :] \
                [envVal XAPPLRESDIR]${lang} \
                [split [envVal XUSERFILESEARCHPATH] :] \
                "
  foreach i $classNameList {
    foreach j $filepath {
      if {[file exists $j/$i]} {
        option readfile $j/$i $priority;
      }
    }
  }
}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.4- ե̾ꤸʤӥåȥޥåסѥľܥޥ
饤Ǥޤ󤫡

A2.A.4. 1992 ǯ 6 ߤΤȤ̤ĥ Tk ǤϡԲǽǤ ϡ
ѥ 16 ʤɤȤ󶡤Ƥ뤿Ǥ ե
뤷ޤ ͤʵǽ󶡤ƤĥȤ⤢ޤ 
(BLT ϡ 1 ĤǤ)

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.5- Motif 桼󥿥ե󶡤ˤϡ

A2.A.5. Tk ϡν Xt ġ륭åȤȤäƤޤ Τᡤ libXm.aΥ롼
ˤ븷̩Motifؤ󶡤Ͻޤ ʤ顤Tkκ
Ԥϡ MotifΥ桼󥿥եηѤƤޤΤǡ TkǡMotiof
ͤʥ󥿥ե褦ȤΤ ñǤ뤳ȤʬǤ礦

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.6- OpenLook 桼󥿥ե󶡤ˤϡ

A2.A.6. ǰʤ顤Tk ϸߤνꡤ Xview ١ Xt ١ΥåȤ桼
󥿥եѤƤޤ äơOpenLook ˽򤷤(뤤ϡ̤
)󥿥ե򰷤ϡ ̤񤷤Ǥ礦

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.7- Tk 3.3 ȵưˤ - ƥΥ顼Ф
Ǥɡ

A2.A.7. Ʊ˺ȤơTk 3.3  send ΤǤפȤ 
xauth ϡɤäƻȤΤǤפʤɤȤä䤬ޤ

Tk 3.3 ǤϡX11  xauth ƥȤƤޤ ϡ
ʴĶ󶡤Ƥޤ 桼ˡ̾¿׵ᤷޤ 桼
ϡXauthority ե(̾ $HOME/.Xauthority)ʤФʤ餺 ޤ
X Ф -auth ץˡ  Xauthority եΥե̾դ
Ƶưɬפޤ xauth 䡤륽եȥλȤե
εˡ˴ؤܺ٤ϡ ѤƤ륷ƥ X11 ɥȤ򻲾ȤƲ
 xauth ʸϤϡʲǽǤ
ftp://ftp.aud.alcatel.com/tcl/docs/Xauthority

ե tk3.3/Makefile.in 򡤰ʲΤ褦˥ȥȤ뤳Ȥǡ Tk  
xauth ˤ餺ưǽǤ


# To turn off the security checks that disallow incoming sends when
# the X server appears to be insecure, reverse the comments on the
# following lines:
#SECURITY_FLAGS =
SECURITY_FLAGS = -DTK_NO_SECURITY

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.A.8- C ץफ Tk ץȤƤӽФˤϡ

A2.A.8. ǶᡤĤδñ꤬comp.lang.tcl Ƥޤ Eric
Bleeker (ericbl@paramount.nikhefk.nikhef.nl)ϡ ῼΥѥå
˸ƤƤޤ
ftp://ftp.aud.alcatel.com/tcl/code/tkHelloWorld*

Υץϡ Tcl  Tk 饤֥ꡤ إåեʤɤ󥹥ȡ
ѤǤ뤳ȤȤƤޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.B.1- ǥեȤΥ饹Хɤѹˤϡ

A2.B.1. Tk åȤФ롤ƤΥ饹Хɤϡ $tk_library/tk.tcl 
ǽޤ Υե ȼΥХɤ򥤥ץȤݤλ
ˤɤǤ礦 㤨СΥɤϡƤΥꥹȥܥåФơ 
ܥ 1 󶡤ɥå-ǽ ޥܥ 3 Ǥ󶡤褦
ˤΤǤ


  bind Listbox <3> {%W select from [%W nearest %y]}
  bind Listbox <B3-Motion> {%W select to [%W nearest %y]}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.B.2- Хɤˤϡ

A2.B.2. "bind"  ʸΥޥ̾˼¹Ԥޤ 㤨Сȥꡦ
åȤDelete̵ˤˤϡ ʲΤ褦ˤޤ


        bind Entry <Delete> {}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.B.3- Sun ΥܡɤȤˤϡ

A2.B.3. ꤹˤϡ<R10> ǤϤʤ <Left> ʤɤȤʤФʤޤ 
X11 ĶǤϡϡ keysym ǻꤵޤ 桼ϡxmodmap -pk 
ޥɤ xev ޥɤȤǡߤ겼ǥܡɾΥ˳դ
Ƥ keysym ͤɤʤΤǤ뤫ΤǤޤ

keysym Tk ˤȤäơλˡΤƤʤΤǤä硤 ե 
ks_names.h ǡб뤳ȤǤޤ бˡդʤ
ФʤʤȤϡ ¾ͤƱͤν򤷤Ƥ櫓ǤϤʤȤǤ 
ʤ顤줬 keysym 줵ͣˡǤ

󤻤Ƥ줿 Wayne Christopher (faustus@CS.Berkeley.EDU) ˴դ


    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.B.4- Tkץꥱǥ롼ȤΥޥХɤư褦ˤ
ϡ

A2.B.4. mwm ͤʤĤΥɥޥ͡Ǥϡ Tk Ȥʤ褦ʥ
ΥХɤޤ Υɥޥ͡νե 
(㤨 ~/.mwmrc ʤ) ¸Ƥơ ưƤͤΤ򥳥ԡƸޤ


˵Ťʾ󤻤Ƥ줿 Brad Morrison (brad@NeoSoft.com)˴դ


    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.B.5- ¸ߤƤХɤˡɲäˤϡ

A2.B.5. ºݤ줿ϡʲ̤ꡥ

    ɤʥϤФƤ⡤ɥΥȥС򹹿褦ˡ 
    ƥȡåȤХɤ褦ȤơΤ褦˽񤤤Ƹ
    


        text .textWin ...
        bind .textWin <Any-KeyPress> {+wm title . "Nextedit - edited"}

    ϡɥΥƥȤԽѤǤ뤫ɤ 桼
    Τ餻뵡ǽ򥵥ݡȤޤ  "+" Ǥϡɤ˹
    Ǥ礦 ʽƸޤѡ顼˽
    뤫 wm ޥɤ˥ХɤüäƤޤ ƥȤ
    ϤǤʤʤ뤫ˤʤäƤޤޤ ϤƥȤ
    Ϥ ġȥС򹹿ˤϡ ̤ΥХɤ
    äɬפȻפΤǤɤФ褤ΤǤ礦
Gerald W. Lester (gwl@cpu.com)ޤ:

    饹ΥХɤ򡤥åȻΥХɤ˹ߤɬפ
    ޤ ƤߤƲ


   bind .textWin <Any-KeyPress> Text
   bind .textWin <Any-KeyPress> {+wm title . "Nextedit - edited"}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.1- ץꥱ libXt ȤǤ

A2.C.1. Tk2.1  Xt ϡۤʤä X Ȥ³򤷤ƤꡤXtAppNextEventϡ X 
³ (Tk ) Ԥʤͤ˥֥åƤޤޤ  1 
Ĥˡϡ


   ConnectionNumber(Tk_Display(tk_window));

ȤäơTk ³ʥФơ XtAddInput ȤäƤ Xt Υ٥ȥϥ
ɥȤƵ뤳ȤǤ XtAddInput ΥХåؿϡ 
Tk_OneEvent(1) ¹Ԥץåפޤ Xt ˵Ƥʤ Tk 
Υեɤ߹ळȤϡȤʤ뤫Τޤ

ξ󤻤Ƥ줿Joe Wang (joe@astro.as.utexas.edu) դޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.2- X11 Υѹˤϡ

A2.C.2. M. G. Christenson (mgc@cray.com) Ҳ𤷤Ƥ줿 ʲ˼
ޤ

Ѳǽʥ̾ΰĴ٤뤿ˡ /usr/include/X11/cursorfont.h 
Ȥޤ ̾ϡεҤ顤Ƭ 'XC_' äΤǤ

ʲ˼ΤϡΥץꥱǡ ư˥ηѤ '
busy' ץǤ ¹ԤޥɤˤƤ֤ǡޥ
μ¹Ԥλޤǡ ץޡѹƤޤ (¹Ԥ
) ɥǤϡ ̾ηȤʤ
դƲ


  proc busy {cmds} {
    global errorInfo

    set busy {.app .root}
    set list [winfo children .]
    while {$list != ""} {
        set next {}
        foreach w $list {
            set class [winfo class $w]
            set cursor [lindex [$w config -cursor] 4]
            if {[winfo toplevel $w] == $w || $cursor != ""} {
                lappend busy [list $w $cursor]
            }
            set next [concat $next [winfo children $w]]
        }
        set list $next
    }

    foreach w $busy {
        catch {[lindex $w 0] config -cursor watch}
    }

    update idletasks

    set error [catch {uplevel eval [list $cmds]} result]
    set ei $errorInfo

    foreach w $busy {
        catch {[lindex $w 0] config -cursor [lindex $w 1]}
    }

    if $error {
        error $result $ei
    } else {
        return $result
    }
  }

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.3- ɥνŤʤ岼ˤϡ

A2.C.3. ϡ褹٤ (ۤȤ̵¤) ꥹˤǤ ⤷
֤ʤС褹륳ɤ񤤤ƸƲ ˴ޤ
礦

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.4- ɥƥޥåפˤϡ

A2.C.4. "wm deiconify <windowid>" Ȥޤ礦

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.5-  Tk  X11 ץꥱǡTk ǥ֥ɥȤ
ϡ

A2.C.5. Wayne A. Christopher (faustus@CS.Berkeley.EDU)ˤ:

    Tk ǡȥåץ٥륦ɥ ޥåפ (wm
    withdraw) ޤ Ƥơ¾ΥɥΥ֥
    ˤʤ褦ˡ ΥɥοƤդѤƤޥåפƤ
    ޤ Tk ץꥱ̥ץǤäȤԤäƸ
    ޤ Ǥ⡤ƱץǤäʤСơΥġ륭åȤ
    褦Ȥơ ٥ȥ롼פ꤬Ǥ礦

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.6- ¾ΥåȤޤե졼ǡ <Enter><Leave>Х
ɤˤϡ

A2.C.6. John Ousterhout (ouster@tcl.eng.sun.com) ˤ:

    <Enter>  <leave> ٥Ȥϡ "%d" Ȥäƥ롤־
    ١ץեɤäƤޤ Υեɤ "NotifyInferior" 
    ǤʤС ޥݥ󥿤ҥɥꤹ뤳Ȥ̣
    ޤ (ºݡ٥Ȥ륦ɥΰαޤޤ) 
    ץȤǾܺ٥եɤåǤ褦ˤ٤ǡ ͤ 
    NotifyInferior ʤХ٥Ȥ̵뤷Ƥޤ ܺ٥եɤ
    ʾ Enter/Leave ٥ȤˤĤƤϡ Xlib Υɥ
    򻲾ȤƲ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.7- Xt  Tk/Tcl ֤Ǻ祤󥿥饯󤹤ˤϡ

A2.C.7. [YIP Chi Lap [Beta] (h9118101@hkuxa.hku.hk) ˤ]

    Tk  Xt Υɥδ֤ľܥ󥿥饯󤹤 (㤨СXt 
    ǥѥå줿롼 Tk Υɥ褹Ȥ) ͤʤ
    ΤǤϤޤ󤬡 ξԤȤꤢư롤Ť٥ȥ롼
    פΥ롼 (ޤ) 񤤤Ƥޤ


  XEvent xevent;
  for (;;)
  {
    if (XtAppPending(appcontext))
    {
      XtAppNextEvent(appcontext,&xevent);
      XtDispatchEvent(&xevent);
    }
    Tk_DoOneEvent(TK_DONT_WAIT);
  }
[David C Mudie (mudie@radon.eecs.berkeley.edu) ˤ]

    ãϡ˼ᥤΥ٥ȥ롼פȤäƤޤ Ūʥ
    ǥϡXt ΥСͥ Tk ΥХͥξ
    륤٥Ȥƻ뤷 (٥Ȥ褿ʤ) 饤֥Υǥ
    ѥåƤ֤ȸΤǤ

    ˼ɤҤϡѤäƤϡ ȽľƤ
    ɬפޤ 󥯥롼ɥեλ䡤Хѿ
    Ϸ礱Ƥޤ


/* Allow Tcl/Tk and Xt to work at the same time. */
void tkGo(void)
{
  extern Widget topLevel;
  int width = ulimit(4, -1);
  fd_set readfds;
  struct timeval timeout;
  int nfds;
  int tkfd = ConnectionNumber(Tk_Display(mainWindow));
  int xtfd = ConnectionNumber(XtDisplay(topLevel));

  Tcl_VarEval(interp, "update", NULL);
  while (1) {

    /* Select on X server connections to wait for event. */
    /* Timeout every half second to allow processing of non-X events */

    FD_ZERO(&readfds);
    FD_SET(tkfd, &readfds);
    FD_SET(xtfd, &readfds);
    timeout.tv_sec = 0;
    timeout.tv_usec = 500000;

    nfds = select(width, &readfds, NULL, NULL, &timeout);
    if (nfds < 0 && errno != EINTR) {
      perror("select");
    } else if (nfds == 0) {
      /* printf("timeout\n"); */
    }

    while (XtPending()) {
      XtProcessEvent(XtIMAll);
    }

    while (Tk_DoOneEvent(1)) {
      /* do nothing */
    }
  
    if (mainWindow == NULL) {
//      Tcl_DeleteInterp(interp);
//      Tcl_DStringFree(&command);
      Tcl_Eval(interp, "exit");
      return;
    }
  }
}
[Davide Frisoni (frisoni@faw.uni-ulm.de) ˤ]

    ۤʤäץꥱ֤̿ˡ Xt ΥץѥƥѤ뤳Ȥ
    Ǥ礦

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.8- ResizeRequest ٥ȤХɤˤϡ

A2.C.8. Martijn Figee Huffi Marcel Huefken (huffi@dutncp8.tn.tudelft.nl) 
ˤ:


:    bind .frame <ResizeRequest> {puts stdout "resise\n"}
: ǡ.frame ꥵǤɸϤ "resize" Ϥʤ
: ȤƤޤäƤΤǤ

    ʲΤ꤫


      bind .frame <Configure> {puts...}

    򡤻ƲưϤǤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.9- 顼å 'bad geometry "+0+0": expected
widthxheight' 򤹤ˤϡ

A2.C.9. 餯X11 Υ꥽ ˼褦ʷǻꤷƤΤȻפ
ޤ


        *geometry: +0+0

ޤϡ


        Tk*geometry: +0+0

Tk Ϥη򹥤ߤޤ󡥤Ǥ顤λ뤫 Τ褦ʷ
Ǵ˻ꤹɬפޤ


        widthxheight{+-}xoffset{+-}yoffset

򼨤ʤ顤


        Tk*geometry: 200x200+0+0

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.10- ¾Υץꥱ󤫤"send"̵뤹ˤϡ

A2.C.10. Tom Poindexter (tpoindex@nyx.cs.du.edu) ϡʲΤ褦˽Ҥ٤Ƥޤ:

    "send"ޥɤƤޤޤ礦С󥿥ץ꥿̾
     X11ץѥƥư(¾wish顤"winfo interps"Ǹʤ
    ) ¾"send"դʤʤޤsendޥɤκ
    ϡ Τ褦ˤƹԤޤ


   rename send ""

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.C.11- `wm'`winfo'ΰ㤤ϲǤ

A2.C.11. fms@cam-orl.co.uk (Frank Stajano) Ƥޤ:


> wishǰʲΤ褦˼¹Ԥȡɥ20ԥ벼˰ưޤ
> %wm geometry . [winfo geometry .]
> ʤʤΤǤ礦

    "wm geometry"ϥɥޥ͡㤬ͤƤ른ȥ֤
     ()"winfo geometry"ϡTkιͤƤ֤ͤޤ

    Τˡ"wm geometry"ȥåץ٥롦åȤǤ ư
    ʤΤФơ"winfo geometry"ϡƤΥåȤư
    Ǥ ơȥåץ٥롦åȤФƻ
    硤 "winfo"Ȱۤ"wm"ϡȥСΰ(ξ20
    ԥ)ޤ ޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.D.1- listbox ꥵˤϡ

A2.D.1. ŪʺˡȤơwm min/maxsize Ȥޤ礦 ʲ˼Τϡ
ѹǽʥꥹȥܥåǤ


        #!/usr/local/bin/wish -f
        wm minsize . 20 20
        wm maxsize . 1152 900
        pack append . [listbox .l -borderwidth 2 -relief raised] {expand fill}

ƥȥåȤǡȥѹˤ⡤ ƱˡѤ
ޤ

John C Ellson (ellson@ontap.att.com) ˴ա

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.D.2- Ʊˡ2 Ĥ٤ʤܤ򤹤ˤϡ

A2.D.2. Tk ǡ٤ʤȥǽѹˡϡ Marc R. Ewing 
 Listbox.patch 򻲾ȤƲ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.D.3- Ʊˡ1 İʾιܤ򤹤ˤϡ

A2.D.3. Tk ΥꥹȥܥåΥǥեȤǤϡ ʪ X Υ쥯
Ƴ˻ȲǽȤƤޤ ϡƱ 1 ĤԤޤ

Tk Ρλͤѹˤϡꥹȥܥåˡ -exportselection
false ꤷƤޤ 뤤ϡޥ


  option add *Listbox.exportselection false

򡤥ץȤκǽ˽񤤤Ƥޤ

󶡤Ƥ줿 David Herron (david@davids.mmdf.com) ˴ա

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.D.4- ꥵǽʥꥹȥܥåβüζϤʶäˤϡ

A2.D.4. ޤΤˤƸޤ礦 ϡꥵǽʥꥹȥܥå
ꤿ ǾˤäݤʤȤΤǤ 
椨ꥹȥܥå岼˹ (fill expand) ͤ˥ѥåƤꡤ 
ɤꤷ (η̡ɥΥꥵϹñ̤Ȥʤޤ) 1x1 ν
ȥǥǥեȤ񤭤Ƥޤ ͤ (Υɤ򡤼Ȥ
¹ԤꥵƸƲ) ơ褷褦ȤΤǤ ....


  listbox .l -geom 1x1 -setgrid 1 -yscrollcommand ".s set" -relief sunken -bd 2
  scrollbar .s -command ".l yview"
  pack .s -side right -fill y
  pack .l -side top -fill both -expand 1
  .l insert end one two three four five six seven eight nine ten "THE END"

ꥹȥܥåˡɽڤʤƥब¸ߤˤϡ դȾԤΤ
֤Ƥޤޤ ϡ桼˲ɽƤΤȺ𤵤
븵ˤʤäƤޤޤ ʤǡʤΤǤ礦

ʲǤ

ꥵΡɥȤ򸫤Ƹޤ礦 ʤ襤
С ̤ޤäƶ˾ΥɥɽΤ狼Ǥ
 ޤǾ׵ᤷƤ顤 ꥹȥܥåΥȥ
λΡ ϤդޤǤѤǤ֤ޤ η̡ꥵ
ʸñ̤󤵤ޤǤϡ̵ʤޤ

뤳ȤϡºݤɽԤǡ åȤ -setgrid Ԥ
ȤǤ Ǥϡ-geom 1x2 ꤹȡޤⲽޤ

ξ󶡤Ƥ줿 Frank Stajano (fms@cam-orl.co.uk)˴ա

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.D.5- ĤΥС2ĤΥꥹȥܥå򥹥뤵
ˤϡ

A2.D.5. Сˤϡ (ꥹȥܥåƥȡȥʤɤ) 
ǽʥåȤФơ Сư줿ˡ餬ɤ
(ɽ)֤֤뤫𤲤 '-command' ץ󤬤ޤ Υޥ
ɤϡ̾ϼηǻѤޤ


     scrollbar .scroll -command {.scrollable_widget yview}

ޤϡ


     scrollbar .scroll -command {.scrollable_widget xview}

Υޥɤ¹Ԥˡ (ƤФ)ʸȿͤղä
 ͤϡǽåȤ 켫Ȥΰ֤ɤưФ褤
ꤹ롤 Ūʰ֥ǥåǤ äơ1ĤΥС2
(ޤϤʾ)ΥåȤ椹ˤϡ ñ˥륳ޥɤȤ
ץѤ Υץ˾̤ʣΥåȤ򥹥
뤵Ƥޤ Υץϡ1Ĥΰ(ʤ֥ǥå
)Ǥ礦 㤨С


     proc ScrollCommand {index} {
         .lb1 yview $index
         .lb2 yview $index
         .lb3 yview $index
     }
 
     scrollbar .scroll -command ScrollCommand
 
     listbox .lb1 -geometry 4x5 -yscrollcommand {.scroll set}
     listbox .lb2 -geometry 4x5 -yscrollcommand {.scroll set}
     listbox .lb3 -geometry 4x5 -yscrollcommand {.scroll set}
     pack .scroll .lb1 .lb2 .lb3 -side left -fill y
 
     .lb1 insert 0 a b c d e f g h i j
     .lb2 insert 0 0 1 2 3 4 5 6 7 8 9
     .lb3 insert 0 A B C D E F G H I J

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.D.6- ꥹȥܥåƱ1ĤǤΤǽȤˤϡ

A2.D.6. tkޥɤΡ"tk_listboxSingleSelect"Υޥ˥奢롦ڡ򻲾ȤƲ
 ϡΤ褦ˤѤޤ


  listbox .l
  tk_listboxSingleSelect .l

ȡ .lΥХǥ󥰤Ʊ1ƥषǤʤ褦ѹ
ޤ

    []
      Tk4.0˴ؤ뵭ҤȻפޤǽŪTk4.0λͤȿǤ  
      ΤϡǤ긵Φ2ǤˤСԤˤϰʲΤ褦ˤ Τ
       ޤ

      
               .l configure -selectmode single

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.E.1- ХϤˤϡ

A2.E.1. ǿ Tk ΥХˤϡƤ򵭽ҤեǤ롤 
save ֥ץդƤޤ ǥեȤǤϽϤϡץ벽 
PostScript Ǥ xpm3 ǽϤ뤳Ȥޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.E.2- ݥꥴʱߤͤʷˡХδĤ ʬǰϤ
줿ΰɤĤ֤ޤ

A2.E.2. 餫ǰϤޤ줿ΰɤĤ֤ʤСɡ ݥꥴ
Ȥޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.E.3- ХΥ֥ȤνŤʤ岼ꡤХ
Υɥ֥Ȥξ˿޷ޤ

A2.E.3. ޤԲǽǤ

Jesper Blommaskog (d9jesper@dtek.chalmers.se).

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.E.4- ХΥѹ򸡽Фˤϡ

A2.E.4. Nathaniel Pryce (np@hpl.hp.co.uk) ˤ:


< ŪԤ褦褵줿֥ȤΤ륭Х (
< Сפ䡤ϿޤߤʤΤǤ) Τ륦ɥޤ
< Υȥåץ٥륦ɥꥵǽˤΤǤ
< ꥵˤϥХΥ֥Ȥ򡤥ꥵ줿礭
< ˽ä礭ѹƤꤿΤǤΤȤ֥Ȥ
< ѹΤϤǤޤν򤤤ĵư뤫Υߥ󥰤
< Ф뤳Ȥ褺˺äƤޤɥꥵ줿ΥΡ
< ƥեϡɤͤФ褤ΤǤ礦

Nat :

    ޥɤ Configure ٥Ȥ˥Хɤɬפޤ 㤨С
    Τ褦ˡФ褤Ǥ礦


        proc config {w h} {
           puts stdout ".canvas - width = $w, height = $h"
        }

        bind .canvas <Configure> "config %w %h"

  .canvas - width = 224, height = 251
  .canvas - width = 224, height = 151
  .canvas - width = 224, height = 243
  # and so forth

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.E.5- ХȥꥹȥܥåƱ 1 ĤΥС
뤵ˤϡ

A2.E.5. David Herron (david@twg.com) ˤ:

    륳ޥɤΥϥɥ񤭴Ƥɬפޤ 
    `scrollbar' ޥ (ȡ`listbox' ޥɤ) Υޥ󡦥ڡ 
    ޤɤߤޤ礦 ȡscrollbar ޥɤǼ¹Ԥͤˡ 
    Τ褦ˤ scrollcommand ɲäФ褤ȤʬǤ礦


        .f.c yview; .f.lb yview <offset>

    ǸˡκǽŪʤΤդäƤޤ Υɤϡ
    뤬ֱˤʤ館פǤͥƤޤ


        listbox .l1     -relief sunken -yscrollcommand {
                        scrollMultiple_y { .l1 .l2 .l3 } .vs
                }
        listbox .l2     -relief sunken -yscrollcommand {
                        scrollMultiple_y { .l1 .l2 .l3 } .vs
                }
        listbox .l3     -relief sunken -yscrollcommand {
                        scrollMultiple_y { .l1 .l2 .l3 } .vs
                }
        scrollbar .vs   -relief sunken -orient vertical \
                        -command {setMultiple_y {.l1 .l2 .l3}}

        bind .l1 <1> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l1 <B1-Motion> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l1 <Shift-1> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l1 <Shift-B1-Motion> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }

        bind .l2 <1> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l2 <B1-Motion> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l2 <Shift-1> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l2 <Shift-B1-Motion> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }

        bind .l3 <1> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l3 <B1-Motion> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l3 <Shift-1> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }
        bind .l3 <Shift-B1-Motion> {
                selectMultiple {.l1 .l2 .l3} [%W nearest %y]
        }

proc scrollMultiple_y {lists vs total window first last} {
        if {[expr $first+$window] < $total} {
                set first [expr $total-$window]
                set last  [expr $first+$window]
        }
        setMultiple_y $lists $first
        $vs set $total $window $first $last
}
proc setMultiple_y  {lists index} {
        foreach l $lists { $l yview $index }
}
proc selectMultiple {lists index} {
        foreach l $lists { $l select from $index }
}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.E.6- ѿ˳Ǽ줿ɸΥꥹȤ ݥꥴ(䡤¾Υ
ƥ)˻Ѥˤϡ

A2.E.6. Thomas Accardo (tja@cpu.com) 񤤤Ƥޤ:

    (Tk٥ǤϤʤ)Tcl˴ؤʤΤǤ Ǥ
    ˤ褯ʹǤΤǲ⤷Ƥߤޤ礦

    ХƥƤϡˤν֤ 
    2ĤʾκɸɬפȤޤ ͤ򤽤줾̡
    ѿ˳ǼƤꡤȤäƤʤС ХΥ
    ñʤΤǤ㤨:


    .myCanvas create rectangle $x1 $y1 $x2 $y2 -fill blue
    .myCanvas create text 100 250 -text "Hello, world"

    Ǥ¿ξˤϡɸͤϸġѿ˳ǼƤϤʤ
    ΤǤ ϡե뤫ɤ߹ꡤ餫η׻롼
    󤫤ͤǤäꡤ ¾κɸΥꥹȤФꤷ
    Ĥѿ˳Ǽ줿ꥹȤ ȤǤ礦ξ硤
    Хޥɤ¹Ԥˡ ɸΥꥹȤʬ򤷤Ƥͤ
    ʤޤ ˤϡ`eval'ޥɤȤäƤޤ ʲ˴
    򼨤ޤ礦


     canvas .myCanvas
     pack .myCanvas

     #
     #  1
     #
     # Ϳ줿2ɸΥꥹȤǥƥȡƥ
     #
     set coords {150 50}
     eval .myCanvas create text $coords -text hello

     #
     #  2
     #
     # ʲ˼ץϡͿ줿濴ˡꤵ줿
     # ⤵4ѷκɸ֤ʲѤ롥
     #
     proc CenteredRectangle {centerX centerY width height} {
         return [list [expr $centerX - $width  / 2.0] \
                      [expr $centerY - $height / 2.0] \
                      [expr $centerX + $width  / 2.0] \
                      [expr $centerY + $height / 2.0]]
     }
     eval .myCanvas create rectangle [CenteredRectangle 80 5 10 75]
     eval .myCanvas create rectangle [CenteredRectangle 5 80 75 10]
     eval .myCanvas create oval [CenteredRectangle 140 110 75 50]


     #
     #  3
     #
     # ʲΥ롼ϡꤵ줿濴ˡͳѷǰϤޤ줿ƥ
     # ƥ롥
     #
     proc CenteredBoxLabel {w centerX centerY text} {
         set id [$w create text $centerX $centerY \
                    -text $text \
                    -anchor center]
         eval $w create rectangle [$w bbox $id]
     }
     CenteredBoxLabel .myCanvas 33 42 "Hello, world"


     #
     #  4
     #
     # ȷ
     #
     set coordList {}
     loop x 0 314 {
         lappend coordList $x [expr sin($x/25.0) * 50 + 100]
     }
     eval .myCanvas create line $coordList

    []
      loopʸɸTcl/Tkˤϴޤޤޤ ǤʲΤ褦˽񤱤Ǥ 
      

      
               set coordList {}
               for {set x 0} {$x < 314} {incr x} {
                   lappend coordList $x [expr sin($x/25.0) * 50 + 100]
               }
               eval .myCanvas create line $coordList

    㤨 {{25 10} {30 12} {35 14}} ͤʺɸȤΥꥹȤȤ
    ˤϡ ʿóʥꥹȹ¤ľƤȤƥåפɬפ
    ʤޤ ʲƤߤޤ礦:


     #
     #  5
     #
     # 2ǥꥹȤΥꥹȤϤޤ ...
     #
     set coordPairs {{25 10} {30 12} {35 14}}

     #
     # ... (ҤΤ褦)οΥꥹȤηʿó
     #
     set flatList [eval concat $coordPairs]

     #
     # ϡޤǤƱ
     #
     eval .myCanvas create line $flatList

    ޤȤޤ礦 evalconcatlistޥɤΥɥȤտ
    ɤС ɸ`canvas create'ޥɤ ¹ԲǽTcl
    ޥɷˤޤȤᤢ뤳Ȥ褦ˤʤޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.1- ¹ԤƤ륤󥿥ץ꥿̾Τˤϡ

A2.F.1. George A. Howlett (george.howlett@att.com)ϡ winfo Υޥ˥奢
ŦƤޤ winfo name . ǡߤΥץꥱ̾뤳Ȥ


    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.2- ƥȥåȤ -relief ưˤϡ

A2.F.2. Owen Rees (rtor@ansa.co.uk)ˤС ֥ܡ 0 Ǥʤɬ
פפȤȤǤ ˤϡΤ褦ˤޤ


   text .t -width 20 -height 20 -relief sunken -borderwidth 4

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.3- ܥǥǤ륦ɥˤϡ

A2.F.3. ԤˡϡʤȤ 2 ġޤ 1 ĤϡTcl 桼£
ɡ֤롤 ϥѡƥȡåȤȤˡǤ 
ݤˤɤ뤫ϡtcl-faq/part4  tcl-faq/part5 򻲾ȤƲ

ơ˼ɤϡMichael Moore (mdm@stegosaur.cis.ohio-state.edu)
󤻤줿 TkΤߤǤԤˡǤ


  #! /bin/wish -f
  #
  # This demonstrates how to create a scrollable canvas with multiple
  # buttons.
  #
  # Author : Michael Moore
  # Date   : November 17, 1992
  #

  #
  # This procedure obtains all the items with the tag "active"
  # and prints out their ids.

  proc multi_action {} {
    set list [.frame.canvas find withtag "active"]
    puts stdout "Active Item Ids : "
    foreach item $list {
        puts stdout $item
    }
  }

  # 
  # This simulates the toggling of a command button...
  # Note that it only works on a color display as is right now
  # but the principle is the same for b&w screens.
  # 
  proc multi_activate {num id} {
    
    set tags [.frame.canvas gettags $id]
    if {[lsearch $tags "active"] != -1} {
        .frame.canvas dtag $id "active"
        .frame.canvas.button$num configure \
            -background "#060" \
            -activebackground "#080" 
    } else {
        .frame.canvas addtag "active" withtag $id
        .frame.canvas.button$num configure \
            -background "#600" \
            -activebackground "#800"
    }
  } 

  proc setup {} {
     frame .frame

     scrollbar .frame.scroll \
         -command ".frame.canvas yview" \
         -relief raised

     canvas .frame.canvas \
         -yscroll ".frame.scroll set" \
         -scrollregion {0 0 0 650} \
         -relief raised \
         -confine false \
         -scrollincrement 25

     pack append .frame \
         .frame.scroll    {left frame center filly} \
         .frame.canvas    {left frame center fillx filly}

     pack append .\
         .frame   {left frame center fillx filly}

     button .frame.canvas.action  \
         -relief raised \
         -text "Action" \
         -command "multi_action"
     .frame.canvas create window 1 25 \
         -anchor w \
         -window .frame.canvas.action
     for {set i 2} {$i > 26} {incr i} {
         button .frame.canvas.button$i  \
            -relief raised \
            -background "#060" \
            -foreground wheat \
            -activebackground "#080" \
            -activeforeground wheat \
            -text "Button $i" 
         set id [.frame.canvas create window 1 [expr $i*25] \
            -anchor w \
            -window .frame.canvas.button$i]
         .frame.canvas.button$i configure \
            -command "multi_activate $i $id"
    }
  }

  setup

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.4- ƥȥåȤ Ū˥ꥵ褦pack
ˤϡ

A2.F.4. Spencer W. Thomas (spencer@med.umich.edu)ˤС Τ褦ˤɬ
뤽Ǥ


  wm minsize . 0 0
  text .text
  pack append . .text {fill expand}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.5- ʸ̾ĥåȤˤϡ

A2.F.5. Ƕ Tk Ǥѹäơ ʸǤϤޤ̾ϥ饹̾Ȥ
褦ˤʤޤ åȤΥ󥹥󥹤ꤹˤϡ ʸ
ǻϤʤФʤޤ󡥤ϡX11 Υ꥽ǡ 饹ȥ󥹥
̤ǽˤƤޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.6- Υܥˤϡ

A2.F.6. Ƕᡤ Micael Salmon (etxmesa@eos.ericsson.se)ƤƤˤ:

     <1993Jun23.065417.4302@ericsson.se>, ν񤤤Ȥˤ:


  |> ϸߡ⤦ 1 Ĥ tn3270 üȯƤΤǤƱ
  |> ܥȤƤޤPF ȥ륭Τ˥ܥ
  |> ΤǤ򡤤ߤƱ礭ˤΤǤ
  |> ֤ǤϤޤǤ˥ӥ
  |> ȥޥåפɽȡʿ֤ƤޤΤǤܥΡ
  |> ʿľ winfo ɤ߼ꡤκ祵ˤ碌ƥ
  |> 줹褦 pad 줿ΤǤɤ⤦ޤưޤ
  |> ӥåȥޥåפȥƥȤѤơƥȥܥǥԥñ̤˥
  |> ꤹΤˡʿľץꥻåȤ뵻Ϥޤʤ
  |> Ǥɤʤĺޤ󤫡

    Jim Wight (J.K.Wight@newcastle.ac.uk) ϡ reqheight  reqwidth 
    Ѥ ƥܥ pack ޥɤ padx  pady ꤹ
    ޤ Jim θˤ:

    䤬Υ롼פƤ ǽβλߤ˷礱ƤΤ䤦
    ˤϤɤ餤ȤФơ reqwidth  reqheight 
    Ȥ褦ˤƤ줿 Tuomas Tuomas J Lukka
    (lukka@klaava.Helsinki.FI)β Ȼפޤ

    ;פäȴˤơ 䤬 Michael ˥᡼뤷ǽǤβˡ
    ʲ˼ޤ


  frame .frame1
  frame .frame2
  button .frame1.a -text "pretty long button text"
  button .frame1.b -text "short one"
  button .frame2.c -bitmap "@/usr/include/X11/bitmaps/xlogo32"
  button .frame2.d -text "tiny"

  set long [winfo reqwidth .frame1.a]
  set short [winfo reqwidth .frame1.b]
  set medium [winfo reqwidth .frame2.c]
  set tiny [winfo reqwidth .frame2.d]
  set pady [expr [winfo reqheight .frame2.c]-[winfo reqheight .frame2.d]]

  pack append .frame1 .frame1.a "filly pady $pady"
  pack append .frame1 .frame1.b "fillx padx [expr $long-$short] filly pady $pady"pack append .frame2 .frame2.c "fillx padx [expr $long-$medium] filly"
  pack append .frame2 .frame2.d "fillx padx [expr $long-$tiny] filly pady $pady"
  pack append . .frame1 {left} .frame2 {left}

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.7- եȤˤ餺Ĥˤ줤¤֥饸ܥˤϡ

A2.F.7. Till Brychcy (brychcy@informatik.tu-muenchen.de)  ʲΤ褦
򼨤ƤƤޤ


        radiobutton .times -text Times -anchor w
        radiobutton .helvetica -text Helvetica -anchor w
        radiobutton .courier -text Courier -anchor w
        pack .times .helvetica .courier -side top -fill x

pack ޥɤˤǤϤʤ åȤ켫Υץanchorwest˻
դƲ ȡpacker դΥܥˤƤޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.8- ʸǥȥꥦåȤƤޤˤϡ

A2.F.8. Peter Kesch (kesch@kappco.kapp-coburg.de) 1 Ĥ󼨤Ƥ
ޤ


  set default "foobar"
  entry .foo -width 25 -state disabled -textvariable default

    ܼ
------------------------------------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ:
Subject: -Q2.F.9- TkǥǥեȤɽѹˤϡ

A2.F.9. TkΥǥեȤɽѤˤϡ X꥽ǡ١ѹɬ
פޤ ϡ(.Xdefaultsեʤɤ) ĤX꥽ɲ/ѹ
˻ȤäƤɤˡäƤԤǤޤ Tkץꥱ
⡤Tk &quote;option&quote;ޥɤȤä ץǡ١ѹ
ˡȤ뤳ȤǤǤ礦 rpeck@java.nas.nasa.gov (Rodney C. Peck) ϡ 
ʲο꥽ܤ󶡤Ƥޤ


      Tk*activeBackground:                    #efefef
      Tk*activeForeground:                    black
      Tk*selector:                            black
      Tk*background:                          #dfdfdf
      Tk*foreground:                          black
      Tk*selectBackground:                    #bfdfff
      Tk*Scale.activeForeground:              #efefef
      Tk*Scale.sliderForeground:              #dfdfdf
      Tk*Scrollbar.foreground:                #dfdfdf
      Tk*Scrollbar.activeForeground:          #efefef
      Tk*Button.disabledForeground:           #7f7f7f
      Tk*Checkbutton.disabledForeground:      #7f7f7f
      Tk*Radiobutton.disabledForeground:      #7f7f7f
      Tk*Menu.disabledForeground:             #7f7f7f

ܺ٤ʾϡ ѤƤ륷ƥX꥽ɤ߹ߤ˴ؤɥ
Ȥ䡤 TkΥޥ˥奢롦ڡ&quote;option&quote;ι򻲾ȤƲ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk Questions and Answers - How can I:
Subject: -Q2.F.10- packޥɤǻȤݤˡɽ֤Υɥ򸫤Ĥ
ϡ

A2.F.10. ϰʲ̤:
ɥ㤨 .w1 Ȥ졤 ̤Υɥ .w2 
Ȥޤ ޥ &quote;pack .w1 -in .w2&quote; ϡ .w2¦.w1ѥ
Τ˻Ȥޤ packޥɤϴ&quote;pack newinfo .
w1&quote;ϡ տޤ̤η̤֤ޤʤ顤.w1ɽʤ
Ǥ ΤǤ礦


             button .w1 -text button;   # .w1 
             frame .w2;                 # .w2 
             pack .w1 -in .w2;          # .w1  .w2 ¦pack
             pack .w2;                  # .w2 ᥤ󥦥ɥpack
                                        # buttonϡˤäΡ

:
(js@aelfric.bu.edu (Jay Sekora)Ƥ)

ûäƤޤȡ&quote;raise .w1&quote; Ǥϡ.w1.w2¦
֤Ƥޤ ߤ礭ˤ.w1.w2ȤΥĴưƤ
ޤ .w1.w2Ρ΢¦פˤΤǤ ʤʤ顤ǥեȤǤϡ 
ɥ줿֤ǥå˵뤫Ǥ åΥ
ɥν֤ϡ Ū&quote;raise&quote;ޥɤ¹Ԥ뤳ȤѹǤ 
ξǤϡ&quote;raise .w1&quote;ˤޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk Questions and Answers - How can I:
Subject: -Q2.F.11- '.'ʳƤΥɥ˲ˤϡ

A2.F.11. tromey@klab.caltech.edu (Tom Tromey)Ƥˤ:

    ץꥱγƥɥ˲ˤϡ`destroy'ޥ
    Ȥޤ ǤTkǤϡdestroy1դޤ
     ߤϲѰĤ˲٤ɥ̾(Υꥹ)
    դޤ äơ뤳ȤԤˤϡʲΤ褦ˤƤ
    ޤ:


   eval destroy [winfo children .]

    ҥɥ̾ϡѸĤζǶڤ줿ꥹȷ֤ޤ
    Τǡ evalޥɤɬפǤСdestroyĹʸȤ
    ƤǤϤʤ ġΥɥ̾ȤϤޤ

    ܼ
------------------------------------------------------------------------------

From: -II- Tk Questions and Answers - How can I:
Subject: -Q2.F.12- 饸ܥνޤ˥롼ײˤϡ

A2.F.12. βMichael Salmon󶡤ޤ:

    饸ܥ򥰥롼ײˤϡƱ롼פ°ܥ
    Ƥˡ Ʊѿ̾ѿ꿶Ф褤ΤǤ(饸ܥ)
    եȤ ѿ̾selectedButtonǤΤǡ-variableԤʤ
    СƤ 饸ܥƱ롼פȤʤޤ


:
radiobutton .left.button1 -text "Left button 1"  -variable leftChoice
radiobutton .left.button2 -text "Left button 2"  -variable leftChoice
radiobutton .left.button3 -text "Left button 3"  -variable leftChoice

radiobutton .right.button1 -text "Right button 1" -variable rightChoice
radiobutton .right.button2 -text "Right button 2" -variable rightChoice
radiobutton .right.button3 -text "Right button 3" -variable rightChoice

    ܼ
------------------------------------------------------------------------------
comp.lang.tcl Tk ġ륭åȤλѤ˴ؤɤȲ (1/1) 
------------------------------------------------------------------------------
