gui changes
This commit is contained in:
parent
4ee16dcf06
commit
35cab67ab5
5
gui.pl
5
gui.pl
@ -1,13 +1,13 @@
|
||||
% erstmal nur experimentell, der bums kommt zum schluss
|
||||
% falls noch zeit sein sollte jedenfalls
|
||||
|
||||
|
||||
% new(@specifier, dialog('windowname'))
|
||||
% send(@specifiert, append(text_item(name)))
|
||||
window(Name) :-
|
||||
new(D, dialog(Name)),
|
||||
send(D, append, button(init, message(@prolog, init_feld1))),
|
||||
send(D, append, button(show, message(@prolog, window3, 'Spielfeld'))),
|
||||
send(D, append, button(newbutton, message(@prolog, new_butt, D))),
|
||||
send(D, open).
|
||||
|
||||
window2(Name) :-
|
||||
@ -21,6 +21,9 @@ window2(Name) :-
|
||||
send(D, open).
|
||||
|
||||
|
||||
new_butt(D) :-
|
||||
send(D, append, button(penis, message(@prolog, init_feld1))).
|
||||
|
||||
% Specific für window3/1
|
||||
:- use_module(library(tabular)).
|
||||
:- use_module(library(autowin)).
|
||||
|
Loading…
x
Reference in New Issue
Block a user