equal
deleted
inserted
replaced
58 " |
58 " |
59 ! ! |
59 ! ! |
60 |
60 |
61 !SelectionBrowser class methodsFor:'accessing'! |
61 !SelectionBrowser class methodsFor:'accessing'! |
62 |
62 |
63 label |
|
64 |
|
65 |label| |
|
66 label := ''. |
|
67 self name do: |
|
68 [:c| |
|
69 c isUppercase ifTrue: [label := label, $ ]. |
|
70 label := label, c |
|
71 ]. |
|
72 ^label trimBlanks |
|
73 |
|
74 ! |
|
75 |
|
76 lastSelection |
63 lastSelection |
77 |
64 |
78 ^lastSelection |
65 ^lastSelection |
79 ! |
66 ! |
80 |
67 |
93 |
80 |
94 !SelectionBrowser methodsFor:'initialization'! |
81 !SelectionBrowser methodsFor:'initialization'! |
95 |
82 |
96 postBuildWith:aBuilder |
83 postBuildWith:aBuilder |
97 |
84 |
98 builder window label: title ? self class label. |
85 builder window label: title ? builder window label. |
99 |
86 |
100 ^super postBuildWith:aBuilder |
87 ^super postBuildWith:aBuilder |
101 |
88 |
102 ! ! |
89 ! ! |
103 |
90 |