samples/x11/x11test.st

   1 Requires [ x11 ]
   2
   3
   4 {
   5   | disp w |
   6   disp := X11Singleton XOpenDisplay: nil.
   7   X11Singleton defaultDispay: disp.
   8   "(X11Singleton subtypeName: disp) printNl."
   9   w := X11Window new: nil x: 0 y: 0 width: 200 height: 100.
  10   w onExpose: [:w | X11Singleton XDrawLine: w wid gc: w gc x0: 1 y0: 1 x1: 80 y1: 60 ].
  11   X11Singleton add: w.
  12   w show.
  13   X11Singleton eventLoop.
  14 }