Fix slides for with-ui change
parent
36d03dfa08
commit
5f2aac9bda
|
@ -1,9 +1,9 @@
|
|||
! Copyright (C) 2007, 2008 Slava Pestov.
|
||||
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays hashtables help.markup help.stylesheet io
|
||||
io.styles kernel math models namespaces sequences ui ui.gadgets
|
||||
ui.gadgets.books ui.gadgets.panes ui.gestures ui.pens.gradient
|
||||
parser accessors colors ;
|
||||
parser accessors colors fry ;
|
||||
IN: slides
|
||||
|
||||
CONSTANT: stylesheet
|
||||
|
@ -104,4 +104,4 @@ TUPLE: slides < book ;
|
|||
} set-gestures
|
||||
|
||||
: slides-window ( slides -- )
|
||||
[ <slides> "Slides" open-window ] with-ui ;
|
||||
'[ _ <slides> "Slides" open-window ] with-ui ;
|
||||
|
|
Loading…
Reference in New Issue