extra/x/widgets/label/label.factor

   1
   2 USING: kernel x11.xlib mortar slot-accessors x.gc x.widgets ;
   3
   4 IN: x.widgets.label
   5
   6 SYMBOL: <label>
   7
   8 <label> <widget> { "gc" "text" } accessors define-simple-class
   9
  10 <label> "create" !( text <label> -- label ) [
  11 new-empty swap >>text <gc> new* >>gc ExposureMask >>mask <- init-widget
  12 ] add-class-method
  13
  14 <label> "handle-expose" !( event label -- ) [
  15   nip <- clear dup $gc { 20 20 } pick $text <---- draw-string
  16 ] add-method