15 |
(wm :iconname w "Text Styles") |
(wm :iconname w "Text Styles") |
16 |
|
|
17 |
(button (conc w '.ok) :text "OK" :command (tk-conc "destroy " w)) |
(button (conc w '.ok) :text "OK" :command (tk-conc "destroy " w)) |
18 |
|
(scrollbar (conc w '.s) :relief "flat" :command (tk-conc w ".t yview")) |
19 |
(text textwin :relief "raised" :bd 2 :yscrollcommand (tk-conc w ".s set") :setgrid "true" |
(text textwin :relief "raised" :bd 2 :yscrollcommand (tk-conc w ".s set") :setgrid "true" |
20 |
:width 70 :height 28) |
:width 70 :height 28) |
|
(scrollbar (conc w '.s) :relief "flat" :command (tk-conc w ".t yview")) |
|
21 |
(pack (conc w '.ok) :side "bottom" :fill "x") |
(pack (conc w '.ok) :side "bottom" :fill "x") |
22 |
(pack (conc w '.s) :side "right" :fill "y") |
(pack (conc w '.s) :side "right" :fill "y") |
23 |
(pack textwin :expand "yes" :fill "both") |
(pack textwin :expand "yes" :fill "both") |