New windows don't redraw
parent
d1d2507d31
commit
2656621e9d
|
@ -73,7 +73,8 @@ C: titled-gadget ( gadget title -- )
|
||||||
<world>
|
<world>
|
||||||
dup pref-dim over set-gadget-dim
|
dup pref-dim over set-gadget-dim
|
||||||
dup world-gadget gadget-title over set-world-title
|
dup world-gadget gadget-title over set-world-title
|
||||||
open-window* ;
|
dup open-window*
|
||||||
|
draw-world ;
|
||||||
|
|
||||||
: open-titled-window ( gadget title -- )
|
: open-titled-window ( gadget title -- )
|
||||||
<model> <titled-gadget> open-window ;
|
<model> <titled-gadget> open-window ;
|
||||||
|
|
Loading…
Reference in New Issue