17 |
(message (conc w '.msg) :font :Adobe-Times-Medium-R-Normal-*-180-* :width 400 |
(message (conc w '.msg) :font :Adobe-Times-Medium-R-Normal-*-180-* :width 400 |
18 |
:bd 2 :relief "raised" :text "This window displays a canvas widget containing a simple 2-dimensional plot. You can doctor the data by dragging any of the points with mouse button 1.") |
:bd 2 :relief "raised" :text "This window displays a canvas widget containing a simple 2-dimensional plot. You can doctor the data by dragging any of the points with mouse button 1.") |
19 |
(canvas c :relief "raised" :width 450 :height 300) |
(canvas c :relief "raised" :width 450 :height 300) |
20 |
(button (conc w '.ok) :text "OK" :command "destroy " : w) |
(button (conc w '.ok) :text "OK" :command (tk-conc "destroy " w)) |
21 |
(pack (conc w '.msg) (conc w '.c) :side "top" :fill "x") |
(pack (conc w '.msg) (conc w '.c) :side "top" :fill "x") |
22 |
(pack (conc w '.ok) :side "bottom" :pady 5) |
(pack (conc w '.ok) :side "bottom" :pady 5) |
23 |
|
|