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 !FileSelectionBox class methodsFor:'documentation'! |
20 !FileSelectionBox 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 |
246 ] |
246 ] |
247 [exEnd] |
247 [exEnd] |
248 " |
248 " |
249 ! ! |
249 ! ! |
250 |
250 |
251 !FileSelectionBox class methodsFor:'defaults'! |
251 !FileSelectionBox class methodsFor:'defaults'! |
252 |
252 |
253 listViewType |
253 listViewType |
254 "return the type of listView - using a FileSelectionList here" |
254 "return the type of listView - using a FileSelectionList here" |
255 |
255 |
256 ^ FileSelectionList |
256 ^ FileSelectionList |
471 "return my preferred extent - thats the minimum size |
471 "return my preferred extent - thats the minimum size |
472 to make everything visible" |
472 to make everything visible" |
473 |
473 |
474 |wWanted hWanted mm| |
474 |wWanted hWanted mm| |
475 |
475 |
|
476 "/ If I have an explicit preferredExtent .. |
|
477 |
476 preferredExtent notNil ifTrue:[ |
478 preferredExtent notNil ifTrue:[ |
477 ^ preferredExtent |
479 ^ preferredExtent |
478 ]. |
480 ]. |
479 |
481 |
480 mm := ViewSpacing. |
482 mm := ViewSpacing. |
496 (hWanted < height) ifTrue:[ |
498 (hWanted < height) ifTrue:[ |
497 hWanted := height |
499 hWanted := height |
498 ]. |
500 ]. |
499 ^ (wWanted @ hWanted) |
501 ^ (wWanted @ hWanted) |
500 |
502 |
501 "Modified: 29.5.1996 / 12:12:52 / cg" |
503 "Modified: 19.7.1996 / 20:44:04 / cg" |
502 ! ! |
504 ! ! |
503 |
505 |
504 !FileSelectionBox methodsFor:'user actions'! |
506 !FileSelectionBox methodsFor:'user actions'! |
505 |
507 |
506 directoryChanged |
508 directoryChanged |
592 enterField contents:entry |
594 enterField contents:entry |
593 |
595 |
594 "Modified: 25.5.1996 / 12:27:08 / cg" |
596 "Modified: 25.5.1996 / 12:27:08 / cg" |
595 ! ! |
597 ! ! |
596 |
598 |
597 !FileSelectionBox class methodsFor:'documentation'! |
599 !FileSelectionBox class methodsFor:'documentation'! |
598 |
600 |
599 version |
601 version |
600 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.38 1996-06-04 18:32:31 cg Exp $' |
602 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.39 1996-07-19 19:12:11 cg Exp $' |
601 ! ! |
603 ! ! |