equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 |
13 |
|
14 |
|
15 "{ Package: 'stx:libtool2' }" |
14 |
16 |
15 SimpleDialog subclass:#SelectionBrowser |
17 SimpleDialog subclass:#SelectionBrowser |
16 instanceVariableNames:'title' |
18 instanceVariableNames:'title' |
17 classVariableNames:'' |
19 classVariableNames:'' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
74 ! ! |
76 ! ! |
75 |
77 |
76 !SelectionBrowser class methodsFor:'queries'! |
78 !SelectionBrowser class methodsFor:'queries'! |
77 |
79 |
78 isVisualStartable |
80 isVisualStartable |
79 "returns whether this application class can be started via #open" |
81 "return true, if this application can be started via #open. |
|
82 (to allow start of a change browser via double-click in the browser)" |
80 |
83 |
81 self == SelectionBrowser ifTrue:[^false]. |
84 self == SelectionBrowser ifTrue:[^false]. |
82 ^super isVisualStartable |
85 ^super isVisualStartable |
83 |
|
84 ! ! |
86 ! ! |
85 |
87 |
86 !SelectionBrowser methodsFor:'accessing'! |
88 !SelectionBrowser methodsFor:'accessing'! |
87 |
89 |
88 title: aString |
90 title: aString |