Linking two boxes with a connection
This example demonstrates how two boxes can be linked using
connections. Note that the link is reusable, and is therefore declared
as a global object.
:- pce_global(@in_out_link, make_in_out_link).
make_in_out_link(L) :-
new(L, link(in, out, line(0,0,0,0,second))).
linked_box_demo :-
new(P, picture('Linked Box demo')),
send(P, open),
send(P, display, new(B1, box(50,50)), point(20,20)),
send(P, display, new(B2, box(25,25)), point(100,100)),
send(B1, handle, handle(w, h/2, in)),
send(B2, handle, handle(w/2, 0, out)),
send(B1, connect, B2, @in_out_link),
% Add resize/move gestures so you can
% play
send_list([B1,B2], recogniser,
handler_group(resize_gesture(left),
move_gesture(left))).
% Start the demo
:- linked_box_demo.
- See also
- - topic Connections
- class handle
- class constraint
- class connection
- class link
