samples/x11/x11test.st

   1 Requires [ x11 ]
   2
   3
   4 {
   5   | w |
   6   X11Singleton initialize.
   7   w := X11Window new: nil x: 0 y: 0 width: 200 height: 100.
   8   w onExpose: [:w |
   9     w fgColor: 1.0 g: 0 b: 0.
  10     X11Singleton XDrawLine: w wid gc: w gc x0: 1 y0: 1 x1: 80 y1: 60.
  11     w fgColor: 0 g: 1.0 b: 0.
  12     X11Singleton XDrawLine: w wid gc: w gc x0: 1 y0: 10 x1: 80 y1: 60.
  13     w fgColor: 0 g: 0 b: 1.0.
  14     X11Singleton XDrawLine: w wid gc: w gc x0: 1 y0: 20 x1: 80 y1: 60.
  15     w fgColor: 0.5 g: 0 b: 0.
  16     X11Singleton XDrawLine: w wid gc: w gc x0: 1 y0: 50 x1: 80 y1: 60.
  17   ].
  18   X11Singleton add: w.
  19   w show.
  20   X11Singleton eventLoop.
  21 }