equal
deleted
inserted
replaced
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-DialogBoxes' |
17 category:'Views-DialogBoxes' |
18 ! |
18 ! |
19 |
19 |
20 !ListSelectionBox class methodsFor:'documentation'! |
20 !ListSelectionBox class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1990 by Claus Gittinger |
24 COPYRIGHT (c) 1990 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
91 box openModeless |
91 box openModeless |
92 [exEnd] |
92 [exEnd] |
93 " |
93 " |
94 ! ! |
94 ! ! |
95 |
95 |
96 !ListSelectionBox class methodsFor:'instance creation'! |
96 !ListSelectionBox class methodsFor:'instance creation'! |
97 |
97 |
98 title:titleString okText:okText abortText:abortText list:aList action:aBlock |
98 title:titleString okText:okText abortText:abortText list:aList action:aBlock |
99 "create and return a new listSelectionBox with list already defined" |
99 "create and return a new listSelectionBox with list already defined" |
100 |
100 |
101 |newBox| |
101 |newBox| |
103 newBox := super title:titleString okText:okText abortText:abortText |
103 newBox := super title:titleString okText:okText abortText:abortText |
104 action:aBlock. |
104 action:aBlock. |
105 ^ newBox list:aList |
105 ^ newBox list:aList |
106 ! ! |
106 ! ! |
107 |
107 |
108 !ListSelectionBox class methodsFor:'defaults'! |
108 !ListSelectionBox class methodsFor:'defaults'! |
109 |
109 |
110 defaultExtent |
110 defaultExtent |
111 "return the default extent of my instances. |
111 "return the default extent of my instances. |
112 The value returned here is usually ignored, and |
112 The value returned here is usually ignored, and |
113 the value from preferredExtent taken instead." |
113 the value from preferredExtent taken instead." |
114 |
114 |
115 ^ (Display pixelPerMillimeter * (80 @ 100)) rounded |
115 ^ (Screen current pixelPerMillimeter * (80 @ 100)) rounded |
116 |
116 |
117 "Modified: 22.4.1996 / 23:36:49 / cg" |
117 "Modified: 5.7.1996 / 13:53:46 / cg" |
118 ! |
118 ! |
119 |
119 |
120 listViewType |
120 listViewType |
121 "return the type of listView |
121 "return the type of listView |
122 - for easier redefinition in subclasses" |
122 - for easier redefinition in subclasses" |
325 ] |
325 ] |
326 |
326 |
327 "Modified: 26.10.1995 / 17:20:06 / cg" |
327 "Modified: 26.10.1995 / 17:20:06 / cg" |
328 ! ! |
328 ! ! |
329 |
329 |
330 !ListSelectionBox class methodsFor:'documentation'! |
330 !ListSelectionBox class methodsFor:'documentation'! |
331 |
331 |
332 version |
332 version |
333 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.34 1996-05-31 20:18:39 cg Exp $' |
333 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.35 1996-07-05 13:03:15 cg Exp $' |
334 ! ! |
334 ! ! |