equal
deleted
inserted
replaced
279 "return my preferred extent - thats the minimum size |
279 "return my preferred extent - thats the minimum size |
280 I like to have, to make everything visible" |
280 I like to have, to make everything visible" |
281 |
281 |
282 |wWanted hWanted eH mm| |
282 |wWanted hWanted eH mm| |
283 |
283 |
|
284 preferredExtent notNil ifTrue:[ |
|
285 ^ preferredExtent |
|
286 ]. |
|
287 |
284 mm := ViewSpacing. |
288 mm := ViewSpacing. |
285 |
289 |
286 wWanted := mm + labelField width + mm. |
290 wWanted := mm + labelField width + mm. |
287 (wWanted > width) ifFalse:[ |
291 (wWanted > width) ifFalse:[ |
288 wWanted := width |
292 wWanted := width |
302 (hWanted < height) ifTrue:[ |
306 (hWanted < height) ifTrue:[ |
303 hWanted := height |
307 hWanted := height |
304 ]. |
308 ]. |
305 ^ (wWanted @ hWanted) |
309 ^ (wWanted @ hWanted) |
306 |
310 |
307 "Modified: 21.2.1996 / 01:01:02 / cg" |
311 "Modified: 29.5.1996 / 12:11:55 / cg" |
308 ! ! |
312 ! ! |
309 |
313 |
310 !ListSelectionBox methodsFor:'user actions'! |
314 !ListSelectionBox methodsFor:'user actions'! |
311 |
315 |
312 doubleClick |
316 doubleClick |
331 ! ! |
335 ! ! |
332 |
336 |
333 !ListSelectionBox class methodsFor:'documentation'! |
337 !ListSelectionBox class methodsFor:'documentation'! |
334 |
338 |
335 version |
339 version |
336 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.31 1996-05-26 13:22:17 cg Exp $' |
340 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.32 1996-05-29 10:16:58 cg Exp $' |
337 ! ! |
341 ! ! |