2019-10-18 09:05:06 -04:00
|
|
|
! REQUIRES: libs/process libs/vocabs ;
|
2005-11-30 04:55:53 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
USING: kernel parser io threads sequences x x.widgets wm.frame wm.root ;
|
2005-11-30 04:55:53 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
IN: factory
|
2005-12-01 23:56:25 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
: start-factory ( display-string -- )
|
2005-12-01 23:56:25 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
<dpy> >dpy
|
2005-12-01 23:56:25 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
[ "X11 : error-handler called" print flush ] set-error-handler
|
2005-12-01 23:56:25 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
init-window-table [ start-event-loop ] in-thread
|
2005-12-01 23:56:25 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
init-drag-gc
|
2005-11-30 05:27:20 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
<wm-root>
|
2005-11-30 05:27:20 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
init-atoms
|
2005-11-30 05:27:20 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
root children [ mapped? ] subset [ <frame> ] each
|
2005-11-30 05:27:20 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
home "/.factory-rc" append dup exists?
|
|
|
|
|
[ run-file ] [ drop "apps/factory/factory-rc" resource-path run-file ] if
|
2005-11-30 05:27:20 -05:00
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
;
|
2006-06-28 06:53:31 -04:00
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
2019-10-18 09:05:06 -04:00
|
|
|
"apps/factory/factory.facts" resource-path run-file
|
