From fd93f105c5190763d14606f08e88ddf005b0defc Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Thu, 6 Aug 2009 21:01:51 -0500
Subject: [PATCH] removed basis dependent vocabs

---
 extra/file-trees/file-trees-tests.factor      |  4 --
 extra/file-trees/file-trees.factor            | 49 -------------------
 extra/ui/gadgets/magic-scrollers/authors.txt  |  1 -
 .../magic-scrollers/magic-scrollers.factor    | 21 --------
 4 files changed, 75 deletions(-)
 delete mode 100644 extra/file-trees/file-trees-tests.factor
 delete mode 100644 extra/file-trees/file-trees.factor
 delete mode 100644 extra/ui/gadgets/magic-scrollers/authors.txt
 delete mode 100644 extra/ui/gadgets/magic-scrollers/magic-scrollers.factor

diff --git a/extra/file-trees/file-trees-tests.factor b/extra/file-trees/file-trees-tests.factor
deleted file mode 100644
index dbb8f9f5d8..0000000000
--- a/extra/file-trees/file-trees-tests.factor
+++ /dev/null
@@ -1,4 +0,0 @@
-USING: kernel file-trees ;
-IN: file-trees.tests
-{ "/sample/1" "/sample/2" "/killer/1" "/killer/2/3"
-"/killer/2/4" "/killer/2/4/6" "/megakiller" } create-tree drop
\ No newline at end of file
diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor
deleted file mode 100644
index cb6cbaf847..0000000000
--- a/extra/file-trees/file-trees.factor
+++ /dev/null
@@ -1,49 +0,0 @@
-USING: accessors arrays delegate delegate.protocols
-io.pathnames kernel locals sequences
-vectors make strings models.combinators ui.gadgets.controls
-sequences.extras ;
-IN: file-trees
-
-TUPLE: walkable-vector vector father ;
-CONSULT: sequence-protocol walkable-vector vector>> ;
-
-M: walkable-vector set-nth [ vector>> set-nth ] 3keep nip
-   father>> swap children>> vector>> push ;
-
-TUPLE: tree node comment children ;
-CONSULT: sequence-protocol tree children>> ;
-
-: file? ( tree -- ? ) children>> [ node>> ".." = not ] filter empty? ;
-
-: <dir-tree> ( {start,comment} -- tree ) first2 walkable-vector new vector new >>vector
-   [ tree boa dup children>> ] [ ".." -rot tree boa ] 2bi swap (>>father) ;
-
-DEFER: (tree-insert)
-
-: tree-insert ( path tree -- ) [ unclip <dir-tree> ] [ children>> ] bi* (tree-insert) ;
-:: (tree-insert) ( path-rest path-head tree-children -- )
-   tree-children [ node>> path-head node>> = ] find nip
-   [ path-rest swap tree-insert ]
-   [ 
-      path-head tree-children push
-      path-rest [ path-head tree-insert ] unless-empty
-   ] if* ;
-
-: add-paths ( pathseq -- {{name,path}} )
-   "" [ [ "/" glue dup ] keep swap 2array , ] [ reduce drop ] f make ;
-
-: go-to-path ( path tree -- tree' ) over empty? [ nip ]
-   [ [ unclip ] [ children>> ] bi* swap [ swap node>> = ] curry find nip go-to-path ] if ;
-
-: find-root ( pathseq -- root ) dup flip
-   [ [ dupd = [ ] [ drop f ] if ] reduce1 ] find-last drop
-      [ first ] dip head-slice >string path-components ;
-
-: create-tree ( file-list -- tree ) [ find-root ]
-   [ [ path-components add-paths ] map { "/" "/" } <dir-tree> [ [ tree-insert ] curry each ] keep ] bi
-   go-to-path ;
-
-: <dir-table> ( tree-model -- table )
-   <list*> [ node>> 1array ] >>quot
-   [ selected>> [ file? not ] filter-model swap switch-models ]
-   [ swap >>model ] bi ;
diff --git a/extra/ui/gadgets/magic-scrollers/authors.txt b/extra/ui/gadgets/magic-scrollers/authors.txt
deleted file mode 100644
index ce0899f16e..0000000000
--- a/extra/ui/gadgets/magic-scrollers/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Sam Anklesaria
\ No newline at end of file
diff --git a/extra/ui/gadgets/magic-scrollers/magic-scrollers.factor b/extra/ui/gadgets/magic-scrollers/magic-scrollers.factor
deleted file mode 100644
index 53344979c4..0000000000
--- a/extra/ui/gadgets/magic-scrollers/magic-scrollers.factor
+++ /dev/null
@@ -1,21 +0,0 @@
-! Copyright (C) 2009 Sam Anklesaria.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors combinators kernel math models sequences
-ui.gadgets ui.gadgets.scrollers ui.gadgets.sliders ;
-IN: ui.gadgets.magic-scrollers
-
-TUPLE: magic-slider < slider ;
-: <magic-slider> ( range orientation -- slider ) magic-slider new-slider ;
-: get-dim ( orientation dims -- dim )
-    swap {
-        { horizontal [ first ] }
-        { vertical [ second ] }
-    } case ;
-
-! do this with pref-dim*, not draw-gadget
-M: magic-slider model-changed [ call-next-method ] 2keep swap value>>
-    [ second ] [ fourth ] bi < [ show-gadget ] [ hide-gadget ] if ;
-
-TUPLE: magic-scroller < scroller ;
-: <magic-scroller> ( gadget -- scroller ) magic-scroller new-scroller ;
-M: magic-scroller (build-children) <magic-slider> ;
\ No newline at end of file