diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor index 752d0b3ffa..c7a27f87a4 100755 --- a/extra/slides/slides.factor +++ b/extra/slides/slides.factor @@ -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 ;