bubble-chamber: remove individual launcher vocabs in favor of single window.

2018-01-22 07:50:19 -08:00 · 2018-01-22 07:50:19 -08:00 · 12166d3693
parent bfeb011341
commit 12166d3693
15 changed files with 15 additions and 65 deletions
--- a/extra/bubble-chamber/bubble-chamber.factor
+++ b/extra/bubble-chamber/bubble-chamber.factor
@ -1,8 +1,10 @@
-USING: accessors arrays calendar colors colors.gray
+USING: accessors arrays ascii calendar colors colors.gray
 combinators.short-circuit frame-buffer kernel locals math
 math.constants math.functions math.libm math.order math.points
 math.ranges math.vectors namespaces opengl processing.shapes
-random sequences threads ui ui.gadgets ui.gestures ;
+quotations random sequences splitting threads ui ui.gadgets
+ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs
+ui.gestures ;

 IN: bubble-chamber

@ -498,3 +500,14 @@ bubble-chamber H{
     111 [ <axion>  add-particle ] times
    dup particles>> [ collide randomize-collision-theta ] each
    drop ;
+
+MAIN-WINDOW: run-bubble-chamber { { title "Bubble Chamber" } }
+    <pile> 1 >>fill { 2 2 } >>gap {
+        original small medium large hadron-chamber
+        quark-chamber muon-chamber ten-hadrons
+        original-big-bang original-big-bang-variant
+    } [
+        [ name>> "-" " " replace >title ]
+        [ 1quotation [ drop ] prepend ] bi
+        <border-button> add-gadget
+    ] each { 2 2 } <border> >>gadgets ;
--- a/extra/bubble-chamber/hadron-chamber/hadron-chamber.factor
+++ b/extra/bubble-chamber/hadron-chamber/hadron-chamber.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.hadron-chamber
-
-: main ( -- ) [ hadron-chamber ] with-ui ;
-
-MAIN: main
--- a/extra/bubble-chamber/hadron-chamber/tags.txt
+++ b/extra/bubble-chamber/hadron-chamber/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/large/large.factor
+++ b/extra/bubble-chamber/large/large.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.large
-
-: main ( -- ) [ large ] with-ui ;
-
-MAIN: main
--- a/extra/bubble-chamber/large/tags.txt
+++ b/extra/bubble-chamber/large/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/medium/medium.factor
+++ b/extra/bubble-chamber/medium/medium.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.medium
-
-: main ( -- ) [ medium ] with-ui ;
-
-MAIN: main
--- a/extra/bubble-chamber/medium/tags.txt
+++ b/extra/bubble-chamber/medium/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/original/original.factor
+++ b/extra/bubble-chamber/original/original.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.original
-
-: main ( -- ) [ original ] with-ui ;
-
-MAIN: main
--- a/extra/bubble-chamber/original/tags.txt
+++ b/extra/bubble-chamber/original/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/quark-chamber/quark-chamber.factor
+++ b/extra/bubble-chamber/quark-chamber/quark-chamber.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.quark-chamber
-
-: main ( -- ) [ quark-chamber ] with-ui ;
-
-MAIN: main
--- a/extra/bubble-chamber/quark-chamber/tags.txt
+++ b/extra/bubble-chamber/quark-chamber/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/small/small.factor
+++ b/extra/bubble-chamber/small/small.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.small
-
-: main ( -- ) [ small ] with-ui ;
-
-MAIN: main
--- a/extra/bubble-chamber/small/tags.txt
+++ b/extra/bubble-chamber/small/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/ten-hadrons/tags.txt
+++ b/extra/bubble-chamber/ten-hadrons/tags.txt
@ -1 +0,0 @@
-demos
--- a/extra/bubble-chamber/ten-hadrons/ten-hadrons.factor
+++ b/extra/bubble-chamber/ten-hadrons/ten-hadrons.factor
@ -1,8 +0,0 @@
-
-USING: ui bubble-chamber ;
-
-IN: bubble-chamber.ten-hadrons
-
-: main ( -- ) [ ten-hadrons ] with-ui ;
-
-MAIN: main