2005-05-03 19:10:20 -04:00
|
|
|
! Copyright (C) 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: gadgets
|
|
|
|
|
USING: kernel namespaces sdl sequences ;
|
|
|
|
|
|
|
|
|
|
IN: shells
|
|
|
|
|
|
|
|
|
|
: ui ( -- )
|
|
|
|
|
#! Start the Factor graphics subsystem with the given screen
|
|
|
|
|
#! dimensions.
|
2005-07-11 22:47:38 -04:00
|
|
|
?init-world
|
2005-07-12 20:30:05 -04:00
|
|
|
world get shape-dim 2unseq 0 SDL_RESIZABLE [
|
2005-05-03 19:10:20 -04:00
|
|
|
0 x set 0 y set [
|
2005-06-27 00:40:51 -04:00
|
|
|
"Factor " version append dup SDL_WM_SetCaption
|
2005-06-27 03:47:22 -04:00
|
|
|
ttf-init
|
2005-05-03 23:50:04 -04:00
|
|
|
start-world
|
|
|
|
|
run-world
|
2005-05-03 19:10:20 -04:00
|
|
|
] with-screen
|
|
|
|
|
] with-scope ;
|
