equal
deleted
inserted
replaced
19 |
19 |
20 ListSelectionBox comment:' |
20 ListSelectionBox comment:' |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.16 1995-08-11 16:07:24 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.17 1995-09-07 12:45:09 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !ListSelectionBox class methodsFor:'documentation'! |
27 !ListSelectionBox class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.16 1995-08-11 16:07:24 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.17 1995-09-07 12:45:09 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
67 box := ListSelectionBox new. |
67 box := ListSelectionBox new. |
68 box title:'select something:'. |
68 box title:'select something:'. |
69 box list:#('foo' 'bar' 'baz'). |
69 box list:#('foo' 'bar' 'baz'). |
70 box okAction:[:sel | Transcript showCr:'the selection was:' , sel]. |
70 box okAction:[:sel | Transcript showCr:'the selection was:' , sel]. |
71 box showAtPointer |
71 box showAtPointer |
|
72 |
72 |
73 |
73 with a default: |
74 with a default: |
74 |
75 |
75 |box| |
76 |box| |
76 |
77 |
78 box title:'select something:'. |
79 box title:'select something:'. |
79 box list:#('foo' 'bar' 'baz'). |
80 box list:#('foo' 'bar' 'baz'). |
80 box okAction:[:sel | Transcript showCr:'the selection was:' , sel]. |
81 box okAction:[:sel | Transcript showCr:'the selection was:' , sel]. |
81 box initialText:'foo'. |
82 box initialText:'foo'. |
82 box showAtPointer |
83 box showAtPointer |
|
84 |
|
85 |
|
86 opening the box modeless (a stand-by box): |
|
87 (in this case, the default ok- and abortActions do not hide the box; |
|
88 therefore, we have to set those explicitely) |
|
89 |
|
90 |box| |
|
91 |
|
92 box := ListSelectionBox new. |
|
93 box title:'select something:'. |
|
94 box list:#('foo' 'bar' 'baz'). |
|
95 box abortText:'close'. |
|
96 box okText:'apply'. |
|
97 box okAction:[:sel | Transcript showCr:'the selection was:' , sel]. |
|
98 box abortAction:[:dummy | box hide]. |
|
99 box openModeless |
83 " |
100 " |
84 ! ! |
101 ! ! |
85 |
102 |
86 !ListSelectionBox class methodsFor:'defaults'! |
103 !ListSelectionBox class methodsFor:'defaults'! |
87 |
104 |