-
Notifications
You must be signed in to change notification settings - Fork 7
/
menu.tst
49 lines (49 loc) · 1.36 KB
/
menu.tst
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
gap> canvas := Canvas("Callbacks in action");
<IsFrancyObject/IsCanvas>
gap> SetHeight(canvas, 100);
gap>
gap> graph := Graph(GraphType.UNDIRECTED);
<IsFrancyObject/IsFrancyGraph>
gap> shape := Shape(ShapeType.CIRCLE);
<IsFrancyObject/IsShape>
gap> Add(graph, shape);
gap> Add(canvas, graph);
gap>
gap> HelloWorld := function(name)
> Add(canvas, FrancyMessage(Concatenation("Hello, ", name)));
> return Draw(canvas);
> end;
function( name ) ... end
gap>
gap> callback1 := Callback(HelloWorld);
<IsFrancyObject/IsCallback>
gap> arg1 := RequiredArg(ArgType.STRING, "Your Name?");
<IsFrancyObject/IsCallback>
gap> Add(callback1, arg1);
gap>
gap> menu := Menu("Example Menu Holder");
<IsFrancyObject/IsMenu>
gap> SetTitle(menu, "Menu Holder");
gap> Title(menu) = "Menu Holder";
true
gap> menu1 := Menu("Hello Menu Action", callback1 );
<IsFrancyObject/IsMenu>
gap> menu2 := Menu("Hello Menu Action", callback1 );
<IsFrancyObject/IsMenu>
gap> Add(menu, menu1);
gap> Remove(menu, menu1);
<IsFrancyObject/IsMenu>
gap> Add(menu, [menu1, menu2]);
gap> Remove(menu, [menu1, menu2]);
<IsFrancyObject/IsMenu>
gap>
gap> Add(canvas, [menu, menu1]);
gap> Remove(canvas, menu1);
<IsFrancyObject/IsCanvas>
gap> Add(canvas, menu1);
gap> Add(shape, menu1);
gap> Remove(shape, menu1);
<IsFrancyObject/IsShape>
gap> Add(shape, [menu1, menu2]);
gap> Remove(shape, [menu1, menu2]);
<IsFrancyObject/IsShape>