equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997-1998 by eXept Software AG |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
33 |
33 |
34 !SelectionBrowser class methodsFor:'documentation'! |
34 !SelectionBrowser class methodsFor:'documentation'! |
35 |
35 |
36 copyright |
36 copyright |
37 " |
37 " |
38 COPYRIGHT (c) 1997 by eXept Software AG |
38 COPYRIGHT (c) 1997-1998 by eXept Software AG |
39 All Rights Reserved |
39 All Rights Reserved |
40 |
40 |
41 This software is furnished under a license and may be used |
41 This software is furnished under a license and may be used |
42 only in accordance with the terms of that license and with the |
42 only in accordance with the terms of that license and with the |
43 inclusion of the above copyright notice. This software may not |
43 inclusion of the above copyright notice. This software may not |
49 |
49 |
50 ! |
50 ! |
51 |
51 |
52 documentation |
52 documentation |
53 " |
53 " |
54 documentation to be added. |
54 The abstract superclass for the ResourceSelectionBrowser |
|
55 and the FileSelectionBrowser. |
55 |
56 |
56 [author:] |
57 [author:] |
57 Thomas Zwick |
58 Thomas Zwick |
58 " |
59 " |
59 ! ! |
60 ! ! |
60 |
61 |
61 !SelectionBrowser class methodsFor:'accessing'! |
62 !SelectionBrowser class methodsFor:'accessing'! |
62 |
63 |
63 lastSelection |
64 lastSelection |
|
65 "returns the last selection; file path or resource class" |
64 |
66 |
65 ^lastSelection |
67 ^lastSelection |
66 ! |
68 ! |
67 |
69 |
68 lastSelection: aString |
70 lastSelection: aString |
|
71 "sets the last selection; file path or resource class" |
69 |
72 |
70 lastSelection := aString |
73 lastSelection := aString |
|
74 ! ! |
|
75 |
|
76 !SelectionBrowser class methodsFor:'queries'! |
|
77 |
|
78 isVisualStartable |
|
79 "returns whether this application class can be started via #open" |
|
80 |
|
81 self == SelectionBrowser ifTrue:[^false]. |
|
82 ^super isVisualStartable |
|
83 |
71 ! ! |
84 ! ! |
72 |
85 |
73 !SelectionBrowser methodsFor:'accessing'! |
86 !SelectionBrowser methodsFor:'accessing'! |
74 |
87 |
75 title: aString |
88 title: aString |
|
89 "sets the title" |
76 |
90 |
77 title := aString |
91 title := aString |
78 |
92 |
79 ! ! |
93 ! ! |
80 |
94 |
81 !SelectionBrowser methodsFor:'startup / release'! |
95 !SelectionBrowser methodsFor:'startup / release'! |
82 |
96 |
83 postBuildWith:aBuilder |
97 postBuildWith:aBuilder |
|
98 "sets the title (can be defined)" |
84 |
99 |
85 builder window label: title ? builder window label. |
100 builder window label: title ? builder window label. |
86 |
101 |
87 ^super postBuildWith:aBuilder |
102 ^super postBuildWith:aBuilder |
88 |
103 |