17 lines
438 B
Factor
17 lines
438 B
Factor
|
|
USING: kernel x11.xlib mortar mortar.sugar slot-accessors x.gc x.widgets ;
|
|
|
|
IN: x.widgets.label
|
|
|
|
SYMBOL: <label>
|
|
|
|
<label> <widget> { "gc" "text" } accessors define-simple-class
|
|
|
|
<label> "create" !( text <label> -- label ) [
|
|
new-empty swap >>text <gc> new* >>gc ExposureMask >>mask <- init-widget
|
|
] add-class-method
|
|
|
|
<label> "handle-expose" !( event label -- ) [
|
|
nip <- clear dup $gc { 20 20 } pick $text <---- draw-string
|
|
] add-method
|