Fix slides for with-ui change

db4
Slava Pestov 2009-03-16 03:01:56 -05:00
parent 36d03dfa08
commit 5f2aac9bda
1 changed files with 3 additions and 3 deletions

View File

@ -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 ;