equal
deleted
inserted
replaced
165 'Paste width' |
165 'Paste width' |
166 |
166 |
167 #editInspectSpec |
167 #editInspectSpec |
168 'Inspect spec' |
168 'Inspect spec' |
169 |
169 |
|
170 #editBrowseViewClass |
|
171 'Browse widgets class' |
|
172 |
170 #editInspectView |
173 #editInspectView |
171 'Onspect view' |
174 'Inspect widget' |
172 |
175 |
173 #editOpenSpecDocumentation |
176 #editOpenSpecDocumentation |
174 'WidgetDocumentation' |
177 'WidgetDocumentation' |
175 |
178 |
|
179 #fileBrowseClass |
|
180 'Browse applications class' |
|
181 |
176 #fileBrowseAspectMethods |
182 #fileBrowseAspectMethods |
177 'Browse aspects' |
183 'Browse applications aspect methods' |
178 |
184 |
179 #fileLoad |
185 #fileLoad |
180 'Load spec' |
186 'Load spec' |
181 |
187 |
182 #fileLoadSubspec |
188 #fileLoadSubspec |
330 'Sets the width of the selected widget(s) to the width of the last copied layout/extent.' |
336 'Sets the width of the selected widget(s) to the width of the last copied layout/extent.' |
331 |
337 |
332 #editInspectSpec |
338 #editInspectSpec |
333 'Opens an inspector on the spec of the selected widget.' |
339 'Opens an inspector on the spec of the selected widget.' |
334 |
340 |
|
341 #editBrowseViewClass |
|
342 'Opens a browser on the class of the selected widget.' |
|
343 |
335 #editInspectView |
344 #editInspectView |
336 'Opens an inspector on the view of the selected widget.' |
345 'Opens an inspector on the selected widget.' |
337 |
346 |
338 #editOpenSpecDocumentation |
347 #editOpenSpecDocumentation |
339 'Opens the documentation of the selected widget.' |
348 'Opens the documentation of the selected widget.' |
340 |
349 |
|
350 #fileBrowseClass |
|
351 'Open a System Browser on the applications class.' |
|
352 |
341 #fileBrowseAspectMethods |
353 #fileBrowseAspectMethods |
342 'Opens a System Browser on the aspect methods.' |
354 'Opens a System Browser on the applications aspect methods.' |
343 |
355 |
344 #fileLoad |
356 #fileLoad |
345 'Opens a dialog to load a window specification from a classes spec method.' |
357 'Opens a dialog to load a window specification from a classes spec method.' |
346 |
358 |
347 #fileLoadSubspec |
359 #fileLoadSubspec |
1038 #translateLabel: true |
1050 #translateLabel: true |
1039 ) |
1051 ) |
1040 #(#MenuItem |
1052 #(#MenuItem |
1041 #activeHelpKey: #fileBrowseClass |
1053 #activeHelpKey: #fileBrowseClass |
1042 #enabled: #hasSpecClass |
1054 #enabled: #hasSpecClass |
1043 #label: 'Browse Class' |
1055 #label: 'Browse Applications Class' |
1044 #itemValue: #doBrowseClass |
1056 #itemValue: #doBrowseClass |
1045 #translateLabel: true |
1057 #translateLabel: true |
1046 ) |
1058 ) |
1047 #(#MenuItem |
1059 #(#MenuItem |
1048 #activeHelpKey: #fileBrowseAspectMethods |
1060 #activeHelpKey: #fileBrowseAspectMethods |
1049 #enabled: #hasSpecClass |
1061 #enabled: #hasSpecClass |
1050 #label: 'Browse Aspect Methods' |
1062 #label: 'Browse Applications Aspect Methods' |
1051 #itemValue: #doBrowseAspectMethods |
1063 #itemValue: #doBrowseAspectMethods |
1052 #translateLabel: true |
1064 #translateLabel: true |
1053 ) |
1065 ) |
1054 #(#MenuItem |
1066 #(#MenuItem |
1055 #label: '-' |
1067 #label: '-' |
1609 ) |
1621 ) |
1610 #(#MenuItem |
1622 #(#MenuItem |
1611 #label: '-' |
1623 #label: '-' |
1612 ) |
1624 ) |
1613 #(#MenuItem |
1625 #(#MenuItem |
1614 #label: 'Inspect View' |
1626 #label: 'Browse Widget Class' |
|
1627 #translateLabel: true |
|
1628 #value: #doBrowseViewClass |
|
1629 #activeHelpKey: #editBrowseViewClass |
|
1630 #enabled: #hasOneSelectionOtherThanCanvas |
|
1631 ) |
|
1632 #(#MenuItem |
|
1633 #label: 'Inspect Widget' |
1615 #translateLabel: true |
1634 #translateLabel: true |
1616 #value: #doInspectView |
1635 #value: #doInspectView |
1617 #activeHelpKey: #editInspectView |
1636 #activeHelpKey: #editInspectView |
1618 #enabled: #hasOneSelectionOtherThanCanvas |
1637 #enabled: #hasOneSelectionOtherThanCanvas |
1619 ) |
1638 ) |
3426 ]. |
3445 ]. |
3427 |
3446 |
3428 UserPreferences systemBrowserClass openInClass:(self resolveName:specClass) |
3447 UserPreferences systemBrowserClass openInClass:(self resolveName:specClass) |
3429 ! |
3448 ! |
3430 |
3449 |
|
3450 doBrowseViewClass |
|
3451 "opens a browser on the selected widgets class" |
|
3452 |
|
3453 |selection| |
|
3454 |
|
3455 ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[ |
|
3456 selection first class browse |
|
3457 ] ifFalse: [ |
|
3458 selection class browse |
|
3459 ] |
|
3460 ! |
|
3461 |
3431 doDefineClassAndSelector |
3462 doDefineClassAndSelector |
3432 "launches a dialog for defining class, superclass, and selector of the application" |
3463 "launches a dialog for defining class, superclass, and selector of the application" |
3433 |
3464 |
3434 |again tmp| |
3465 |again tmp| |
3435 |
3466 |