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

Diff of /gcl/gcl-tk/demos/mkPlot.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 17  Line 17 
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    

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