[ T{ rgba f 1.0 1.0 1.0 1.0 } ] if ;
GENERIC# apply-world-attributes 1 ( world attributes -- world )
+
M: world apply-world-attributes
{
[ title>> >>title ]
GENERIC: begin-world ( world -- )
GENERIC: end-world ( world -- )
-
GENERIC: resize-world ( world -- )
-M: world begin-world
- drop ;
-M: world end-world
- drop ;
-M: world resize-world
- drop ;
+M: world begin-world drop ;
+M: world end-world drop ;
+M: world resize-world drop ;
M: world dim<<
[ call-next-method ]
[ hand-gadget close-global ]
[ end-world ]
[ [ <reversed> [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ]
- [ [ (close-window) f ] change-handle drop ]
[ unfocus-world ]
+ [ [ (close-window) f ] change-handle drop ]
[ promise>> t swap fulfill ]
} cleave ;