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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
/* prompt.pl,v 1.0.0.1 1992/07/27 09:17:31 toussain Exp
Part of XPCE
Designed and implemented by Anjo Anjewierden and Jan Wielemaker
E-mail: jan@swi.psy.uva.nl
Copyright (C) 1992 University of Amsterdam. All rights reserved.
*/
:- module(pce_prompt,
[ prompt/2
]).
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
This module defines a standard prompter-box for PCE applications. It is
invoked with:
prompt(+Tile, +ListOfAttributes)
where each attribute is a term of the form
+Label:+Type = -Value[/+Default]
Examples:
prompt('Create class',
[ name:name = Name
, super:name = Super
]).
NOTE: Package is under development. Needs support for more types;
optional/obligatory fields and better error-messages.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
:- pce_global(@prompter, new(dialog)).
:- pce_global(@prompter_execute_message,
new(message(@receiver?window?ok_member, execute))).
prompt(Title, Attributes) :-
send(@prompter, clear),
checklist(append_prompter(@prompter), Attributes),
send(@prompter, append,
button(ok, message(@prompter, return, ok)), next_row),
send(@prompter, append,
button(cancel, message(@prompter, return, cancel))),
send(@prompter?frame, label, Title),
send(@prompter, fit),
repeat,
get(@prompter, confirm_centered, ?(@event, position, @display), OK),
( OK == ok
-> checklist(read_prompter(@prompter), Attributes), !,
send(@prompter, show, @off)
; !,
send(@prompter, show, @off),
fail
).
/********************************
* CREATE DIALOG ITEMS *
********************************/
append_prompter(P, Label:Type = Value) :-
make_dialog_item(DI, Label, Type),
set_default(Value, DI),
send(P, append, DI).
% TBD: specialised types
make_dialog_item(DI, Label, _) :- !,
new(DI, text_item(Label, '', @prompter_execute_message)).
/********************************
* SET DEFAULTS *
********************************/
set_default(Value, DI) :-
nonvar(Value),
Value = _RVal/Default, !,
send(DI, selection, Default).
set_default(_, _).
/********************************
* READ VALUES *
********************************/
read_prompter(P, Label:Type = Value) :-
get(P, member, Label, DI),
get(DI, selection, V0),
canonise(DI, V0, V1),
( get(@pce, convert, V1, Type, Val)
-> ( nonvar(Value),
Value = RVal/_
-> RVal = Val
; Value = Val
)
; send(@display, inform, '%s should be a %s', Label, Type),
fail
).
canonise(DI, A, B) :-
send(DI?class, is_a, text_item), !,
new(S, string(A)),
send(S, strip),
get(S, value, B),
send(S, done).
canonise(_, Val, Val). % TBD
|
