29 lines
960 B
Factor
29 lines
960 B
Factor
! Copyright (C) 2006 Slava Pestov
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: gadgets
|
|
USING: memory io gadgets-panes
|
|
gadgets-scrolling namespaces help kernel gadgets-listener
|
|
gadgets-browser gadgets-search gadgets-help inspector ;
|
|
|
|
: handbook-window ( -- )
|
|
T{ link f "handbook" } help-tool call-tool ;
|
|
|
|
: memory-window ( -- )
|
|
[ heap-stats. terpri room. ] make-pane <scroller>
|
|
"Memory" open-titled-window ;
|
|
|
|
: globals-window ( -- )
|
|
[ global inspect ] listener-tool call-tool ;
|
|
|
|
! world {
|
|
! { f "Listener" f [ drop listener-window ] }
|
|
! { f "Browser" f [ drop browser-window ] }
|
|
! { f "Apropos" f [ drop apropos-window ] }
|
|
! { f "Help" f [ drop handbook-window ] }
|
|
! { f "Search Help" f [ drop search-help-window ] }
|
|
! { f "Globals" f [ drop globals-window ] }
|
|
! { f "Memory" f [ drop memory-window ] }
|
|
! { f "Save image" f [ drop save ] }
|
|
! { f "Exit" f [ drop 0 exit ] }
|
|
! } define-commands
|