From 9a7b09bf42296a70021b3044ce06ce2189e51a91 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 23 Dec 2005 03:29:11 +0000
Subject: [PATCH] removed book gadget

---
 library/bootstrap/boot-stage1.factor |  1 -
 library/ui/books.factor              | 52 ----------------------------
 2 files changed, 53 deletions(-)
 delete mode 100644 library/ui/books.factor

diff --git a/library/bootstrap/boot-stage1.factor b/library/bootstrap/boot-stage1.factor
index af5302f947..682a0b7df9 100644
--- a/library/bootstrap/boot-stage1.factor
+++ b/library/bootstrap/boot-stage1.factor
@@ -184,7 +184,6 @@ vectors words ;
         "/library/ui/incremental.factor"
         "/library/ui/paragraphs.factor"
         "/library/ui/panes.factor"
-        "/library/ui/books.factor"
         "/library/ui/outliner.factor"
         "/library/ui/listener.factor"
         "/library/ui/commands.factor"
diff --git a/library/ui/books.factor b/library/ui/books.factor
deleted file mode 100644
index eb815e5d53..0000000000
--- a/library/ui/books.factor
+++ /dev/null
@@ -1,52 +0,0 @@
-! Copyright (C) 2005 Slava Pestov.
-! See http://factor.sf.net/license.txt for BSD license.
-IN: gadgets-books
-USING: gadgets gadgets-buttons gadgets-labels gadgets-layouts
-gadgets-theme generic kernel lists math namespaces sequences
-styles ;
-
-TUPLE: book page ;
-
-C: book ( pages -- book )
-    [ >r make-stack r> set-gadget-delegate ] keep
-    0 over set-book-page ;
-
-M: book layout* ( book -- )
-    dup delegate layout*
-    dup gadget-children [ hide-gadget ] each
-    dup book-page swap gadget-children nth
-    [ show-gadget ] when* ;
-
-: show-page ( n book -- )
-    [ gadget-children length rem ] keep
-    [ set-book-page ] keep relayout-1 ;
-
-: first-page ( book -- ) 0 swap show-page ;
-
-: prev-page ( book -- ) [ book-page 1- ] keep show-page ;
-
-: next-page ( book -- ) [ book-page 1+ ] keep show-page ;
-
-: last-page ( book -- ) -1 swap show-page ;
-
-TUPLE: book-browser book ;
-
-: find-book ( gadget -- )
-    [ book-browser? ] find-parent book-browser-book ;
-
-: <book-button> ( polygon quot -- button )
-    \ find-book swons >r gray swap <polygon-gadget> r>
-    <bevel-button> ;
-
-: <book-buttons> ( book -- gadget )
-    [
-        arrow-|left  [ first-page ] <book-button> ,
-        arrow-left   [ prev-page  ] <book-button> ,
-        arrow-right  [ next-page  ] <book-button> ,
-        arrow-right| [ last-page  ] <book-button> ,
-    ] { } make make-shelf ;
-
-C: book-browser ( book -- gadget )
-    dup delegate>frame
-    <book-buttons> over @top frame-add
-    [ 2dup set-book-browser-book @center frame-add ] keep ;