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
Keywords: tk, tcl, expect, extended tcl, wish

Archive-name: tk-usage-QnA-j/part01
Version: 1.2-J1.0
Last-modified: Tue Nov 29 17:38:20 JST 1994
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)
  Summary: A regular posting of the comp.lang.tcl Tk Toolkit usage
        questions and answers.
  Keywords: tk, tcl, wish
  Message-ID: <1994Nov9.171751.19134@cpu.com>
  Date: 9 Nov 94 17:17:51 GMT
  Expires: Wed, 30 Nov 1994 00:00:00 GMT
  
  Archive-name: tcl-faq/tk/part1
  Posting-Frequency: monthly
  Version: 1.2
 Last-modified: November 6, 1994

ܸФ뤴ո䡦ΤŦʤɤϡԤޤǡ ޤ
¾ξܺ٤ʾˤĤƤϡ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 ȡ²ιۤ˴ؤ: 
===============================================================

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

II. Tk μȲ - ˤϤɤΡ: 
==============================================

A. Tk ץꥱεư˴ؤ 

   Q2.A.1. wish ץꥱ¹Ԥˤ(wish ΥץץȤФ
   ʤǤ) 
   Q2.A.2. 8 ӥåȥ顼ʲΥޥưˤϡ 
   Q2.A.3. app-defaults ե wish ץꥱΥ꥽
   ꤹˤϡ 
   Q2.A.4. ե̾ꤸʤӥåȥޥåסѥľܥ
   ɥ饤Ǥޤ󤫡 
   Q2.A.5. Motif 桼󥿥ե󶡤ˤϡ 
   Q2.A.6. OpenLook 桼󥿥ե󶡤ˤϡ 
   Q2.A.7. Tk 3.3 ȵưˤ (ƥΥ顼ФΤ
   ) 
   Q2.A.8. C ץफ Tk ץȤƤӽФˤϡ 

B. Tk ץꥱȥܡɤ˴ؤ 

   Q2.B.1. ǥեȤΥ饹Хɤѹˤϡ 
   Q2.B.2. Хɤˤϡ 
   Q2.B.3. ¹ưŪ˥Хɤѹˤϡ 
   Q2.B.4. Sun ΥܡɤȤˤϡ 
   Q2.B.5. Tk ץꥱ 롼ȤΥޥХɤư褦ˤ
   ˤϡ 
   Q2.B.6. ¸ߤƤХɤˡɲä
   ϡ 

C. Tk  X11 ȤΥ󥿥饯˴ؤ 

   Q2.C.1. ץꥱ libXt ȤǤ 
   Q2.C.2. X11 Υѹˤϡ 
   Q2.C.3. ɥνŤʤ岼ˤϡ 
   Q2.C.4. ѤΥɥ ID Ǻƥޥåפˤϡ 
   Q2.C.5.  Tk  X11 ץꥱǡTk ǥ֥ɥȤ
   ˤϡ 
   Q2.C.6. ¾ΥåȤޤե졼ǡ <Enter>  <Leave>Х
   ɤˤϡ 
   Q2.C.7. Xt  Tk/Tcl ֤Ǻ祤󥿥饯󤹤ˤϡ 
   Q2.C.8. ResizeRequest ٥ȤХɤˤϡ 
   Q2.C.9. 顼å 'bad geometry "+0+0": expected widthxheight' 
   򤹤ˤϡ 

D. Tk Υꥹȥܥå˴ؤ 

   Q2.D.1. listbox ꥵˤϡ 
   Q2.D.2. Ʊˡ2 Ĥ٤ʤܤ򤹤ˤϡ 
   Q2.D.3. Ʊˡ1 İʾιܤ򤹤ˤϡ 
   Q2.D.4. ꥵǽʥꥹȥܥåβüζϤʶä
   ˤϡ 
   Q2.D.5. ĤΥС2ĤΥꥹȥܥå򥹥뤵
   ˤϡ 

E. Tk ΥХ˴ؤ 

   Q2.E.1. ХϤˤϡ 
   Q2.E.2. ݥꥴʱߤͤʷˡХδĤʬǰ
   ޤ줿ΰɤĤ֤ޤ 
   Q2.E.3. ХΥ֥ȤνŤʤ岼ꡤ
   Υɥ֥Ȥξ˿޷ޤ 
   Q2.E.4. ХΥѹ򸡽Фˤϡ 
   Q2.E.5. ХȥꥹȥܥåƱ 1 ĤΥС
   뤵ˤϡ 

F. ¾μ 

   Q2.F.1. ¹ԤƤ륤󥿥ץ꥿̾Τˤϡ 
   Q2.F.2. ƥȥåȤ -relief ưˤϡ 
   Q2.F.3. ܥǥǤ륦ɥˤϡ 
   Q2.F.4. ƥȥåȤ Ū˥ꥵ褦pack
   ˤϡ 
   Q2.F.5. ʸ̾ĥåȤˤϡ 
   Q2.F.6. Υܥˤϡ 
   Q2.F.7. եȤˤ餺Ĥˤ줤¤֥饸ܥˤϡ
   Q2.F.8. ʸǥȥꥦåȤƤޤˤϡ 
   Q2.F.9. TkǡǥեȤɽѤˤϡ 
   Q2.F.10. packޥɤǻȤݤˡɽ֤Υɥ򸫤Ĥ
   ˤϡ 

ܼν

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1A- Υޥ Tcl ưɬפʾܺ٤ʾϡ
====================================================================
ɤΤǤ礦
==========================

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


----------------------------------------------------

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- Tcl 6  RS/6000 AIX 3.1 줿ͤϤޤ󤫡 
=================================================================

A1C. ݡƥ󥰡Ρ - ä strtoul ˴ؤ򻲾ȤƲ

桼ϡTcl Υ¿ƥѥ뤷ޤ (㤨С
tclUnixStr.c  errono 䡤 ʥ롦ܥΤ case ʸʣʤ
)

¾ˤ⡤Ǿ꤬Фޤ 1ĤϡϤͤ0λ AIX
printfΥեޥåȻ%#x%#oʤȤǤ 0ȽϤ
"0x0" "00"ȽϤƤޤޤ ϡΥ꡼Ǥ
ǤϤʤ𤵤ޤ ƤƤޤ

Ǹϡopen.test ȯˤĤƤǤ test 13.6 "cat"RS6000
ϥХåե󥰤ʤᡤ ϥ󥰥åפƤޤޤ б
ˤϡopen.test "cat"¹Ԥʬ "cat -u"˽񤭴ޤ

Dov Grobgeld (dov@menora.weizmann.ac.il)ϡ AIX 3.1.5 ǡTclTkζͭ
֥ˡȯɽƤޤ

TclǤ:

cc -o tkshar.o *.o -bE:tclshar.exp -bM:SRE -berok -lX11 -lm
ar r libtclshr tclshar.o

TkǤ:

cc -o tkshar.o *.o -bE:tkshar.exp -bM:SRE -berok -Ltcl -lX11 -lm -ltclshr
ar r libtkshr tkshar.o

 tckshar.exp  tkshar.exp ϡؿΥꥹȤǤ

AIX  IBM ΥեȤ⤢ޤ XФѥå
IBMꤹɬפꡤ СեȴϢưޤ

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1D- HP-UX  Tcl ΥѥͤϤޤ󤫡 
===================================================================

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

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1E- VMS  Tcl ΥѥͤϤޤ󤫡 
=================================================================

A1E. 1993 ǯ 5  4 ˡJohn Kimball (jkimball@src.honeywell.com) 󤻤
줿ˤС ϡTcl 6.7  Tk 3.2  VMS 5.5 ˥ݡƥ󥰤
ȤǤ եξϥ򻲾ȤƲ

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1F- SCO Unix  Tcl 򥳥ѥ뤹ˤϡɤ餤
===================================================================
Ǥ 
===========

A1F. "#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: -Q1G- tclTest 餻ȡformat  scan ǥ顼ˤʤ
====================================================================
ϲΡ (NeXT, AIX, ʤɤ) 
=============================

A1G.  (scanf/printf ) ϡ¿ΥƥǸޤ ˴ؤ
ƤϡޤмˤʤɬפϤޤ --- '٤'ǽȤʤ
Ǥ ⤷ʤ C ΥϥåʤСƱ˽ж魯ȦǤ
 򤢤ʤСprintf("%Ng", double_value) strtod("+",&terminal) ϡ
ä̤⤿餷ޤ

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1H- tclTest  Irix 4.0.1 餻ȡ̤Υ顼Ф
=======================================================================
ϲΤǤ 
===============

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1I- Cray  Tcl ̵餻ͤϤޤ󤫡 
==============================================================

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1J- SparcBook 䡤¾ο˸³Τåץȥå׵
=====================================================================
Tk餻ˡΤäƤͤϤޤ󤫡 
===========================================

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

openwin -dev "/dev/fb staticvis"

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1K- Tcl/Tk 386BSD/Linux 䡤¾ΤޤݡȤ
=================================================================
ʤPOSIX/ANSI C ƥ Tcl 򥳥ѥ뤹ˤϡɤɤ
====================================================================
ΤǤ礦 
=============

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1L- Irix Υޥ Tk 򥳥ѥ뤷褦Ȥ顤tkInit.c
======================================================================
ǥѡ󥰡顼ˤʤäΤǤ 
=======================================

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1M- NeXTSTEP 3.1  Tcl 7.1/Tk 3.4 򥤥󥹥ȡ뤹
==================================================================
ϡ 餤Ǥ 
==============================

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

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: -Q1N- Tcl/Tk ܤΥɥեȤǤʤǤɡ 
=============================================================

A1N. 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: -Q1O- ʤ SGI Indigo ȥ顼ˤʤΤǤ礦 
================================================================

A1O. 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: -Q1P- expect  Solaris 2.3 ǥѥ뤹ˤϡɤФ
=========================================================================
Ǥ礦 
=============

A1P. Jeff Abramson (jra@hrcms.jazz.att.com)ˤϡ

SunPro cc 2.0.1 ȤäƤ gcc 2.5.8 ȤäƤϤޤ SunPro ʤС
Τ褦ˤޤ

 
        CC=cc ./configure --prefix=ʤǥ쥯ȥ
        make CC=cc

gcc ʤСʲ̤Ǥ

 
        CC="gcc -fwritable-strings" ./configure \
                --prefix=ʤǥ쥯ȥ
        make CC="gcc -fwritable-strings"

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1Q- TclX/Tk  BLT ɲäˡϡ 
=================================================

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

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

ե ./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: -Q1R- Sequent  Tcl  Tk ܿˤϡ 
=====================================================

A1R. 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: -Q1S- wishưˡʤޥ̾פȸ
=====================================================================
ΤϲΡ 
=============

A1S. ϡС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: -Q1T- A/UX 3.0 ǡܥơ֥뤬դ衤Ȥå
====================================================================
ϡɤäƲ򤹤Ρ 
===============================

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


----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1U- SunOS ƥư xmkmf  Makefile 
====================================================================
ƤʤΤϡΡ 
=======================

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

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1V- MS-DOSMacOSAmiga 䡤¾Υѥǡ
==============================================================
Tcl 򥳥ѥ뤹ˤϡ 
===========================

A1V. tcl-faq/part01tcl-faq/part04ˡ Ϣġܿλʡ뤤
ϡ ˴Ϣ᡼󥰥ꥹȤܤƤޤ

----------------------------------------------------

From: -I- ʤΥƥǤΡTcl ȡ²ιۤ˴ؤ: 
======================================================================

Subject: -Q1W- QNX ƥ Tcl 򥳥ѥ뤹ˤϡ 
===========================================================

A1W. Steve Furr (furr@qnx.com)ˤ:

 QNX  Tcl ưˤȤޤȤʤС

  o _POSIX_SOURCE 򡤥ѥ̾Ĺ򼨤˹Ԥ 
  o VARARGS ѹԤСWatcom ANSI C 
    ѥǡ ĹδؿȤ褦ˤʤ롥 
  o QNX 줿顼ɤȤξͤ褹롥 

----------------------------------------------------

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 ʸʲ侩ޤ

ǸդäȡĤΥޥǤϡ -f θ˶ʸ
ʤޤ -f ϡեκǽιԤκǸʸǤ褦
դޤ礦

礦ɵƤ⤦ 1 ĤεȤơ 롦ե 1 ܤ
Τ褦˽񤯡ȤΤޤ

/usr/ucb/tail +2 $0 | /usr/local/bin/dpwish -notk $* ; exit

ǡ/usr/local/bin/dpwish ϡ ̤ˤ̤Υѥ̾˽񤭴ɬפ뤫
⤷ޤ

̤εƤƤޤ (Eric Schenk ߤΤǤ)

#!/usr/local/bin/wish -f
# The next line is a comment in Tcl, but not sh \
        exec /usr/local/bin/wish $0 -f ${1+"$@"}

¾Υ桼ϡ åȤɽƤʤ wish ɥФ
ȸ褦ʾɾ𤷤Ƥޤ ϡ󥿥ץ꥿ΥѥĹ᤮뤿
Ǥ

----------------------------------------------------

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- ¹ưŪ˥Хɤѹˤϡ 
=========================================================

A2.B.2. 1992 ǯ 6 ߡԤΤ Tk ˤȤäưǤϤޤ
ϡJohn Ousterhout ˤäƥХꥹȤ˲äƤꡤ ΥС
ǤϽͽǤ

ߤǤԤ뤳βϡХɼȤѹΤǤϤʤ «
Ƥ륳ޥɤѹƤޤΤǤ 㤨СХɤ
ץ㤬¹Ԥ٤ǽ򼨤ѿݻƤ ץ㤬«
¹ԤݤˡɬϤͤˤƤޤ Ƥäơ ץ
Ǽ¹Ԥ٤ɤѿͤˤäؤƤޤ 뤤
ϡХɤ륳ޥɤñ "eval $cmd" ͤˤƤ ѿ "cmd"
Ƥ ץꥱξ֤ˤäؤƤǤޤ

----------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ: 
=====================================================

Subject: -Q2.B.4- Sun ΥܡɤȤˤϡ 
=========================================================

A2.B.4. ꤹˤϡ<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.5- Tk ץꥱ 롼ȤΥޥХɤư
======================================================================
ˤˤϡ 
===============

A2.B.5. mwm ͤʤĤΥɥޥ͡Ǥϡ Tk Ȥʤ
褦ʥޥΥХɤޤ Υɥޥ͡ν
ե (㤨 ~/.mwmrc ʤ) ¸Ƥơ ưƤͤΤ
ԡƸޤ礦 ˵Ťʾ󤻤Ƥ줿 Brad Morrison (
brad@NeoSoft.com)˴դޤ

----------------------------------------------------

From: -II- Tk μȲ - ˤϤɤΡ: 
=====================================================

Subject: -Q2.B.6- ¸ߤƤХɤˡɲ
====================================================================
ˤϡ 
===========

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

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

         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.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.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.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 ޥɤˤǤϤʤ åȤ켫Υץanchor
west˻ꤹդƲ ȡ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 "option"ޥɤȤä ץǡ
ѹˡȤ뤳ȤǤǤ礦 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Υޥ˥奢롦ڡ"option"ι򻲾ȤƲ

----------------------------------------------------

From: -II- Tk Questions and Answers - How can I: 
=================================================

Subject: -Q2.F.10- packޥɤǻȤݤˡɽ֤Υɥ
=====================================================================
Ĥˤϡ 
=============

A2.F.10. ϰʲ̤:
ɥ㤨 .w1 Ȥ졤 ̤Υɥ .w2 
줿Ȥޤ ޥ "pack .w1 -in .w2" ϡ .w2¦.w1ѥå
Τ˻Ȥޤ packޥɤϴ"pack newinfo .w1"ϡ 
ޤ̤η̤֤ޤʤ顤.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)Ƥ)

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

----------------------------------------------------

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

----------------------------------------------------

