==============================================================================
         SICStus-Prolog Tcl/Tk GUIʥ饤֥  ͽ
            Copyright (C) 1999  (̳ƻ ˡ)
                         ǽ:1999.1.31 
==============================================================================

----
ܼ
----

  1. 
  2. ѴĶ
  3. ¡
  4. ե󥹶̻
  5. Х޷֥
  6. ɥƥץ졼
  7. 饤֥Ҹ졦ե
  8. ʸ


-------
1. 
-------

ܥ饤֥ϡSICStus-Prolog桼Tcl/Tk饤֥ѤGUIۤ
ݡTcl/TkγؽԤȤʤˡΥץФưפGUIղä뤳
ȤǽȤʤ褦ʵǽ󶡤ΤǤ롣ħʲ˼

    ֥ȻظΥѥ߷פƤ롣
    ץȥפΥǥˤФѤȹͤ뵡ǽΤߤ
      ñˤޤȤ󶡤Ƥ롣
    TclΥ󥿥åäΤɬפϤʤ
    ޷򥪥֥ȤȤǤ롣
    ޷Υ롼ײǽܤƤ롣
    Tk󥿥ץ꥿ˤɤΤ褦ʥޥɤήƤ뤫˥뵡ǽ
      


-----------------
2. ѴĶ
-----------------

  [ѴĶ]

  SICStus-Prolog3#5Tcl/Tk饤֥꤬˥󥹥ȡ뤵Ƥ뤳ȡ
    TclΥС7.6TkΥС4.2Ǥ롣

  ưǧ
      Windows95(ATߴ128M)
      Soralis2.5.1(SparcStation20256M)
    ǹԤä

  [Ѽ]

   ⥸塼벽ˤĤ
     ⥸塼벽Ԥˤϡץmodule
     use_moduleΥȤ򳰤
     ⥸塼벽Ԥä硢ɥwindow⥸塼νҸȤ
     ǧ뤿ˡ̤ǳäƳ¦window:դ롣
     ⥸塼벽Ԥʤ桼ϽҸ̾ͤʤ褦˼ʬΥץ
     Ҥɬפ롣

   ѽ
     (1) SICStus-PrologΥޥ˥奢λؼ˽äTcl/TkSICStus-Prolog
         Ѳǽˤ롣
     (2) PrologΩ夬ä顢
           ?- prolog_flag(single_var_warnings,_,off),
              prolog_flag(redefine_warnings,_,off),
              prolog_flag(unknown,_,fail).
           ?- use_module(library(tcltk)).
         Ȥ롣
     (3) window.pl򥳥ѥ뤢뤤ϥ󥵥Ȥ롣
     (4) TkޥɤΥ˥Ԥϡ
           ?- monon.
         ¹Ԥ롣monoff¹Ԥ롣

   ŪѼ
     桼ץǤѼγפʲ˼
       1) 饤֥
       2) 롼ȤȤʤ륦ɥTk󥿥ץ꥿ˤʤäƤ
       3) ޷ƥࡢƥνϡ
       4) ٥ȼȽϽη֤
       5) ɥõ

     (1) 饤֥
         init_windowǹԤ
     (2) 롼ȥɥ
         createǹԤ֥ɥcreateSubWinɬפ˱ƹԤ
     (3) Ƽ
         ɥget_partsˤäơоݤʤΥ֥Ȥ롣
         ʤФҸƤӽФơԤ
         ޷ξˤϡcanvasʤ create޷ νҸƤӽФ
         ƿ޷֥Ȥ롣
     (4) ٥ȼ
         get_eventˤäơ롼ƱƤΥɥʥ֥ɥ
         ޤˤΥ٥ȤԤ롣٥Ȥȯ
         get_eventˤΥ٥֤̾롣ǥ٥ȤȤϡ
         ޷ɥåκݤ˥٥̾(Ǥcode°)Ȥƻ
         ȥǤ롣
     (5) ɥõ
         killǹԤ

-------------
3. ¡
-------------

  ǽåȼ̡ץ¿뤿ᡢƥȤƤȹ碌
    ĤƹԤȤϤǤʤäơˡˤäƤϡεǽѤ
    ʤȤ⤢ꤦ롣

  ⥸塼벽ʤνҸξϥ桼ǤǹԤ

  ƥͽˤĤưʲ˼
    Tk󥿥ץ꥿ǡʲѿ̾ͽ󤹤롣
        x1,x2,x3,x4γѿ
    Tk󥿥ץ꥿ǡʲΥ̾ͽ󤹤롣
        group_numbers Υ̾

  prolog_flag(unknown,_,fail)ꤵƤ뤳ȤȤ롣


-----------------------
4. ե󥹶̻
-----------------------

ʲǤʤ򥦥åȤȤƤ֡


[ʰ]

button
  [̾] ܥ󡦥å
  [ǽ] ޥˤ벡ܥ
         Ƥ֤롣

canvas
  [̾] Хå
  [ǽ] ޷ϲ̡

checkbutton
  [̾] åܥ󡦥å
  [ǽ] ޥˤ벡ܥ
         Ȥ˥åȥå̵ξ֤ڤؤ롣

entry
  [̾] ȥꡦå
  [ǽ] ƥϤǽȡ

label
  [̾] ٥롦å
  [ǽ] ʸɽ롣

listbox
  [̾] ꥹȥܥåå
  [ǽ] ܤǽȤ롣

menu
  [̾] ˥塼å
  [ǽ] ˥塼С

menubutton
  [̾] ˥塼ܥ󡦥å
  [ǽ] ˥塼С˥ܥǽդΡ

radiobutton
  [̾] 饸ܥ󡦥å
  [ǽ] ʣΥåܤĤ򤷤֤ˤʤܥ

scale
  [̾] 롦å
  [ǽ] 饤ͤǽȤ롣

text
  [̾] ƥȡå
  [ǽ] ƥɽ

scroll
  [̾] Сå
  [ǽ] С
  [] ץդưݾڤʤ


[ץ]

activebackground
          Ǥƥ־֤ˤʤݤѤХå饦ɤ
          ꡣޥ뤬Ǿ˰֤ϡ
          (åȡޤϥåȤΰ) 
          ƥ־֤ˤʤꡢ ޥܥ򲡤ȤˤäƤ
          Υ󤬹Ԥ롣
          [] ȥ
activeborderwidth
          ƥ֤ǤΤޤ3Dζͤǡ
          0ʾꤹ롣ƥ֤Ǥ
          εҤ򻲾ȡΥץϡ٤˰İʾǤ
          ɽƤ륦å(㤨Х˥塼ܥǤϤʤ) 
          ˤƤΤͭ
          [] 
activeforeground
          Ǥƥ־֤ˤʤݤѤեɤ 
          ꡣƥ֤ǤҤεҤ򻲾ȡ
          [] ȥ
anchor
          åȤˤ (㤨Хƥ)ɽˡꡣ
          ͤ n, ne, e, se, s,  sw, w, nw ޤ center Τ줫
          㤨 nw  Ϥξ򤽤κ夬åȤκγѤ
          ֤롣̤ȤȤ̤Ƭʸ
          [] n, ne, e, se, s, sw, w, nw, center Τ줫
background
          åȤɽݤѤ̾ΥХå饦
          οꡣ
          [] ȥ
borderwidth
          åȤΤޤ3Dζͤǡ0ʾ
          (Τ褦ʶƤϡ
          relief ץˤäɽˡꤵ) 
          ͤϥåȤ 3D θ̤ͿƤݤ
          뤳ȤǽǤ롣
          [] 
closeenouth
          ޥ뤬Х޷Ȥߤʤ
          ޤǤˤɤ޷˶ŤʤФʤʤ򼨤
          ưꡣάϡ1.0Ǥ롣
          [] ưΥȥ
code
          button줿Ȥ˥٥ȤȤ֤ͤꤹ롣
          [] Prologȥ
confine
          scrollregionˤä줿ʬ򡢥Х
          ɽƤγ¦˥åȤǤ뤫ɤ򼨤
          ͤꡣ άͤϿǡΰ̣ϡɽ
          ƤȤϰˤ롣
          [] 0,1
cursor
          åȤФѤޥꡣ
          [] ̾ȥ
               "{̾ȥ, foregroundȥ, 
                  backgroundȥ}"
disabledforeground
          Ǥǥ֥֤ˤʤݤѤե
          οꡣץ󤬶ʸȤƻꤵ줿
          (ΥΥǥץ쥤ˤ)ϡ ǥ
          ֥֤Ǥ̾Υեɤοˤʤ롣
           ǤߤͤˡǤܤŤ
          ʤ롣
          [] ȥ
exportselection 
          åȤˤ륻쥯󤬡 XΥ쥯 
          뤫ݤꡣͤ true, false, 0, 1, yes,
          ޤ no Τ줫 
          쥯󤬻ꤵ줿ϡåȤˤƥ
          ȤȤȤϡ ߤXΥ쥯򥻥쥯Ȥ
          Ƥ뤳ȤˤϤʤ餺åȤγǤդΥ
          åȤΥ쥯򥻥쥯ȤƤ뤳Ȥˤʤʤ 
          ޤåȤ쥯ľϡå
          ϸߤΥ쥯Τ뤿׵ȿ롣 
          άΥ쥯򼨤ͤ̾復åȡ
          [] true, false, 0, 1, yes, no
font
          åȤ˥ƥȤݤѤեȤꡣ
          [] ե̾ȥ
foreground
          åȤɽݤѤ̾Υեɤ
          ꡣ
          [] ȥ
from
          κϡüɽͤꤷޤ
          [] 
geometry
          åȤФɬפʥȥꡣ
          width x heightηȤ롣ξϡwidth׵ᤵ
          륦ɥheight ׵ᤵ륦ɥι⤵
          롣width, heightñ̤ΥåȤˤ롣
          ƥȤɽ륦åȤξϡ ñ̤̾ɽ
          ƤʸΥǤ롣 ¾ΥåȤ
          Ƥϡ̾ϡñ̤ϥԥǤ롣
          [] x⤵+X+Y
height
          buttonΥåȤι⤵ꡣ 
          ӥåȥޥåפܥɽϡͤ꡼
          ˥åȤȤʤ롣ƥȤξϡΥ饤Ȥʤ롣 
          Υץ󤬻ꤵƤʤϡbuttonι⤵ϡ
          ӥåȥޥåפΥޤϡɽƤƥȤ
          ׻롣
          [] 
insertbackground
          ˤäƤ륨ꥢˤХå饦
          ɤοꡣοϡ̾復åȤФ̾
          ΥХå饦(ޤϥ뤬쥯֤
          Υ쥯ΥХå饦)ο̵롣
          [] ȥ
insertborderwidth
          Τޤ3Dζͤǡ0ʾ
          ꤹ롣
          [] 
insertofftime
             뤬ǤƤ֤ˤɽƤݤ
          1000ʬ1ñ̤ǤǤδֳ֤򼨤Τǡ0 ʾ
          ꡣΥץ 0 ξϡǤʤ
          ٤ONξ֡
          [] 
insertontime
             뤬ǤƤ֤ˤɽƤݤ
          1000ʬ1ñ̤ǤǤδֳ֤򼨤Τǡ0ʾ 
          ꡣ
          [] 
insertwidth
          ͤꡣ Фƻꤵ
          (insertborderwidthץλѤˤ)
          cursorwidthλѤˤäƻꤵ줿롣
          [] 
label
          Υ٥Ȥɽʸꡣ 
          ľΥФơ ξüα˥٥뤬ɽ
          ʿΥФƤϥκüξ˥٥뤬ɽ
          [] ȥ
length
          ꡼ñ̤ǡɬפʥĹꡣľ
          ΥФƤϥι⤵ǤꡢʿΥ
          ФƤϥǤ롣
          [] 
menu
          Υ˥塼ܥбmenuΥѥ̾ꡣ
          menu ϥޥ̤Ư̾ŪȤ˥塼
          ܥλ¹ǤʤФʤʤ
          [] ȥ
offvalue
          ܥ򤵤ʤäݡ ܥбѿ
          ͤꡣάͤ0
          [] ȥࡢ͡ȥ
onvalue
          Υܥ򤵤ʤäݡܥбѿ
          ͤꡣάͤ0
          [] ȥࡢ͡ȥ
orient
          СΤ褦ˡʿޤϿľΤ
          줫ξ֤֤륦åȤФơΥ
          ϤλѤꡣ 
          horizontalverticalޤϤ줫ξάǤ뤳ȡ
          [] horizontal, vertical
padx
          åȤФX;ʬʥڡ̤ǡ0 
          ꡣɬפȤʤ륦ɥ礭׻
          ݤˡåȤ̾復åȤɬפȤ(
          åȤɽΤˤäƷꤵ)
          ͤûȥޥ͡㤬׵դ
          ϡ åȤɽ륦å
          ξ¦ ޤϤɤ餫;ʬ˥ڡȼä
          ˤʤ롣
          [] 
pady
          åȤФY;ʬʥڡ̤ǡ0 
          ꡣɬפȤʤ륦ɥ礭׻
          ˡ åȤ̾復åȤɬפȤ⤵(
          åȤɽΤι⤵ˤäƷꤵ) 
          ͤûȥޥ͡㤬׵դ
          ϡ åȤɽ륦åȤ
          岼 ޤϤɤ餫;ʬ˥ڡȼä֤
          ˤʤ롣
          [] 
relief
          åȤФ3Dθ̤ꡣ
          ͤ  raised, sunken, flat, ridge, ޤ groove
          ͤϡåȤФƤɤΤ褦˸
          뤫ꤷƤ롣㤨 raised ϥåȤ
          åȤγӤ夬äͤ˸롣
          [] raised, sunken, flat, ridge, groove 
repeatdelay
          ܥ󡢤ޤϥƤ顢 ȥԡȤ
          ޤǤλ֤1000ʬ1äñ̤οǻꡣ㤨С
          Сˤ岼˴ؤѤ롣
          [] 
repeatinterval
          repeatdelayȴϢѤ롣Υץϡ 
          ȥԡȤδֳ֤1000ʬ1äñ̤οǻꤹ롣
          [] 
scrollincrement
          äκݤѤ롢ֳ֤ꡣ 
          СȴϢܥΰĤ򲡤硢̤ϡ
          δֳ֤ˤäƥեȤ롣
          [] 
scrollregion
          ΰleft,top,right,bottomɸ򵭽Ҥ롢4Ĥ
          ɸꥹȤǻꡣ ʬϡŪȤ
          ƻȤȶˡХξζȤƤ⸫
          롣 
          [] ĤͤζڤΥȥ
selectbackground
          쥯Ȥ줿ƥɽݤΡ Хå饦
          οꡣ
          [] ȥ
selectborderwidth
          쥯Ȥ줿ƥΤޤ3D ζ
          ǡ 0ʾꡣ
          [] 
selectforground 
          쥯Ȥ줿ƥɽݤΥեɤο
          ꡣ
          [] ȥ
selector
          ܥ򤵤줿ݡ 쥯褹뿧ꡣ 
          ʸ󤬻ꤵ줿硢ܥФ褵
          쥯Ϥʤ
          [] ȥ
showvalue
          θͤɽ뤫ɤ򼨤Ƥͤ
          ꡣ
          [] 0, 1
sliderforeground
          ̾κɸβΥ饤褹뤿˻Ѥ뿧
          ꡣ 饤ɥ˥ޥ硢饤
          οϡactiveforground ץˤäƷꤵ롣
          [] ȥ
sliderlength
          饤Ĺˡ˱äơ ꡼ñ̤¬ꤷ
          饤Υꡣ
          [] 
state
          buttonФ 3Ĥ normal active disabled Τ
          줫ꡣnormal֤Ǥϡbutton foreground 
          background ץѤɽ롣 active֤ϡ
          ݥ󥿤 button˽ŤͤѤ롣active
          ΤȤbuttonϡactiveforegound   activebackground
          ץѤɽޤdisabled ֤ϡbutton
          ȿʤȤ̣Ǥʥޥܥ򲡤Ƥ active
          ˤʤ餺ȿʤˤξ֤ξϡ
          disabledforegournd  backgroundץɽ
          ꤹ롣
          entry, scaleФƤ 2 Ĥξ normal, disabled 
          줫ͤꡣentry  disabled ξϡ ץå
          եåȤˤǤ⡢ ͤϡ
          åȥޥɤѤƤѤʤޤ
          ɽʤ
          [] normal, active, disabled 
text
          åȤɽʸꡣʸɽ
          ˡϡåȤ˰¸롣
          anchor ޤ justifyͤ¾Υץˤäơɽ
          ˡꤹ뤳ȤǽǤ롣
          [] ȥ
textvariable
          ѿ̾ꡣ ѿͤϡåɽ
          ƥȤǤ롣ѿͤѲݤϡ åȤ
          ͤȿǤ뤿˼ʬȤǼưŪ˹롣
          ʸɽˡΥåȤ˰¸롣
          anchor ޤ justifyͤ¾Υץˤäơ
          ɽˡǽ
          [] ѿ̾ȥ
tickinterval
          ͤ˥饤β뤤Ϻɽ줿
          ߤΰδֳ֤ꤹ롣0ꤵ줿硢ɽ
          ߤΰϤʤ
          [] 
to
          α뤤ϡüɽͤꡣ 
          ͤϡfromץ꾮뤤ϡ礭
          Τ줫
          [] 
underline
          å˥饤ʸФ
          Υǥåꡣ Υץϥ˥塼ܥ
           ˥塼ˤ륭ܡɤΥȥСʸɽ
          뤿Ѥ롣0åȤɽƥȤ
          ǽʸб 1 ϤμʸбƤޤ
          ˥塼ܤΥ饤ʸ֤Ǥ뤫
          0ꥸǻꤹ롣硼ȥåȤΩġ
          [] 
value
          ѿ
          [] ȥࡢȥ
variable
          ܥ򤵤줿ɤؤꤹ롢
          ѿ̾ꤹ롣 άϡοƤΥܥ
          ̾Ȥ롣
          [] ȥ
width
          buttonΥåȤꡣ ӥåȥޥåפܥ
          ɽϡ ͤ꡼ñ̤Ȥʤޤ
          ƥȤξϡΥ饯ȤʤꡣΥץ
          ꤵƤʤ硢buttonϡӥåȥޥåפΥ
          뤤ϡ ɽƤƥȤ׻롣
          [] 
wrap
          text ɥ1ԤɽˤĹƥȤιԤ
          ˡꤹ롣ͤ non, char, word Τ줫
          none Υåץ⡼ɤϡ 줾ΥƥȹԤΤ˥
          ꡼ 1 ԤȤɽȤ̣ Υå
          Ϥ߽Фʸɽʤ ٤Ƥʸ
          ɽɬפˤϡ¾Υ⡼ɤˤäƥƥ
          ȹԤԤʬ䤷ɽ롣char⡼ɤǤβԤǤդ
          ʸθ˹Ԥʤ롣word⡼ɤǤβԤϡñڤ
          ܤǤΤ߹Ԥ롣
          [] non, char, word


[ȥ]

Ķ˰¸롣̾ƤߤȤ褤ȤС
green,red,blue,yellow,gray,white,black,orangeѲǽǤ롣
ܤTcl/Tkλʸ򻲾ȤΤȡ


[ʤȥץѲǽбɽ]

ѤǤ륪ץ*졢Ǥʤ-Ƥ롣

                   [Parts]
                   button,
                   | canvas,
                   | | checkbutton,
                   | | | entry,
                   | | | | label,
                   | | | | | listbox,
                   | | | | | | menu,
                   | | | | | | | menubutton,
                   | | | | | | | | radiobutton,
                   | | | | | | | | | scale,
                   | | | | | | | | | | text,
  [Options]        | | | | | | | | | | | 
activebackground,  *,-,*,-,-,-,*,*,*,-,-,
activeborderwidth, -,-,-,-,-,-,*,-,-,-,-,
activeforeground,  *,-,*,-,-,-,*,*,*,*,-,
anchor,            *,-,*,-,*,-,-,*,*,-,-,
background (bg),   *,*,*,*,*,*,*,*,*,*,*,
bitmap,            *,-,*,-,*,-,-,*,*,-,-,
borderwidth (bd),  *,*,*,*,*,*,*,*,*,*,*,
closeenouth,       -,*,-,-,-,-,-,-,-,-,-,
command,           *,-,-,-,-,-,-,-,*,-,-,
confine,           -,*,-,-,-,-,-,-,-,-,-,
cursor,            *,*,*,*,*,*,*,*,*,*,*,
disabledforeground,*,-,*,-,-,-,*,*,*,-,-,
exportselection,   -,-,-,*,-,*,-,-,-,-,*,
font,              -,-,*,*,*,*,*,*,*,-,*,
foreground,        *,-,*,*,*,*,*,*,*,*,*,
from,              -,-,-,-,-,-,-,-,-,*,-,
geometry,          -,-,-,-,-,*,-,-,-,-,-,
height,            *,*,*,-,*,-,-,*,*,-,*,
insertbackground,  -,*,-,*,-,-,-,-,-,-,*,
insertborderwidth, -,*,-,*,-,-,-,-,-,-,*,
insertofftime,     -,*,-,*,-,-,-,-,-,-,*,
insertontime,      -,*,-,*,-,-,-,-,-,-,*,
insertwidth,       -,*,-,*,-,-,-,-,-,-,*,
label,             -,-,-,-,-,-,-,-,-,*,-,
length,            -,-,-,-,-,-,-,-,-,*,-,
menu,              -,-,-,-,-,-,-,*,-,-,-,
offvalue,          -,-,*,-,-,-,-,-,-,-,-,
onvalue,           -,-,*,-,-,-,-,-,-,-,-,
orient,            -,-,-,-,-,-,-,-,-,-,-,
padx,              *,-,*,-,*,-,-,*,*,-,*,
pady,              *,-,*,-,*,-,-,*,*,-,*,
postcommand,       -,-,-,-,-,-,*,-,-,-,-,
relief,            -,*,*,*,*,*,-,*,*,*,*,
repeatdelay,       -,-,-,-,-,-,-,-,-,-,-,
repeatinterval,    -,-,-,-,-,-,-,-,-,-,-,
scrollcommand,     -,-,-,*,-,-,-,-,-,-,-,
scrollincrement,   -,*,-,-,-,-,-,-,-,-,-,
scrollregion,      -,*,-,-,-,-,-,-,-,-,-,
selectbackground,  -,*,-,*,-,*,-,-,-,-,*,
selectborderwidth, -,*,-,*,-,*,-,-,-,-,*,
selectforeground,  -,*,-,*,-,*,-,-,-,-,*,
selector,          -,-,*,-,-,-,*,-,*,-,-,
showvalue,         -,-,-,-,-,-,-,-,-,*,-,
sliderforeground,  -,-,-,-,-,-,-,-,-,*,-,
sliderlength,      -,-,-,-,-,-,-,-,-,*,-,
state,             *,-,*,*,-,-,-,*,*,*,*,
text,              *,-,*,-,*,-,-,*,*,-,-,
textvariable,      *,-,*,*,*,-,-,*,*,-,-,
tickinterval,      -,-,-,-,-,-,-,-,-,*,-,
to,                -,-,-,-,-,-,-,-,-,*,-,
underline,         -,-,-,-,-,-,-,*,-,-,-,
value,             -,-,-,-,-,-,-,-,*,-,-,
variable,          -,-,*,-,-,-,-,*,-,-,-,
width,             *,*,*,*,*,-,-,*,*,*,*,
wrap,              -,-,-,-,-,-,-,-,-,-,*,


-----------------------------
5. Х޷֥
-----------------------------

[Х޷]

Box
  [] 
  [ɸꥹ] κ(x1,y1)ȱ(x2,y2)[x1,y1,x2,y2]Ȼꤹ롣
Oval
  [] ʱ
  [ɸꥹ] ʱߤԤäޤκ(x1,y1)ȱ(x2,y2)
               [x1,y1,x2,y2]Ȼꤹ롣
Line
  [] ľ
  [ɸꥹ] ʬ˥ꥹȤˡ[x1,y1,x2,y2,....]Ȼꤹ롣
Text
  [] ʸ
  [ɸꥹ] 󥫡ǻꤵ줿ʸа֡ʥǥեȤˤ
               ɸ[x1,y1]Ȼꤹ롣
Poly
  [] ¿ѷ
  [ɸꥹ] ʬ˥ꥹȤˡ[x1,y1,x2,y2,....]Ȼꤹ롣
               ǸȺǽϾ˷Ф롣
Arc
  [] ʱߤθ
  [ɸꥹ] ʱߤ硢Ԥäޤκ(x1,y1)
               (x2,y2)[x1,y1,x2,y2]Ȼꤹ롣


[Х޷°]

Box°
  fill->ȥ
     ɤĤ֤
  outline->ȥ
     ο
  width->
     
Oval°
  fill->ȥ
     ɤĤ֤
  outline->ȥ
     ο
  width->
     
Line°
  arrow->ꥢȥ
     ʤnoneΤߤstartΤߤlastξbothꤹ롣
  capstyle->üȥ
     üηꤹ롣buttprojectingroundǤ롣
  jointstyle->ַܻꥢȥ
     ΤĤʤޤˤλꡣbevelmiterroundǤ롣
  smooth->0뤤1
     ץ饤֤Υࡼ󥰤̵ͭΥե饰0Ϥʤ1Ϥꡢꡣ
  splinesteps->
     ࡼ󥰻ٹ礤
  fill->ȥ
     ɤĤ֤
  width->
     
Text°
  text->襹ȥ
     褹ʸ
  anchor->а֥ȥ
     ꤷɸʸζΤɤа֤бΤʤΤꤹ롣
     ̤ˤȤơαѸƬʸǡ
     e,w,s,nӳѤne,nw,se,swǻꤹ롣
  font->ʸեȥȥ
     ʸΥե̾ΥȥꡣϤ˰¸롣
  justify->ޤ֤ˡꥢȥ
     ʸޤ֤Ȥΰ֤Τleftcenterrightǻꤹ롣
  fill->ȥ
     ʸ
  width->
     ʸκĶȼԤ衣
Poly°
  smooth->0뤤1
     ץ饤֤Υࡼ󥰤̵ͭΥե饰0Ϥʤ1Ϥꡢꡣ
  splinesteps->
     ࡼ󥰻ٹ礤
  fill->ȥ
     ɤĤ֤
  outline->ȥ
     ο
  width->
     
Arc°
  start->ٿ
     ϳ٤ٿǻꡣǥեȤ03
  extent->ٿ
     ϳѤ齪ޤǤδ֤γ٤ٿǻꡣ
  style->̤η̾ȥ
     ̤ηΥȥꡣpieslice濴ȻФˡ
     chordʻľܷФˡarcʸ̤ˤǽ
  fill->ȥ
     ɤĤ֤
  outline->ȥ
     ο
  width->
     


[Х޷]

򼨤ܤϥե󥹤򻲾ȡ

move
   ޷롼פΰư
remove
   ޷롼פκ
scale
   ޷롼פγ硦̾
lower
   ޷롼פ̤˰ư
raise
   ޷롼פ̤˰ư
set_fig_attr
   ޷°ʥץˤ
get_fig_attr
   ޷°ʥץˤͤ
get_fig_info
   ޷Τ޷̾(type)ΰɸ(bbox)
   ɸꥹ(coords)롣
invisible
   ޷롼פԲĻ֤ˤ롣
visible
   ޷롼פĻ֤ˤ롣
click_notify
   ޷ʥ롼ס˥åΤ
dragable
   ޷롼פɥåǽ
undragable
   ޷롼פɥåػߤ
is_dragable
   ޷롼פɥåǽʤ
createGroup
   롼פκ
regist
   롼פؤϿ
release/2
   롼פβ
release/1
   롼Ͽο޷Ƥ
get_group_member
   롼ϿƤο޷֤


-----------------------------------
6. ɥƥץ졼
-----------------------------------

ƥץ졼ȤεҷBNFɽˡ˽äưʲΤ褦롣
֥ɥѤΥɥⲼ˽
εҤ˽äƥɥ롣

  <ɥ> ::= "window/" <ɥ̾> "::=" 
                       <֥ꥹ> "."
  <֥ꥹ> ::= "+" "[" <ꥹ> "]" | 
                       "-" "[" <ꥹ> "]" | 
                       "s-" "[" <ꥹ> "]" | 
                       "s+" "[" <ꥹ> "]" | 
                       "s=" "[" <ꥹ> "]"
  <ꥹ> ::= <ꥹ> "," <> |
                       <ꥹ> "," <֥ꥹ> |
                       <֥ꥹ> |
                       <> 
  <>       ::= <̾> ":" <ʥ> "(" <°ꥹ> ")" |
                       <̾> ":" <ʥ>
  <°ꥹ>     ::= <°ꥹ> "," <°> |
                       <°>
  <°>       ::= <°̾> "->" <°>
  <ɥ̾>   ::= Prologȥ
  <̾>         ::= Prologȥ
  <ʥ>     ::= ̾Prologȥ
  <°̾>         ::= Prologȥ
  <°>         ::= °бǡ

 ֥ꥹȤƬդΰ̣ϰʲ̤ꡣ
   +   : Ĥ¤٤롣
   -   : ¤٤롣
   s+  : Сդ롣
         ʤȥСΤߤ֤ƤϤʤʤ
   s-  : Сդ롣
         ʤȥСΤߤ֤ƤϤʤʤ
   s=  : ξ˥Сդ롣
         ʤȥСΤߤ֤ƤϤʤʤ

 ⥸塼벽ܥ饤֥Ѥˤϡ̤ǳꡢ
    window:(ƥץ졼). ηǥȤɬפ롣[ס]


-------------------------------
7. 饤֥Ҹ졦ե
-------------------------------

˻ѤƤǡ̾ͽ򻲾ȤΤȡ

init_window
  [ǽ]
   ɥƥν
   ٤ƤTcl/Tkɥ졢ơ֥롦󥿤롣

create(+Type,+AttrL,-Win)
  Type:  ɥ饹ʥס̾ȥ
  AttrL: ɥ°ꥹ *
  Win:   ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  [ǽ]
   ɥ
  []
   СǤAttLϻѤǤʤ

createSubWin(+Win,+Name,-SubWin)
  Win:    ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  Name:   ֥ɥ̻ҥȥ
  SubWin: ֥ɥ֥
  [ǽ]
   ֥ɥ

get_event(+Win,-Ev)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  Ev:  ٥̾ȥ
  [ǽ]
   桼Υ٥Ԥȼ
  []
   ǤΥ٥ȤȤȤϡŪˤprolog_eventȤTcl/Tk¦
   ƤӽФΤǤꡢܥƥǤϡܥ "code" °
   Ƥ줿ȥǤ롣

flush
  [ǽ]
   ίޤäƤƤΥ٥Ȥ¹Ԥ롣

tk_set_var(+Win,+Var,+Val)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  Var: Tkѿ̾Υȥ
  Val: TkѿͤΥȥ
  [ǽ]
   롼ȥɥѿVarʥ桼Ǥդ˷Ƥƥ
   ѤΤȾͤʤ褦ˤˤФVal롣

tk_get_var(+Win,+Var,^Val)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  Var: Tkѿ̾Υȥ
  Val: TkѿͤΥȥ
  [ǽ]
   롼ȥɥѿVarʥ桼Ǥդ˷Ƥƥ
   ѤΤȾͤʤ褦ˤˤ֤ͤ

set_title(+Win,+Title)
  Win:   ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
         or ֥ɥ
  Title: ɥΥȥΥȥ
  [ǽ]
   ɥΥȥꤹ롣

kill(+Win)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
       or ֥ɥ
  [ǽ]
   ɥǤ롣

get_parts(+Win,+Name,-Obj)
get_parts(-Win,-Name,Obj)
  Win:  ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  Name: ̾ȥ
  Obj:  ʥ֥ȡWin/Name
  [ǽ]
   ʥ֥ȼ̻Ҥ֤뤤ϡ̻ҹʥɥ̾
   ֤

iconify(+Win)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
       or ֥ɥ֥
  [ǽ]
   ɥΥ

deiconify(+Win)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
       or ֥ɥ֥
  [ǽ]
   ɥΥ֤뤤ԲĻ֤򸵤᤹

hide(+Win)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
       or ֥ɥ֥
  [ǽ]
   ɥԲĻˤ롣

window_bell(+Win)
  Win: ɥ֥ȡTcl/Tk󥿥ץ꥿̻Ҥήѡ
  [ǽ]
   ٥Ĥ餹

clear_canvas(+Can)
  Can   :Хʥ֥
  [ǽ]
   Х̤򥯥ꥢ롣

get_canvas_size(+Can,-W,-H)
  Can   :Хʥ֥
  W     :Хβ(ɥåȿ)
  H     :Хνĥ(ɥåȿ)
  [ǽ]
   Хζΰ襵롣

set_canvas_scroll_region(+Can)
  Can   :Хʥ֥
  [ǽ]
   ХΥǽΰǿο޷ޤΰ˺ꤹ롣
  []
   ǽΰϰٷƤ޷Ȥ̵ط˸ꤵ
   ƤޤСĹγ礬¾ȤƤ뤿ᡢ
   ޷ѹäϡνҸ¹ԤƱȤ٤Ǥ롣

createBox(+Can,+CL,+AttrL,-Obj)
createOval(+Can,+CL,+AttrL,-Obj)
createLine(+Can,+CL,+AttrL,-Obj)
createText(+Can,+CL,+AttrL,-Obj)
createPoly(+Can,+CL,+AttrL,-Obj)
createArc(+Can,+CL,+AttrL,-Obj)
  Can   :Хʥ֥
  CL    : ɸꥹȡͤΥꥹȡˢܤϳͽ񻲾ȡ
  AttrL : °ꥹ
  Obj   : ޷֥
  [ǽ]
   줾ο޷֥Ⱥ褹롣
   Box϶OvalʱߡLineľTextϥƥȡPoly¿ѷArc
   ʱ߸̡

get_owner_canvas(Obj,Can)
  Obj   :޷֥
  Can   :Хʥ֥
  [ǽ]
   ޷֥Ȥ°륭Х֥Ȥ֤

move(+Obj,+X,+Y)
  Obj : ޷֥ or 롼ץ֥
  X   : Xɸ
  Y   : Yɸ
  [ǽ]
   ޷֥Ȥ(X,Y)ʬư롣

remove(+Obj)
  Obj : ޷֥ or 롼ץ֥
  [ǽ]
   ޷֥Ȥ롣
  []
   ѤǤϥ롼פξ礽Ǥǡ롼ץ֥ȼ
   ϻĤ롣

scale(+Obj,+X,+Y,+SX,+SY)
  Obj : ޷֥ or 롼ץ֥
  X   : Xɸ
  Y   : Yɸ
  SX  : XΨ
  SY  : YΨ
  [ǽ]
   ޷֥Ȥ(X,Y)(SX,SY)ܤ롣

lower(+Obj)
  Obj : ޷֥ or 롼ץ֥
  [ǽ]
   ޷֥Ȥ̤֤

raise(+Obj)
  Obj : ޷֥ or 롼ץ֥
  [ǽ]
   ޷֥Ȥ̤֤

set_fig_attr(+Obj,+AttrL)
  Obj   : ޷֥
  AttrL : °ꥹ
  [ǽ]
   ޷֥Ȥ°ꤹ롣

get_fig_attr(+Obj,^AttrL)
  Obj   : ޷֥
  AttrL : °ꥹ(ѿ°ʬ˻ꤷͤ)
  [ǽ]
   ޷֥Ȥ°ͤ롣

get_fig_info(+Obj,^QueryL)
  Obj    : ޷֥
  QueryL : 䤤碌̾ꥹ
            ʤȤС[bbox->X,coords->Y]Τ褦䤤碌ȡ
              X,YˤϲΥȥ󥰤֤
  [ǽ]
   ޷֥ȤγƼͤ롣

invisible(+Obj)
  Obj    : ޷֥ or 롼ץ֥
  [ǽ]
   ޷ԲĻˤ롣

visible(+Obj)
  Obj    : ޷֥ or 롼ץ֥
  [ǽ]
   ޷Ļ֤᤹

click_notify(+Obj,+Com)
  Obj    : ޷֥ or 롼ץ֥
  Com    : ٥̾ȥ
  [ǽ]
   ֥륯å֤٥̾ꤹ롣get_eventǼФ
   ޷˥֥륯åǧ򤵤뤿˰ƤӽФ

dragable(+Obj,+Com)
  Obj    : ޷֥ or 롼ץ֥
  Com    : ٥̾ȥ(ѿΤޤޤǤ)
  [ǽ]
   ޷ΥɥåĤ롣
   ٥̾ȥबꤵƤȤϡɥå塢Υ٥Ȥ֤롣

undragable(+Obj)
  Obj    : ޷֥ or 롼ץ֥
  [ǽ]
   ޷Υɥåػߤ롣

is_dragable(+Obj)
  Obj    : ޷֥ or 롼ץ֥
  [ǽ]
   ޷ΥɥåǽꤵƤ뤫Ĵ٤롣ꤵƤ

createGroup(-G)
  G      : 롼ץ֥
  [ǽ]
   롼פ

regist(+G,+L)
  G      : 롼ץ֥
  L      : ޷֥ȤΥꥹ or ޷֥
  [ǽ]
   ޷֥Ȥ򥰥롼פϿ롣

release(+G)
  G      : 롼ץ֥
  [ǽ]
   롼פϿ줿٤Ƥο޷֥Ȥ롣

release(+G,+L)
  G      : 롼ץ֥
  L      : ޷֥ȤΥꥹ
  [ǽ]
   Lǻꤵ줿٤Ƥο޷֥Ȥ롣

get_group_member(+G,-L)
  G      : 롼ץ֥
  L      : ޷֥ȤΥꥹ
  [ǽ]
   롼פΥФο޷֥ȤΥꥹȤ֤

get_text(+Obj,-St)
  Obj : ȥʥ֥ ʡWindow̻/̾ȥפν񼰡
  St  : ȥ
  [ǽ]
   ȥʤϤ줿ƥȤ롣
  []
   餫Υ٥ȼ(get_event)ˡƤӽФȡ

putl_text(+Obj,+St)
put_text(+Obj,+St)
  Obj : ƥ֥̾ȡʡWindow̻/̾ȥפν񼰡
        ȥʤǤġ
  St  : ȥ
  [ǽ]
   ƥʤ˥ȥ󥰤Ϥ롣putl_textϺǸ˲ԤդƽϤ롣

clear_text(+Obj)
  Obj: ƥ֥̾ȡʡWindow̻/̾ȥפν񼰡
  [ǽ]
   ƥʤΥƥȤ򥯥ꥢ롣

clear_entry(+Obj)
  Obj: ȥ֥̾ȡʡWindow̻/̾ȥפν񼰡
  [ǽ]
   ȥʤΥƥȤ򥯥ꥢ롣

end_text(+Obj)
  Obj: ƥ֥̾ȡʡWindow̻/̾ȥפν񼰡
  [ǽ]
   ƥʤΥƥȤ˰ư

top_text(+Obj)
  Obj: ƥ֥̾ȡʡWindow̻/̾ȥפν񼰡
  [ǽ]
   ƥʤΥƥȤƬ˰ư

set_items(+Obj,+L)
  Obj: ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  L  : ܥȥΥꥹ
  [ǽ]
   ꥹȥܥåʤ˹ܥȥ٤˥åȤ롣

add_item(+Obj,+Item)
  Obj  :ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  Item :ܥȥ
  [ǽ]
   ꥹȤκǸ˹ܤɲä롣

insert_item(+Obj,+N,+Item)
  Obj  :ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  N    :(0ꥸ)
  Item :ܥȥ
  [ǽ]
   ꥹȤ˹ܤ롣

get_items(+Obj,-L)
  Obj: ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  L  : 򤵤줿ܥȥΥꥹ
  [ǽ]
   򤵤줿ܤ򤹤٤֤
  []
   ʣ֤ˤϡʤˡselectmode->multipleꤹ롣

get_item(+Obj,-X)
  Obj: ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  X  : 򤵤Ƥܤֹ档0ꥸ
  [ǽ]
   󥰥륻쥯Ⱦ֤Υꥹȥܥå򤵤Ƥܤ롣
  []
   curselectޥѡ󥰥륻쥯ȡʥǥեȡˤǤʤ
   Ǥʤ
   ºݤιܤϡget_item/3Ȥ߹碌Ƽ뤳ȡ

get_item(+Obj,+Num,-Item)
  Obj : ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  Num : ֹ
  Item: ܥȥ
  [ǽ]
   ֹιܤ֤

clear_items(+Obj)
  Obj: ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  [ǽ]
   ꥹȥܥåΥꥢ

delete_item(+Obj,+N)
  Obj: ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  N  : оݤιֹ(0ꥸ)
  [ǽ]
   ֹιܤ롣

get_items_size(+Obj,-N)
  Obj: ꥹȥܥå֥̾ȡʡWindow̻/̾ȥפν񼰡
  N  : ܿ
  [ǽ]
   ϿƤ֤ܿ

set_parts_attr(+Obj,+OL)
  Obj : Widget֥̾ȡʡWindow̻/̾ȥפν񼰡
  OL  : ץꥹ
  [ǽ]
   ʤ°ꤹ롣

get_parts_attr(+Obj,+Opt,-ValSt)
  Obj  : Widget֥̾ȡʡWindow̻/̾ȥפν񼰡
  Opt  : ץ̾ȥ
  valSt: ץͥȥ
  [ǽ]
   ʤ°ͤ롣
  []
   2ϥꥹȤǤʤȤա


-----------
8. ʸ
-----------

ܷ (1998) Tcl/tk ¥ƥ.
 (1995) ֤ϤƤTcl/Tk ɾ.
 (1997) tcl/tk Ƕ.

==============================================================================
                                                  (̳ƻ ˡ)
                                              E-mail:kaku@juris.hokudai.ac.jp
                                           Copyright (C) 1999 Tokuaysu KAKUTA
