Commit a268a08c authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

change ggen in generate

parent 9eb93aae
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -50,7 +50,7 @@ where
// mycircuit = edit "list" <<@ toBalTree >>> edit "balanced tree"
mycircuit2 = edit "list" >>> arr toBalTree >>> edit "balanced tree" // alternative definition
derive ggen BalancedTree, BalancedNode
derive generate BalancedTree, BalancedNode
example2 = startCircuit mycircuit3 (toBalTree [1..5]) // self balancing tree
......
This diff is collapsed.
This diff is collapsed.
......@@ -10,12 +10,12 @@ import StdGEC
goGui :: (*(PSt u:Void) -> *(PSt u:Void)) *World -> .World
goGui gui world = startIO MDI Void gui [ProcessClose closeProcess] world
derive ggen MyAdminstration, Mode
derive generate MyAdminstration, Mode
Start :: *World -> *World
Start world
= goGui
example_db3
example_db1
world
example_db1 = startCircuit (edit "My Database") [MyRecord]
......@@ -31,7 +31,7 @@ where
&& isAlpha zipcode.[4]
&& isAlpha zipcode.[5] //|| zipcode==""
predGEC :: String (a -> Bool) -> GecCircuit a a | gGEC{|*|}, ggen{|*|} a
predGEC :: String (a -> Bool) -> GecCircuit a a | generate {|*|}, generate{|*|} a
predGEC s p = arr (\a -> (a,Hide a))
>>> edit s
>>> arr (\(a,Hide oa) -> if (p a) a oa)
......
This diff is collapsed.
......@@ -35,7 +35,7 @@ myclock = Timed (\i -> 100) 100
derive gGEC MouseState, Modifiers
derive ggen ShapeAttributes, Mode, MouseState, Colour, Shape, Modifiers, Point2, RGBColour
derive generate ShapeAttributes, Mode, MouseState, Colour, Shape, Modifiers, Point2, RGBColour
example_mouse pst
= startCircuit (feedback ( edit "Mouse" >>> gecMouse "Mouse" )) MouseLost pst
......
This diff is collapsed.
......@@ -32,9 +32,7 @@ derive gGEC Rectangle,Point2,Colour,RGBColour,ShapeAttributes,Shape,Oval,Box
myclock = Timed (\i -> 100) 100
derive ggen Shape, ShapeAttributes, Mode, Timed, Oval, Box, Colour, RGBColour
ggen {|(->)|} ga gb i is = undef
derive generate Shape, ShapeAttributes, Mode, Timed, Oval, Box, Colour, RGBColour
example_draw pst
# (wid,pst) = openId pst
......
This diff is collapsed.
......@@ -43,9 +43,7 @@ where
} = {all & result = showAGEC ((^^ af) (^^ av))}
dotest all = all
derive ggen MyRecord, Command, Editor, TypeVal, Maybe, DynString, ApplicationElem
ggen {|(->)|} ga gb i is = undef
derive generate MyRecord, Command, Editor, TypeVal, Maybe, DynString, ApplicationElem
Start :: *World -> *World
//Start world = goGui testje world
......
This diff is collapsed.
......@@ -152,8 +152,8 @@ where
*/
mkDynStr x = let dx = dynamic x in DynStr dx (ShowValueDynamic dx)
derive ggen Mode, DynString, MyRecord3, T, X, MyRecord10
ggen {|(->)|} ga gb i is = undef
derive generate Mode, DynString, MyRecord3, T, X, MyRecord10
//ggen {|(->)|} ga gb i is = undef
/* Section 4.1. Example 2
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment