/[gcl]/gcl/gcl-tk/demos/mkStyles.lisp
ViewVC logotype

Diff of /gcl/gcl-tk/demos/mkStyles.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:01 1999 UTC revision 1.1.1.1.24.1 by camm, Sun May 1 05:08:09 2005 UTC
# Line 15  Line 15 
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")

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.24.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26