author | convert-repo |
Sat, 30 Jun 2018 03:34:41 +0000 | |
changeset 3569 | a84b410b96ac |
parent 3564 | e4cff94154d2 |
child 3648 | 474d54e24cab |
permissions | -rw-r--r-- |
3564 | 1 |
"{ Encoding: utf8 }" |
2 |
||
156 | 3 |
" |
765 | 4 |
COPYRIGHT (c) 1995-1998 by eXept Software AG |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
5 |
All Rights Reserved |
156 | 6 |
|
7 |
This software is furnished under a license and may be used |
|
8 |
only in accordance with the terms of that license and with the |
|
9 |
inclusion of the above copyright notice. This software may not |
|
10 |
be provided or otherwise made available to, or used by, any |
|
11 |
other person. No title to or ownership of the software is |
|
12 |
hereby transferred. |
|
13 |
" |
|
2023 | 14 |
"{ Package: 'stx:libtool2' }" |
1391 | 15 |
|
3218 | 16 |
"{ NameSpace: Smalltalk }" |
17 |
||
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
18 |
ResourceSpecEditor subclass:#UIPainter |
2218 | 19 |
instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool |
2243 | 20 |
helpTool painterView painter lastPort lastPage' |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
21 |
classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
22 |
DefaultEditToolBarVisible DefaultToolBarVisible' |
2218 | 23 |
poolDictionaries:'' |
24 |
category:'Interface-UIPainter' |
|
60 | 25 |
! |
26 |
||
3111 | 27 |
Query subclass:#ApplicationClassQuery |
28 |
instanceVariableNames:'' |
|
29 |
classVariableNames:'' |
|
30 |
poolDictionaries:'' |
|
31 |
privateIn:UIPainter |
|
32 |
! |
|
33 |
||
222 | 34 |
SelectionInTreeView subclass:#TreeView |
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
35 |
instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
36 |
painter' |
2218 | 37 |
classVariableNames:'' |
38 |
poolDictionaries:'' |
|
39 |
privateIn:UIPainter |
|
222 | 40 |
! |
41 |
||
60 | 42 |
!UIPainter class methodsFor:'documentation'! |
43 |
||
156 | 44 |
copyright |
45 |
" |
|
765 | 46 |
COPYRIGHT (c) 1995-1998 by eXept Software AG |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
47 |
All Rights Reserved |
156 | 48 |
|
49 |
This software is furnished under a license and may be used |
|
50 |
only in accordance with the terms of that license and with the |
|
51 |
inclusion of the above copyright notice. This software may not |
|
52 |
be provided or otherwise made available to, or used by, any |
|
53 |
other person. No title to or ownership of the software is |
|
54 |
hereby transferred. |
|
55 |
" |
|
56 |
||
57 |
! |
|
58 |
||
60 | 59 |
documentation |
60 |
" |
|
765 | 61 |
The GUI Painter provides the user with a graphical user interface for building own |
62 |
interfaces by interactively assembling widgets and defining the behavior of the widgets. |
|
63 |
The resulting interface specifications can be saved as methods on the application |
|
64 |
classes, typically subclasses of the class ApplicationModel. These specifications |
|
65 |
are used by the UIBuilder to generate the application window and its widgets when |
|
66 |
opening the application. |
|
60 | 67 |
|
68 |
[start with:] |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
69 |
UIPainter open |
127 | 70 |
|
156 | 71 |
[author:] |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
72 |
Claus Gittinger, eXept Software AG |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
73 |
Claus Atzkern, eXept Software AG |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
74 |
Thomas Zwick, eXept Software AG |
156 | 75 |
|
127 | 76 |
[see also:] |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
77 |
UIBuilder |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
78 |
ApplicationModel |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
79 |
UISpecification |
2277
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
80 |
|
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
81 |
[instance variables:] |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
82 |
isSpecOnlyPainter true if this painter is for a spec only (as used by expecco), |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
83 |
as opposed to a regular painter, which stores the spec in a class. |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
84 |
A spec-only painter has no class to store additional specs (esp. |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
85 |
menu- and tabSpecs) and should not offer postBuild and other |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
86 |
callback functions. |
60 | 87 |
" |
109 | 88 |
! ! |
89 |
||
2399 | 90 |
!UIPainter class methodsFor:'initialization'! |
91 |
||
92 |
initialize |
|
93 |
SelectionPanelClass isNil ifTrue:[ |
|
94 |
SelectionPanelClass := UISelectionPanel |
|
95 |
]. |
|
96 |
! ! |
|
97 |
||
109 | 98 |
!UIPainter class methodsFor:'instance creation'! |
99 |
||
195
350f95af5d9d
check before sending selector to class
Claus Gittinger <cg@exept.de>
parents:
194
diff
changeset
|
100 |
openOnClass:aClass andSelector:aSelector |
1976 | 101 |
"open a GUI Painter on aClass and (windowSpec) aSelector" |
102 |
||
103 |
^ self new openOnClass:aClass theNonMetaclass andSelector:aSelector |
|
60 | 104 |
! ! |
105 |
||
87 | 106 |
!UIPainter class methodsFor:'ST-80 queries'! |
107 |
||
108 |
preferenceFor:aSymbol |
|
282 | 109 |
"ST-80 compatible; always returns false |
110 |
" |
|
87 | 111 |
^ false |
109 | 112 |
|
113 |
||
114 |
! ! |
|
115 |
||
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
116 |
!UIPainter class methodsFor:'defaults'! |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
117 |
|
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
118 |
defaultEditToolbarVisible |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
119 |
^ DefaultEditToolBarVisible ? true |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
120 |
! |
713 | 121 |
|
122 |
defaultNameOfCanvas |
|
765 | 123 |
"returns the default name of the application" |
124 |
||
2208 | 125 |
^ 'NewApplication' |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
126 |
! |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
127 |
|
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
128 |
defaultToolbarVisible |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
129 |
^ DefaultToolBarVisible ? true |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
130 |
! |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
131 |
|
2218 | 132 |
selectionPanelClass |
133 |
^ SelectionPanelClass |
|
2225 | 134 |
|
135 |
" |
|
136 |
UIPainter selectionPanelClass. |
|
137 |
UIPainter selectionPanelClass:UISelectionPanel |
|
138 |
" |
|
2218 | 139 |
! |
140 |
||
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
141 |
selectionPanelClass:something |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
142 |
"set the class used as selection panel. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
143 |
this is UISelectionPanel as default" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
144 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
145 |
SelectionPanelClass := something. |
2225 | 146 |
|
147 |
" |
|
148 |
UIPainter selectionPanelClass:UISelectionPanel |
|
149 |
" |
|
713 | 150 |
! ! |
151 |
||
193 | 152 |
!UIPainter class methodsFor:'help specs'! |
153 |
||
154 |
helpSpec |
|
743 | 155 |
"This resource specification was automatically generated |
156 |
by the UIHelpTool of ST/X." |
|
157 |
||
158 |
"Do not manually edit this!! If it is corrupted, |
|
159 |
the UIHelpTool may not be able to read the specification." |
|
295 | 160 |
|
193 | 161 |
" |
743 | 162 |
UIHelpTool openOnClass:UIPainter |
295 | 163 |
" |
164 |
||
743 | 165 |
<resource: #help> |
166 |
||
1827 | 167 |
^ super helpSpec addPairsFrom:#( |
193 | 168 |
|
934 | 169 |
#align |
2901 | 170 |
'Widget alignment functions' |
934 | 171 |
|
3032 | 172 |
#alignResizeSelectionBottom |
173 |
'Resize the selected widgets'' bottom edges to align them with the bottom of the dominant widget' |
|
174 |
||
175 |
#alignResizeSelectionLeft |
|
176 |
'Resize the selected widgets'' left edges to align them with the left edge of the dominant widget' |
|
177 |
||
178 |
#alignResizeSelectionRight |
|
179 |
'Resize the selected widgets'' right edges to align them with the right edge of the dominant widget' |
|
180 |
||
181 |
#alignResizeSelectionTop |
|
182 |
'Resize the selected widgets'' top edges to align them with the top edge of the dominant widget' |
|
183 |
||
466 | 184 |
#alignSelectionBottom |
2901 | 185 |
'Aligns the selected widgets'' bottom edges with the bottom of the dominant widget' |
466 | 186 |
|
187 |
#alignSelectionCenterHor |
|
2901 | 188 |
'Aligns the selected widgets'' centers vertically with the center of the dominant widget' |
466 | 189 |
|
190 |
#alignSelectionCenterVer |
|
2901 | 191 |
'Aligns the selected widgets'' centers horizontally with the center of the dominant widget' |
466 | 192 |
|
193 |
#alignSelectionLeft |
|
2901 | 194 |
'Aligns the selected widgets'' left edges with the left edge of the dominant widget' |
466 | 195 |
|
196 |
#alignSelectionLeftAndRight |
|
2901 | 197 |
'Aligns the selected widgets'' left & right edges with the dominant widget' |
466 | 198 |
|
199 |
#alignSelectionRight |
|
2901 | 200 |
'Aligns the selected widgets'' right edges with the right edge of the dominant widget' |
466 | 201 |
|
202 |
#alignSelectionTop |
|
2901 | 203 |
'Aligns the selected widgets'' top edges with the top edge of the dominant widget' |
466 | 204 |
|
205 |
#alignSelectionTopAndBottom |
|
2901 | 206 |
'Aligns the selected widgets'' top and bottom edges with the dominant widget' |
466 | 207 |
|
3032 | 208 |
#alignToGrid |
3564 | 209 |
'Align to grid' |
3032 | 210 |
|
466 | 211 |
#centerSelectionHor |
2901 | 212 |
'Centers the selected widgets horizontally within their containing widget' |
466 | 213 |
|
214 |
#centerSelectionVer |
|
2901 | 215 |
'Centers the selected widgets vertically within their containing widget' |
713 | 216 |
|
217 |
#changePositionDown |
|
3218 | 218 |
'Moves the selected widget(s) towards the bottom (by %1 pixels)' |
713 | 219 |
|
220 |
#changePositionLeft |
|
3218 | 221 |
'Moves the selected widget(s) towards the left (by %1 pixels)' |
713 | 222 |
|
223 |
#changePositionRight |
|
3218 | 224 |
'Moves the selected widget(s) towards the right (by %1 pixels)' |
713 | 225 |
|
226 |
#changePositionUp |
|
3218 | 227 |
'Moves the selected widget(s) towards the top (by %1 pixels)' |
228 |
||
229 |
#'changeMoveDelta' |
|
230 |
'Click to change the delta by which the buttons to the left move the selected widget(s)' |
|
713 | 231 |
|
1827 | 232 |
#editBrowseViewClass |
2901 | 233 |
'Opens a browser on the class of the selected widget' |
1827 | 234 |
|
713 | 235 |
#editDimensionCopyExtent |
2901 | 236 |
'Copies the extent of the selected widget' |
713 | 237 |
|
238 |
#editDimensionCopyLayout |
|
2901 | 239 |
'Copies the layout of the selected widget' |
713 | 240 |
|
241 |
#editDimensionDefaultExtent |
|
2901 | 242 |
'Sets the selected widget(s) extent to their default' |
713 | 243 |
|
244 |
#editDimensionDefaultHeight |
|
2901 | 245 |
'Sets the selected widget(s) height to their default' |
713 | 246 |
|
247 |
#editDimensionDefaultWidth |
|
2901 | 248 |
'Sets the selected widget(s) width to their default' |
713 | 249 |
|
250 |
#editDimensionPasteExtent |
|
2901 | 251 |
'Sets the extent of the selected widget(s) to the last copied extent' |
713 | 252 |
|
253 |
#editDimensionPasteHeight |
|
2901 | 254 |
'Sets the height of the selected widget(s) to the height of the last copied layout/extent' |
713 | 255 |
|
256 |
#editDimensionPasteLayout |
|
2901 | 257 |
'Sets the layout of the selected widget(s) to the last copied layout' |
713 | 258 |
|
259 |
#editDimensionPasteWidth |
|
2901 | 260 |
'Sets the width of the selected widget(s) to the width of the last copied layout/extent' |
713 | 261 |
|
724 | 262 |
#editInspectSpec |
2901 | 263 |
'Opens an inspector on the spec of the selected widget' |
724 | 264 |
|
755 | 265 |
#editInspectView |
2901 | 266 |
'Opens an inspector on the selected widget' |
755 | 267 |
|
743 | 268 |
#editOpenSpecDocumentation |
2901 | 269 |
'Opens the documentation of the selected widget' |
743 | 270 |
|
3032 | 271 |
#editSaveSpecForSelection |
272 |
'Generate a sub-spec method for the selected element only.\Useful when refactoring an existing spec into sub specifications.' |
|
273 |
||
1827 | 274 |
#fileBrowseAspectMethods |
2901 | 275 |
'Opens a System Browser on the application''s aspect methods' |
1827 | 276 |
|
1742 | 277 |
#fileBrowseClass |
2901 | 278 |
'Open a System Browser on the application''s class' |
1742 | 279 |
|
498 | 280 |
#fileLoad |
2901 | 281 |
'Opens a dialog to load a window specification from a classes spec method' |
498 | 282 |
|
533 | 283 |
#fileLoadSubspec |
2901 | 284 |
'Opens a dialog to load a sub specification from a classes windowSpec method' |
533 | 285 |
|
498 | 286 |
#fileNew |
2901 | 287 |
'Creates a new window spec' |
498 | 288 |
|
289 |
#filePickAnInterface |
|
2901 | 290 |
'Select a view on the screen, generate a window spec for it and edit this spec' |
498 | 291 |
|
292 |
#fileSave |
|
2901 | 293 |
'Saves the window spec in the current class (as spec method)' |
713 | 294 |
|
295 |
#fileSaveAs |
|
2901 | 296 |
'Opens a dialog to select class and selector for saving the window spec' |
713 | 297 |
|
298 |
#fileShowWindowSpec |
|
2901 | 299 |
'Opens a Workspace showing the current window spec' |
713 | 300 |
|
301 |
#generateAspectMethods |
|
2901 | 302 |
'Generates aspect methods for defined aspect selectors of the widgets' |
713 | 303 |
|
304 |
#generateHookMethods |
|
305 |
'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)' |
|
306 |
||
755 | 307 |
#helpExamples |
2901 | 308 |
'Show some examples uses of the GUI Painter' |
755 | 309 |
|
310 |
#helpFunctions |
|
2901 | 311 |
'Show the documentation on the GUI Painters menu and button functions' |
755 | 312 |
|
313 |
#helpLayoutTool |
|
2901 | 314 |
'Show the Layout Tools documentation' |
755 | 315 |
|
316 |
#helpSelectedWidget |
|
2901 | 317 |
'Show the documentation of the selected widget' |
935 | 318 |
|
319 |
#helpTutorial |
|
2901 | 320 |
'Show the GUI Painters documentation' |
755 | 321 |
|
924 | 322 |
#historyMenuItem |
2901 | 323 |
'Edit this windowSpec' |
924 | 324 |
|
713 | 325 |
#moveWidgetDown |
2901 | 326 |
'Moves the selected widget down in the list (brings it to the front)' |
713 | 327 |
|
328 |
#moveWidgetInto |
|
2901 | 329 |
'Moves the selected widget into next widget as child widget' |
713 | 330 |
|
331 |
#moveWidgetOut |
|
2901 | 332 |
'Moves the selected widget out of its parent widget' |
713 | 333 |
|
334 |
#moveWidgetUp |
|
2901 | 335 |
'Moves the selected widget up in the list (brings it to the back)' |
287 | 336 |
|
3032 | 337 |
#openColorEditor |
338 |
'Open a color editor' |
|
339 |
||
466 | 340 |
#pasteBuffer |
2901 | 341 |
'Pastes the widgets of the clipboard at the current mouse position' |
466 | 342 |
|
343 |
#pasteWithLayout |
|
2901 | 344 |
'Pastes the widgets of the clipboard without changing their layouts' |
713 | 345 |
|
3032 | 346 |
#pickColorFromScreen |
347 |
'Pick a color from the screen' |
|
348 |
||
349 |
#recentlyUsedColors |
|
350 |
'Pick a recently used color' |
|
351 |
||
1827 | 352 |
#settingsAspectsAsInstances |
2901 | 353 |
'Generate aspects as instance variables (or bindings, if off)' |
1827 | 354 |
|
713 | 355 |
#settingsCanvas |
2901 | 356 |
'Shows or hides the canvas window' |
713 | 357 |
|
358 |
#settingsGallery |
|
2901 | 359 |
'Shows or hides the gallery window' |
713 | 360 |
|
2294
0a4591e6bb20
changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents:
2293
diff
changeset
|
361 |
#settingsGenerateCommentedCode |
3032 | 362 |
'Enables/disables comments in the generated code, especially in aspect and hook methods' |
2294
0a4591e6bb20
changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents:
2293
diff
changeset
|
363 |
|
713 | 364 |
#settingsGridManager |
2901 | 365 |
'Opens a dialog to toggle grid display or to change the grids spacing' |
713 | 366 |
|
367 |
#settingsRedefineAspectMethods |
|
2901 | 368 |
'Toggles the permission to overwrite existing aspect methods' |
924 | 369 |
|
743 | 370 |
#settingsTranscriptHelp |
2901 | 371 |
'Toggles display of help texts (after opening a new GUI Painter)' |
743 | 372 |
|
713 | 373 |
#settingsUndoManager |
2901 | 374 |
'Opens a dialog to undo modifications' |
287 | 375 |
|
3032 | 376 |
#shadesOfBlue |
377 |
'Blue color tones' |
|
378 |
||
379 |
#shadesOfCyan |
|
380 |
'Cyan color tones' |
|
381 |
||
382 |
#shadesOfGray |
|
3518 | 383 |
'Gray color tones (not 50 shades)' |
3032 | 384 |
|
385 |
#shadesOfGreen |
|
386 |
'Green color tones' |
|
387 |
||
388 |
#shadesOfMagenta |
|
389 |
'Magenta color tones' |
|
390 |
||
391 |
#shadesOfRed |
|
392 |
'Red color tones' |
|
393 |
||
394 |
#shadesOfYellow |
|
395 |
'Yellow color tones' |
|
396 |
||
2690 | 397 |
#showGrid |
3518 | 398 |
'Show the grid' |
2690 | 399 |
|
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
400 |
#sortItems |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
401 |
'Sort the selected items by position (left to right, top to bottom)' |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
402 |
|
287 | 403 |
#spreadSelectionHor |
2901 | 404 |
'Sets the horizontal spaces between the selected widgets to the same value' |
287 | 405 |
|
466 | 406 |
#spreadSelectionVer |
2901 | 407 |
'Sets the vertical spaces between the selected widgets to the same value' |
713 | 408 |
|
409 |
#testGeometryTestMode |
|
2901 | 410 |
'Toggles geometry test mode (to define ratios of variable panels and top-window dimension)' |
498 | 411 |
|
412 |
#testStartApplication |
|
2901 | 413 |
'Starts the application with the current window spec' |
194 | 414 |
|
3032 | 415 |
#useDefaultColorToggle |
2336 | 416 |
'Toggle between default and explicit color' |
417 |
||
3229 | 418 |
#useDefaultFontToggle |
419 |
'Toggle between default and explicit font' |
|
420 |
||
421 |
#concreteFontsFamily |
|
422 |
'Choose a font family' |
|
423 |
||
424 |
#concreteFontsFace |
|
425 |
'Choose a font face' |
|
426 |
||
427 |
#concreteFontsStyle |
|
428 |
'Choose a font style' |
|
429 |
||
430 |
#concreteFontsSize |
|
431 |
'Choose a font size (in points, not pixels)' |
|
432 |
||
193 | 433 |
) |
3564 | 434 |
|
435 |
"Modified: / 01-06-2018 / 12:41:23 / Claus Gittinger" |
|
193 | 436 |
! ! |
437 |
||
297 | 438 |
!UIPainter class methodsFor:'helpers'! |
439 |
||
368 | 440 |
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed |
297 | 441 |
"converts a string to a string collection with maximum characters |
442 |
per line |
|
443 |
" |
|
444 |
|stream |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
445 |
max "{ Class:SmallInteger }" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
446 |
size "{ Class:SmallInteger }" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
447 |
start "{ Class:SmallInteger }" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
448 |
stop "{ Class:SmallInteger }" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
449 |
cpySz "{ Class:SmallInteger }" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
450 |
lnSz "{ Class:SmallInteger }" |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
451 |
atBeginOfLine| |
297 | 452 |
|
453 |
maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1] |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
454 |
ifTrue:[max := 20]. |
297 | 455 |
|
456 |
(size := aString size) <= max ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
457 |
^ aString |
297 | 458 |
]. |
459 |
start := 1. |
|
460 |
lnSz := 0. |
|
461 |
stream := (String new:size) writeStream. |
|
462 |
||
542 | 463 |
atBeginOfLine := true. |
464 |
||
297 | 465 |
[start <= size] whileTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
466 |
(start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
467 |
^ stream contents |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
468 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
469 |
(aString at:start) == $\ ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
470 |
skipLineFeed ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
471 |
stream nextPut:$\ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
472 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
473 |
start := start + 1. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
474 |
stream cr. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
475 |
start := start + 1. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
476 |
lnSz := 0. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
477 |
] ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
478 |
(stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
479 |
stop := size + 1 |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
480 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
481 |
(aString at:(stop - 1)) == $\ ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
482 |
stop := stop - 1 |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
483 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
484 |
cpySz := stop - start. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
485 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
486 |
lnSz == 0 ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
487 |
(lnSz := lnSz + cpySz) >= max ifTrue:[stream cr. lnSz := cpySz. atBeginOfLine := true. ] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
488 |
ifFalse:[stream space. lnSz := lnSz + 1] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
489 |
] ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
490 |
lnSz := cpySz |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
491 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
492 |
stream nextPutAll:aString startingAt:start to:(stop - 1). |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
493 |
start := stop. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
494 |
] |
297 | 495 |
]. |
496 |
^ stream contents |
|
542 | 497 |
|
498 |
"Modified: / 1.2.1998 / 14:42:56 / cg" |
|
297 | 499 |
! ! |
500 |
||
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
501 |
!UIPainter class methodsFor:'image specs'! |
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
502 |
|
1883 | 503 |
arrowDown |
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
504 |
<resource: #image> |
1883 | 505 |
"This resource specification was automatically generated |
506 |
by the ImageEditor of ST/X." |
|
507 |
"Do not manually edit this!! If it is corrupted, |
|
508 |
the ImageEditor may not be able to read the specification." |
|
509 |
" |
|
510 |
self arrowDown inspect |
|
511 |
ImageEditor openOnClass:self andSelector:#arrowDown |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
512 |
Icon flushCachedIcons" |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
513 |
|
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
514 |
^ Icon constantNamed:'UIPainter class arrowDown' |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
515 |
ifAbsentPut:[ |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
516 |
(Depth1Image new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
517 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
518 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
519 |
photometric:(#palette); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
520 |
bitsPerSample:(#[ 1 ]); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
521 |
samplesPerPixel:(1); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
522 |
bits:(ByteArray fromPackedString:'?>C?8O? ?>C@XNC <^C;8O? ?>C?8@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
523 |
colorMapFromArray:#[ 0 0 0 255 255 255 ]; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
524 |
mask:((ImageMask new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
525 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
526 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
527 |
bits:(ByteArray |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
528 |
fromPackedString:' |
1883 | 529 |
@@@@@@@@@@@? A<@C @D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
530 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
531 |
yourself); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
532 |
yourself |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
533 |
] |
1883 | 534 |
! |
535 |
||
536 |
arrowLeft |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
537 |
<resource: #image> |
1883 | 538 |
"This resource specification was automatically generated |
539 |
by the ImageEditor of ST/X." |
|
540 |
"Do not manually edit this!! If it is corrupted, |
|
541 |
the ImageEditor may not be able to read the specification." |
|
542 |
" |
|
543 |
self arrowLeft inspect |
|
544 |
ImageEditor openOnClass:self andSelector:#arrowLeft |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
545 |
Icon flushCachedIcons" |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
546 |
|
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
547 |
^ Icon constantNamed:'UIPainter class arrowLeft' |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
548 |
ifAbsentPut:[ |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
549 |
(Depth1Image new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
550 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
551 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
552 |
photometric:(#palette); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
553 |
bitsPerSample:(#[ 1 ]); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
554 |
samplesPerPixel:(1); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
555 |
bits:(ByteArray fromPackedString:'?>C?8O7 >^C18NG <^C98O7 ?>C?8@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
556 |
colorMapFromArray:#[ 0 0 0 255 255 255 ]; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
557 |
mask:((ImageMask new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
558 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
559 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
560 |
bits:(ByteArray fromPackedString:'@@@@@@H@A @N@A8@C PF@@H@@@@@@@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
561 |
yourself); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
562 |
yourself |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
563 |
] |
1883 | 564 |
! |
565 |
||
566 |
arrowRight |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
567 |
<resource: #image> |
1883 | 568 |
"This resource specification was automatically generated |
569 |
by the ImageEditor of ST/X." |
|
570 |
"Do not manually edit this!! If it is corrupted, |
|
571 |
the ImageEditor may not be able to read the specification." |
|
572 |
" |
|
573 |
self arrowRight inspect |
|
574 |
ImageEditor openOnClass:self andSelector:#arrowRight |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
575 |
Icon flushCachedIcons" |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
576 |
|
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
577 |
^ Icon constantNamed:'UIPainter class arrowRight' |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
578 |
ifAbsentPut:[ |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
579 |
(Depth1Image new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
580 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
581 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
582 |
photometric:(#palette); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
583 |
bitsPerSample:(#[ 1 ]); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
584 |
samplesPerPixel:(1); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
585 |
bits:(ByteArray fromPackedString:'?>C?8O_ <>C18OC <^C38O_ ?>C?8@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
586 |
colorMapFromArray:#[ 0 0 0 255 255 255 ]; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
587 |
mask:((ImageMask new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
588 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
589 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
590 |
bits:(ByteArray fromPackedString:'@@@@@@ @C@@NA@<@C @L@@ @@@@@@@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
591 |
yourself); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
592 |
yourself |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
593 |
] |
1883 | 594 |
! |
595 |
||
596 |
arrowUp |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
597 |
<resource: #image> |
1883 | 598 |
"This resource specification was automatically generated |
599 |
by the ImageEditor of ST/X." |
|
600 |
"Do not manually edit this!! If it is corrupted, |
|
601 |
the ImageEditor may not be able to read the specification." |
|
602 |
" |
|
603 |
self arrowUp inspect |
|
604 |
ImageEditor openOnClass:self andSelector:#arrowUp |
|
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
605 |
Icon flushCachedIcons" |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
606 |
|
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
607 |
^ Icon constantNamed:'UIPainter class arrowUp' |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
608 |
ifAbsentPut:[ |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
609 |
(Depth1Image new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
610 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
611 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
612 |
photometric:(#palette); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
613 |
bitsPerSample:(#[ 1 ]); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
614 |
samplesPerPixel:(1); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
615 |
bits:(ByteArray fromPackedString:'?>C?8O? >>C18NC 0FC?8O? ?>C?8@@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
616 |
colorMapFromArray:#[ 0 0 0 255 255 255 ]; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
617 |
mask:((ImageMask new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
618 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
619 |
height:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
620 |
bits:(ByteArray fromPackedString:'@@@@@@@@A@@NG1<@O8@@@@@@@@@@AP@a'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
621 |
yourself); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
622 |
yourself |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
623 |
] |
1883 | 624 |
! |
625 |
||
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
626 |
browseActionImage |
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
627 |
<resource: #image> |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
628 |
"This resource specification was automatically generated |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
629 |
by the ImageEditor of ST/X." |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
630 |
"Do not manually edit this!! If it is corrupted, |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
631 |
the ImageEditor may not be able to read the specification." |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
632 |
" |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
633 |
self browseActionImage inspect |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
634 |
ImageEditor openOnClass:self andSelector:#browseActionImage |
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
635 |
Icon flushCachedIcons" |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
636 |
|
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
637 |
^ Icon constantNamed:'UIPainter class browseActionImage' |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
638 |
ifAbsentPut:[ |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
639 |
(Depth8Image new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
640 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
641 |
height:12; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
642 |
photometric:(#palette); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
643 |
bitsPerSample:(#[ 8 ]); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
644 |
samplesPerPixel:(1); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
645 |
bits:(ByteArray |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
646 |
fromPackedString:' |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
647 |
R@@@RT%RST1LTD9H@D%IT%MRSD1PS$!!RT$5RUEILT%INT%UVT%YWU%IVUUIHT%!!YV%-ZVU!!RWD!!MT%Y[@E-VT%5\RD1RU%,@V5YRWU1HT%!!YV%-ZVU!!RWEIU |
3113
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
648 |
U%IVU5YRU%URZ%IR@EITT ART&,@@@@@T%MR@@@@@@@@@@@@T @@@@@@'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
649 |
colorMapFromArray:#[ 255 248 248 63 144 224 64 152 232 79 160 232 64 152 224 64 144 224 63 136 224 48 128 216 48 120 216 47 112 216 47 112 208 32 104 208 32 96 208 31 88 200 16 88 200 16 80 200 15 72 192 15 64 192 0 64 192 0 56 184 0 56 176 0 48 160 143 200 248 128 200 248 127 192 248 112 184 248 111 176 248 96 168 248 95 160 248 80 152 248 79 144 248 64 128 248 63 120 248 48 112 248 32 104 248 31 96 248 16 88 248 15 80 248 0 72 248 0 64 240 0 48 168 112 176 248 111 168 248 96 160 248 95 152 248 80 144 248 79 136 248 63 128 248 48 120 248 47 112 248 15 72 248 0 48 176 95 168 232 191 224 248 191 216 248 176 208 248 175 208 248 175 200 248 160 200 248 160 192 248 159 192 248 159 184 248 144 184 248 144 176 248 143 168 248 128 168 248 128 160 248 127 160 248 127 152 240 31 72 176 111 168 232 127 160 216 207 216 240 240 240 248 240 232 240 63 88 176 239 232 240 240 240 240 48 88 176 96 168 224 224 224 232 96 160 224 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200 48 80 176 223 216 224 96 152 224 96 152 216 95 152 216 48 120 208 80 144 208 80 136 208 79 128 200 79 120 200 79 120 192 64 112 192 64 104 184 63 104 184 63 96 184 15 56 160 ]; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
650 |
mask:((ImageMask new) |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
651 |
width:11; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
652 |
height:12; |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
653 |
bits:(ByteArray fromPackedString:'A@@N@F;@?>A?0G>@O8A?0O? [,@N@@P@'); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
654 |
yourself); |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
655 |
yourself |
7b82f9dd4e1b
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
3111
diff
changeset
|
656 |
] |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
657 |
! |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
658 |
|
3296 | 659 |
builderIcon |
660 |
"This resource specification was automatically generated |
|
661 |
by the ImageEditor of ST/X." |
|
662 |
||
663 |
"Do not manually edit this!! If it is corrupted, |
|
664 |
the ImageEditor may not be able to read the specification." |
|
665 |
||
666 |
" |
|
667 |
self builderIcon inspect |
|
668 |
ImageEditor openOnClass:self andSelector:#builderIcon |
|
669 |
Icon flushCachedIcons |
|
670 |
" |
|
671 |
||
672 |
<resource: #image> |
|
673 |
||
674 |
^Icon |
|
675 |
constantNamed:'UIPainter builderIcon' |
|
676 |
ifAbsentPut:[(Depth1Image width:48 height:48 photometric:#whiteIs0) bits:(ByteArray fromPackedString:' |
|
677 |
@@@@@@@@O??????<H@@@@@@DH_@@@@@DH_@OC?>DH_@IC??$H_@IC??4H_@IC??$H_@IC?>DH_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@F@M D |
|
678 |
H_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@_ M DH_@ PJ DH_@)PM DH_@)PJ DH_@)PM DH? )PJ DI?0)PM DK?8)PJ DK18)PM DK 8)PJ D |
|
679 |
K@X)PM DK@X PG@DK@X_ @@DH@@@@@@DH@@@@@@DO??????<@@@@@@@@NDIHNG''@IDIHIDD H$IHH$DPIDIHH$DPNDIHH$D IDIHH''G@H$IHH$E@H$IHH$D |
|
680 |
IBQHIDDPNA!!ONG$P@@@@@@@@'); yourself] |
|
681 |
! |
|
682 |
||
2157 | 683 |
defaultIcon |
2175 | 684 |
<resource: #programImage> |
685 |
||
2157 | 686 |
^ ToolbarIconLibrary startUIPainterIcon |
687 |
||
688 |
"Created: / 10-02-2007 / 14:45:56 / cg" |
|
2175 | 689 |
"Modified: / 17-09-2007 / 11:36:33 / cg" |
2157 | 690 |
! |
691 |
||
3218 | 692 |
delta |
693 |
"This resource specification was automatically generated |
|
694 |
by the ImageEditor of ST/X." |
|
695 |
||
696 |
"Do not manually edit this!! If it is corrupted, |
|
697 |
the ImageEditor may not be able to read the specification." |
|
698 |
||
699 |
" |
|
700 |
self delta inspect |
|
701 |
ImageEditor openOnClass:self andSelector:#delta |
|
702 |
Icon flushCachedIcons |
|
703 |
" |
|
704 |
||
705 |
<resource: #image> |
|
706 |
||
707 |
^Icon |
|
708 |
constantNamed:'UIPainter delta' |
|
709 |
ifAbsentPut:[(Depth1Image new) width:11; height:11; bits:(ByteArray fromPackedString:'?>C?8O? >>C@XLA 0VB;(H@ ?"C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width:11; height:11; bits:(ByteArray fromPackedString:' |
|
710 |
@@@@@@@@A@@J@AD@HHA@PG?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
711 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself] |
|
712 |
! |
|
713 |
||
2284
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
714 |
editTableIcon |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
715 |
<resource: #programImage> |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
716 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
717 |
^ SystemBrowser tableColumnsIcon |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
718 |
! |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
719 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
720 |
helpIcon |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
721 |
<resource: #programImage> |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
722 |
|
3450 | 723 |
^ ToolbarIconLibrary help22x22Icon |
724 |
||
725 |
"Modified: / 14-07-2017 / 10:20:24 / cg" |
|
2284
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
726 |
! |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
727 |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
728 |
hideToolBarIcon |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
729 |
<resource: #programImage> |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
730 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
731 |
^ ToolbarIconLibrary hideToolBarIcon |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
732 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
733 |
|
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
734 |
iconAlignB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
735 |
<resource: #image> |
743 | 736 |
"This resource specification was automatically generated |
737 |
by the ImageEditor of ST/X." |
|
778 | 738 |
"Do not manually edit this!! If it is corrupted, |
743 | 739 |
the ImageEditor may not be able to read the specification." |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
740 |
" |
2268 | 741 |
self iconAlignB inspect |
743 | 742 |
ImageEditor openOnClass:self andSelector:#iconAlignB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
743 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
744 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
745 |
^ Icon constantNamed:'UIPainter class iconAlignB' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
746 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
747 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
748 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
749 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
750 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
751 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
752 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
753 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
754 |
fromPackedString:' |
2268 | 755 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
756 |
@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
757 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
758 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
759 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
760 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
761 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
762 |
fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
763 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
764 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
765 |
] |
778 | 766 |
! |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
767 |
|
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
768 |
iconAlignL |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
769 |
<resource: #image> |
743 | 770 |
"This resource specification was automatically generated |
771 |
by the ImageEditor of ST/X." |
|
778 | 772 |
"Do not manually edit this!! If it is corrupted, |
743 | 773 |
the ImageEditor may not be able to read the specification." |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
774 |
" |
2268 | 775 |
self iconAlignL inspect |
743 | 776 |
ImageEditor openOnClass:self andSelector:#iconAlignL |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
777 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
778 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
779 |
^ Icon constantNamed:'UIPainter class iconAlignL' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
780 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
781 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
782 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
783 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
784 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
785 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
786 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
787 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
788 |
fromPackedString:' |
2268 | 789 |
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
790 |
@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
791 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
792 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
793 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
794 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
795 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
796 |
fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
797 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
798 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
799 |
] |
778 | 800 |
! |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
801 |
|
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
802 |
iconAlignLR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
803 |
<resource: #image> |
743 | 804 |
"This resource specification was automatically generated |
805 |
by the ImageEditor of ST/X." |
|
785 | 806 |
"Do not manually edit this!! If it is corrupted, |
743 | 807 |
the ImageEditor may not be able to read the specification." |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
808 |
" |
2268 | 809 |
self iconAlignLR inspect |
743 | 810 |
ImageEditor openOnClass:self andSelector:#iconAlignLR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
811 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
812 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
813 |
^ Icon constantNamed:'UIPainter class iconAlignLR' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
814 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
815 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
816 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
817 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
818 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
819 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
820 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
821 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
822 |
fromPackedString:' |
2268 | 823 |
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
824 |
@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
825 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
826 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
827 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
828 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
829 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
830 |
fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
831 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
832 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
833 |
] |
785 | 834 |
! |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
835 |
|
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
836 |
iconAlignR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
837 |
<resource: #image> |
743 | 838 |
"This resource specification was automatically generated |
839 |
by the ImageEditor of ST/X." |
|
778 | 840 |
"Do not manually edit this!! If it is corrupted, |
743 | 841 |
the ImageEditor may not be able to read the specification." |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
842 |
" |
2268 | 843 |
self iconAlignR inspect |
743 | 844 |
ImageEditor openOnClass:self andSelector:#iconAlignR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
845 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
846 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
847 |
^ Icon constantNamed:'UIPainter class iconAlignR' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
848 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
849 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
850 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
851 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
852 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
853 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
854 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
855 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
856 |
fromPackedString:' |
2268 | 857 |
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
858 |
@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
859 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
860 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
861 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
862 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
863 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
864 |
fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
865 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
866 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
867 |
] |
1432 | 868 |
! |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
869 |
|
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
870 |
iconAlignT |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
871 |
<resource: #image> |
743 | 872 |
"This resource specification was automatically generated |
873 |
by the ImageEditor of ST/X." |
|
778 | 874 |
"Do not manually edit this!! If it is corrupted, |
743 | 875 |
the ImageEditor may not be able to read the specification." |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
876 |
" |
2268 | 877 |
self iconAlignT inspect |
743 | 878 |
ImageEditor openOnClass:self andSelector:#iconAlignT |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
879 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
880 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
881 |
^ Icon constantNamed:'UIPainter class iconAlignT' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
882 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
883 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
884 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
885 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
886 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
887 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
888 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
889 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
890 |
fromPackedString:' |
2268 | 891 |
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
892 |
@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
893 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
894 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
895 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
896 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
897 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
898 |
fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
899 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
900 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
901 |
] |
778 | 902 |
! |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
903 |
|
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
904 |
iconAlignTB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
905 |
<resource: #image> |
743 | 906 |
"This resource specification was automatically generated |
907 |
by the ImageEditor of ST/X." |
|
778 | 908 |
"Do not manually edit this!! If it is corrupted, |
743 | 909 |
the ImageEditor may not be able to read the specification." |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
910 |
" |
2268 | 911 |
self iconAlignTB inspect |
743 | 912 |
ImageEditor openOnClass:self andSelector:#iconAlignTB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
913 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
914 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
915 |
^ Icon constantNamed:'UIPainter class iconAlignTB' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
916 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
917 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
918 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
919 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
920 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
921 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
922 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
923 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
924 |
fromPackedString:' |
2268 | 925 |
@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
926 |
@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
927 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
928 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
929 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
930 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
931 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
932 |
fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
933 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
934 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
935 |
] |
1862 | 936 |
! |
937 |
||
938 |
iconCenterH |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
939 |
<resource: #image> |
1862 | 940 |
"This resource specification was automatically generated |
941 |
by the ImageEditor of ST/X." |
|
942 |
"Do not manually edit this!! If it is corrupted, |
|
943 |
the ImageEditor may not be able to read the specification." |
|
944 |
" |
|
945 |
self iconCenterH inspect |
|
946 |
ImageEditor openOnClass:self andSelector:#iconCenterH |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
947 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
948 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
949 |
^ Icon constantNamed:'UIPainter class iconCenterH' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
950 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
951 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
952 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
953 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
954 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
955 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
956 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
957 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
958 |
fromPackedString:' |
1862 | 959 |
@@@@@@@@@@@@@@@@@(@J@B @@(@J@B @@(UZUR @@(?:?R @@(@J@B @@(@J@B @@(@J@B @@@@J@@@@@EUZUU@@@O?:?=@@@@@J@@@@@(@J@B @@(@J@B @ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
960 |
@(@J@B @@(EZUB@@@(O:=B @@(@J@B @@(@J@B @@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
961 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
962 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
963 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
964 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
965 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
966 |
fromPackedString:'@@@@@@@@@C@@A?>@A?>@A?>@A?>@@C@@@C@@G?? G?? G?? G??#@C@@@C@C@?<@@?<A@?<@@?<@@C@@@@@A@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
967 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
968 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
969 |
] |
1862 | 970 |
! |
971 |
||
972 |
iconCenterHInFrame |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
973 |
<resource: #image> |
1862 | 974 |
"This resource specification was automatically generated |
975 |
by the ImageEditor of ST/X." |
|
976 |
"Do not manually edit this!! If it is corrupted, |
|
977 |
the ImageEditor may not be able to read the specification." |
|
978 |
" |
|
979 |
self iconCenterHInFrame inspect |
|
980 |
ImageEditor openOnClass:self andSelector:#iconCenterHInFrame |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
981 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
982 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
983 |
^ Icon constantNamed:'UIPainter class iconCenterHInFrame' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
984 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
985 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
986 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
987 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
988 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
989 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
990 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
991 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
992 |
fromPackedString:' |
1862 | 993 |
@@@@@@@@J******@H@@@@@B@HL@@@CB@H8UUUR2@HH???RB@H8@@@B2@HH@@@BB@H8@@@B2@H@@@@@B@HEUUUUB@HO???=B@H@@@@@B@H8@@@@2@HH@@@@B@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
994 |
H8@@@@2@HHEUUBB@H8O?=B2@HL@@@CB@H@@@@@B@J******@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
995 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
996 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
997 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
998 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
999 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1000 |
fromPackedString:'@@@@_??8P@@HW??(U?>(U?>(U?>(T@@(T@@(W??(W??(W??(W??+T@@(T@@+T?<(T?<)T?<(W??(P@@H_??9@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1001 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1002 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1003 |
] |
1862 | 1004 |
! |
1005 |
||
1006 |
iconCenterV |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1007 |
<resource: #image> |
1862 | 1008 |
"This resource specification was automatically generated |
1009 |
by the ImageEditor of ST/X." |
|
1010 |
"Do not manually edit this!! If it is corrupted, |
|
1011 |
the ImageEditor may not be able to read the specification." |
|
1012 |
" |
|
1013 |
self iconCenterV inspect |
|
1014 |
ImageEditor openOnClass:self andSelector:#iconCenterV |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1015 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1016 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1017 |
^ Icon constantNamed:'UIPainter class iconCenterV' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1018 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1019 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1020 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1021 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1022 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1023 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1024 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1025 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1026 |
fromPackedString:' |
1862 | 1027 |
@@@@@@@@@@@@@@@@@@@@@@@@B**@J*(@B**MJ*(@@@@M@@@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@B*****(@B*****(@@M@M@M@@@M@M@M@@@E@M@M@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1028 |
@@@M@E@@@@@M@@@@B**EJ*(@B(*@J*(@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1029 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1030 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1031 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1032 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1033 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1034 |
fromPackedString:'@@@@@@@@@@@@@G @@G @@G'' G''''!!G'''' G'''' G'''' O??0O??0G'''' G'''' G'''' G'''' @G''#@G @@G C@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1035 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1036 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1037 |
] |
1862 | 1038 |
! |
1039 |
||
1040 |
iconCenterVInFrame |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1041 |
<resource: #image> |
1862 | 1042 |
"This resource specification was automatically generated |
1043 |
by the ImageEditor of ST/X." |
|
1044 |
"Do not manually edit this!! If it is corrupted, |
|
1045 |
the ImageEditor may not be able to read the specification." |
|
1046 |
" |
|
1047 |
self iconCenterVInFrame inspect |
|
1048 |
ImageEditor openOnClass:self andSelector:#iconCenterVInFrame |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1049 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1050 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1051 |
^ Icon constantNamed:'UIPainter class iconCenterVInFrame' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1052 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1053 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1054 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1055 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1056 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1057 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1058 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1059 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1060 |
fromPackedString:' |
1862 | 1061 |
@@@@@@@@J******@H@@@@@B@HL3@L3B@H:*GJ*2@H@@G@@B@HG@G@@B@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@EB@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1062 |
HE@G@@B@H@@G@@B@H:*E@J2@HL3@L3B@H@@@@@B@J******@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1063 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1064 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1065 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1066 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1067 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1068 |
fromPackedString:'@@@B_??9P@@HW??(TG (W'' (W''''*W''''(W''''*W'''')W''''(W'''')W''''+W''''*W''''*W''''(W'' )TG (W??(P@@H_??8@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1069 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1070 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1071 |
] |
1862 | 1072 |
! |
1073 |
||
1074 |
iconDistributeH |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1075 |
<resource: #image> |
1862 | 1076 |
"This resource specification was automatically generated |
1077 |
by the ImageEditor of ST/X." |
|
1078 |
"Do not manually edit this!! If it is corrupted, |
|
1079 |
the ImageEditor may not be able to read the specification." |
|
1080 |
" |
|
1081 |
self iconDistributeH inspect |
|
1082 |
ImageEditor openOnClass:self andSelector:#iconDistributeH |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1083 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1084 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1085 |
^ Icon constantNamed:'UIPainter class iconDistributeH' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1086 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1087 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1088 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1089 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1090 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1091 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1092 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1093 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1094 |
fromPackedString:' |
1863 | 1095 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@E@@E@G@@G@@G@G@@G@@G@GHBGHBG@GHBGHBG@GJ*GJ*G@GHBGHBG@GHBGHBG@GB*GJ G@GB*GJ G@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1096 |
G@@G@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1097 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1098 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1099 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1100 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1101 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1102 |
fromPackedString:'@@@@@@@@@@@@@@@@<G <<G <<G ?<G =>O1?>O1????<>O1<>O1><G <<G ><G <<G ?@@@A@@@@@@@@@@@@@@@A'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1103 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1104 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1105 |
] |
1862 | 1106 |
! |
1107 |
||
1108 |
iconDistributeV |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1109 |
<resource: #image> |
1862 | 1110 |
"This resource specification was automatically generated |
1111 |
by the ImageEditor of ST/X." |
|
1112 |
"Do not manually edit this!! If it is corrupted, |
|
1113 |
the ImageEditor may not be able to read the specification." |
|
1114 |
" |
|
1115 |
self iconDistributeV inspect |
|
1116 |
ImageEditor openOnClass:self andSelector:#iconDistributeV |
|
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1117 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1118 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1119 |
^ Icon constantNamed:'UIPainter class iconDistributeV' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1120 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1121 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1122 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1123 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1124 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1125 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1126 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1127 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1128 |
fromPackedString:' |
1863 | 1129 |
@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@@*(@@@@@JB@@@@@@JB@@@@@@JB@@@@@@J*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@J*(@@@@@JB@@@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1130 |
@@JB@@@@@@@B@@@@@@@*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1131 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1132 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1133 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1134 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1135 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1136 |
fromPackedString:'A??@A??@A??CA??@@G0@@A@@@A@@@A@@@G0CA??@A??@A??@A??@@G0C@A@@@A@@@A@@@G0AA??AA??@A??@A??B'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1137 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1138 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1139 |
] |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1140 |
! |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1141 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1142 |
iconResizeB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1143 |
<resource: #image> |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1144 |
"This resource specification was automatically generated |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1145 |
by the ImageEditor of ST/X." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1146 |
"Do not manually edit this!! If it is corrupted, |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1147 |
the ImageEditor may not be able to read the specification." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1148 |
" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1149 |
self iconResizeB inspect |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1150 |
ImageEditor openOnClass:self andSelector:#iconResizeB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1151 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1152 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1153 |
^ Icon constantNamed:'UIPainter class iconResizeB' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1154 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1155 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1156 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1157 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1158 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1159 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1160 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1161 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1162 |
fromPackedString:' |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1163 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@M@@@@@@@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@@@M@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1164 |
@@@@@E@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1165 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1166 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1167 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1168 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1169 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1170 |
fromPackedString:'@@@@@@@@@@@@@G A@G @@G'' @G'' @G''#@G'' G''''"G'''' G''''!!G'''' G'''' O?7 G'''' CCG O??0O??0@@@A@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1171 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1172 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1173 |
] |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1174 |
! |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1175 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1176 |
iconResizeL |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1177 |
<resource: #image> |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1178 |
"This resource specification was automatically generated |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1179 |
by the ImageEditor of ST/X." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1180 |
"Do not manually edit this!! If it is corrupted, |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1181 |
the ImageEditor may not be able to read the specification." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1182 |
" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1183 |
self iconResizeL inspect |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1184 |
ImageEditor openOnClass:self andSelector:#iconResizeL |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1185 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1186 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1187 |
^ Icon constantNamed:'UIPainter class iconResizeL' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1188 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1189 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1190 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1191 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1192 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1193 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1194 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1195 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1196 |
fromPackedString:' |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1197 |
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(AUUU@@@(C???@@@(@@@@@E@(@@@@@@@(@@@@@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1198 |
@(@@@@@@@(AU@@@@@(C?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1199 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1200 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1201 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1202 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1203 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1204 |
fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@FP@@F?? G?? G?? F?? FP@@FP@@F? @G? @G? @F? @FP@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1205 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1206 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1207 |
] |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1208 |
! |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1209 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1210 |
iconResizeLR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1211 |
<resource: #image> |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1212 |
"This resource specification was automatically generated |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1213 |
by the ImageEditor of ST/X." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1214 |
"Do not manually edit this!! If it is corrupted, |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1215 |
the ImageEditor may not be able to read the specification." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1216 |
" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1217 |
self iconResizeLR inspect |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1218 |
ImageEditor openOnClass:self andSelector:#iconResizeLR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1219 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1220 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1221 |
^ Icon constantNamed:'UIPainter class iconResizeLR' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1222 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1223 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1224 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1225 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1226 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1227 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1228 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1229 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1230 |
fromPackedString:' |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1231 |
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(???2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(AUTB @@(C?<B @@(@@@B E@(@@@B @@(@@@B @ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1232 |
@(@@@B @@(AUTB @@(C?<B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1233 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1234 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1235 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1236 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1237 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1238 |
fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A FPI F?= G?? G?? F?= FPI FPI F?= G?? G?? F?= FPI @@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1239 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1240 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1241 |
] |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1242 |
! |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1243 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1244 |
iconResizeR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1245 |
<resource: #image> |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1246 |
"This resource specification was automatically generated |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1247 |
by the ImageEditor of ST/X." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1248 |
"Do not manually edit this!! If it is corrupted, |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1249 |
the ImageEditor may not be able to read the specification." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1250 |
" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1251 |
self iconResizeR inspect |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1252 |
ImageEditor openOnClass:self andSelector:#iconResizeR |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1253 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1254 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1255 |
^ Icon constantNamed:'UIPainter class iconResizeR' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1256 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1257 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1258 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1259 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1260 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1261 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1262 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1263 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1264 |
fromPackedString:' |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1265 |
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@???R @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUTB @@O??<B @@@@@@B E@@@@@B @@@@@@B @ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1266 |
@@@@@B @@@@ETB @@@@O<B @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1267 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1268 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1269 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1270 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1271 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1272 |
fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@I G?= G?? G?? G?= @@I @@I @G= @G? @G? @G= @@I @@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1273 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1274 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1275 |
] |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1276 |
! |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1277 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1278 |
iconResizeT |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1279 |
<resource: #image> |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1280 |
"This resource specification was automatically generated |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1281 |
by the ImageEditor of ST/X." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1282 |
"Do not manually edit this!! If it is corrupted, |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1283 |
the ImageEditor may not be able to read the specification." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1284 |
" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1285 |
self iconResizeT inspect |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1286 |
ImageEditor openOnClass:self andSelector:#iconResizeT |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1287 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1288 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1289 |
^ Icon constantNamed:'UIPainter class iconResizeT' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1290 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1291 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1292 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1293 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1294 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1295 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1296 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1297 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1298 |
fromPackedString:' |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1299 |
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@E@@@@@@@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1300 |
@@@M@M@@@@@M@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1301 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1302 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1303 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1304 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1305 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1306 |
fromPackedString:'@@@@@@@@@@@AO??0O??0CCG G'''' O?7 G'''' G'''' G''''!!G'''' G''''"@G'' @G''#@G'' @G'' @G @@G A@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1307 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1308 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1309 |
] |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1310 |
! |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1311 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1312 |
iconResizeTB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1313 |
<resource: #image> |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1314 |
"This resource specification was automatically generated |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1315 |
by the ImageEditor of ST/X." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1316 |
"Do not manually edit this!! If it is corrupted, |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1317 |
the ImageEditor may not be able to read the specification." |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1318 |
" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1319 |
self iconResizeTB inspect |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1320 |
ImageEditor openOnClass:self andSelector:#iconResizeTB |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1321 |
Icon flushCachedIcons" |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1322 |
|
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1323 |
^ Icon constantNamed:'UIPainter class iconResizeTB' |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1324 |
ifAbsentPut:[ |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1325 |
(Depth2Image new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1326 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1327 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1328 |
photometric:(#palette); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1329 |
bitsPerSample:(#( 2 )); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1330 |
samplesPerPixel:(1); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1331 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1332 |
fromPackedString:' |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
1333 |
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@G@@@@@@@G@@@@@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@@@@@@ |
3119
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1334 |
@G@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1335 |
colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ]; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1336 |
mask:((ImageMask new) |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1337 |
width:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1338 |
height:22; |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1339 |
bits:(ByteArray |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1340 |
fromPackedString:'@@@B@@@@@@@BO??0O??2G#C@G'''' G/?0G''''#G'''' G'''' G'''' G'''' G''''"G/?0G'''' G#C@O??1O??0@@@A@@@B@@@@'); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1341 |
yourself); |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1342 |
yourself |
0a80c1bf3dde
Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents:
3113
diff
changeset
|
1343 |
] |
778 | 1344 |
! ! |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
1345 |
|
60 | 1346 |
!UIPainter class methodsFor:'interface specs'! |
1347 |
||
743 | 1348 |
dialogSpecForDefiningClassAndSelector |
1349 |
"This resource specification was automatically generated |
|
1350 |
by the UIPainter of ST/X." |
|
1351 |
||
765 | 1352 |
"Do not manually edit this!! If it is corrupted, |
743 | 1353 |
the UIPainter may not be able to read the specification." |
366 | 1354 |
|
1355 |
" |
|
743 | 1356 |
UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningClassAndSelector |
1357 |
UIPainter new openInterface:#dialogSpecForDefiningClassAndSelector |
|
366 | 1358 |
" |
1359 |
||
1360 |
<resource: #canvas> |
|
1361 |
||
1362 |
^ |
|
446 | 1363 |
|
366 | 1364 |
#(#FullSpec |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1365 |
#window: |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1366 |
#(#WindowSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1367 |
#name: 'GUI Painter' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1368 |
#layout: #(#LayoutFrame 291 0 130 0 637 0 289 0) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1369 |
#label: 'GUI Painter' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1370 |
#min: #(#Point 350 160) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1371 |
#bounds: #(#Rectangle 291 130 638 290) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1372 |
#usePreferredExtent: false |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1373 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1374 |
#component: |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1375 |
#(#SpecCollection |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1376 |
#collection: |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1377 |
#( |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1378 |
#(#FramedBoxSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1379 |
#name: 'FramedBox' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1380 |
#layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1381 |
#component: |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1382 |
#(#SpecCollection |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1383 |
#collection: |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1384 |
#( |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1385 |
#(#LabelSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1386 |
#name: 'selectorLabel' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1387 |
#layout: #(#AlignmentOrigin 67 0.11 29 0 1 0.5) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1388 |
#label: 'Selector:' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1389 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1390 |
#adjust: #right |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1391 |
#resizeForLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1392 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1393 |
#(#InputFieldSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1394 |
#name: 'methodNameField' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1395 |
#layout: #(#LayoutFrame 70 0.11 18 0 4 1.0 40 0) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1396 |
#tabable: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1397 |
#model: #methodNameChannel |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1398 |
#group: #inputGroup |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1399 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1400 |
#(#LabelSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1401 |
#name: 'classLabel' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1402 |
#layout: #(#AlignmentOrigin 67 0.11 54 0 1 0.5) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1403 |
#label: 'Class:' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1404 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1405 |
#adjust: #right |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1406 |
#resizeForLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1407 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1408 |
#(#InputFieldSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1409 |
#name: 'classNameField' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1410 |
#layout: #(#LayoutFrame 70 0.11 43 0 4 1.0 65 0) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1411 |
#tabable: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1412 |
#model: #classNameChannel |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1413 |
#group: #inputGroup |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1414 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1415 |
#(#LabelSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1416 |
#name: 'superClassLabel' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1417 |
#layout: #(#AlignmentOrigin 67 0.11 79 0 1 0.5) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1418 |
#label: 'Superclass:' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1419 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1420 |
#adjust: #right |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1421 |
#resizeForLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1422 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1423 |
#(#ComboBoxSpec |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1424 |
#name: 'superclassNameComboBox' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1425 |
#layout: #(#LayoutFrame 70 0.11 68 0 4 1.0 90 0) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1426 |
#tabable: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1427 |
#model: #superclassNameChannel |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1428 |
#comboList: #superclassNameDefaults |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1429 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1430 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1431 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1432 |
#label: 'Define Class And Selector' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1433 |
#labelPosition: #topLeft |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1434 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1435 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1436 |
#(#UISubSpecification |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1437 |
#name: 'subSpec' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1438 |
#layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1439 |
#majorKey: #ToolApplicationModel |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1440 |
#minorKey: #windowSpecForCommitWithoutChannels |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1441 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1442 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
1443 |
) |
743 | 1444 |
) |
838
0ac5a26498c1
help texts & national strings
Claus Gittinger <cg@exept.de>
parents:
827
diff
changeset
|
1445 |
|
950
3e227dc788be
fixed layout (change with framedBox - sigh)
Claus Gittinger <cg@exept.de>
parents:
939
diff
changeset
|
1446 |
"Modified: / 13.8.1998 / 19:59:44 / cg" |
743 | 1447 |
! |
1448 |
||
1449 |
dialogSpecForDefiningGridParameters |
|
1450 |
"This resource specification was automatically generated |
|
1451 |
by the UIPainter of ST/X." |
|
1452 |
||
765 | 1453 |
"Do not manually edit this!! If it is corrupted, |
743 | 1454 |
the UIPainter may not be able to read the specification." |
1455 |
||
1456 |
" |
|
1457 |
UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningGridParameters |
|
1458 |
UIPainter new openInterface:#dialogSpecForDefiningGridParameters |
|
1459 |
" |
|
1460 |
||
1461 |
<resource: #canvas> |
|
1462 |
||
1782 | 1463 |
^ |
1464 |
#(FullSpec |
|
1465 |
name: dialogSpecForDefiningGridParameters |
|
1466 |
window: |
|
1467 |
(WindowSpec |
|
1468 |
label: 'GUI Painter' |
|
1469 |
name: 'GUI Painter' |
|
1470 |
min: (Point 300 200) |
|
1471 |
max: (Point 300 200) |
|
1472 |
bounds: (Rectangle 16 46 298 244) |
|
1473 |
) |
|
1474 |
component: |
|
1475 |
(SpecCollection |
|
1476 |
collection: ( |
|
1477 |
(FramedBoxSpec |
|
1478 |
label: 'Grid Parameter' |
|
1479 |
name: 'FramedBox' |
|
1480 |
layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0) |
|
1481 |
labelPosition: topLeft |
|
1482 |
translateLabel: true |
|
1483 |
component: |
|
1484 |
(SpecCollection |
|
1485 |
collection: ( |
|
1486 |
(CheckBoxSpec |
|
1487 |
label: 'Show Grid' |
|
1488 |
name: 'ShowGridCheckBox' |
|
1489 |
layout: (Point 13 14) |
|
1490 |
model: showGrid |
|
1491 |
translateLabel: true |
|
2692 | 1492 |
activeHelpKey: showGrid |
1782 | 1493 |
) |
1494 |
(CheckBoxSpec |
|
1495 |
label: 'Align To Grid' |
|
1496 |
name: 'AlignCheckBox' |
|
1497 |
layout: (Point 13 42) |
|
1498 |
model: alignToGrid |
|
1499 |
translateLabel: true |
|
2692 | 1500 |
activeHelpKey: alignToGrid |
1782 | 1501 |
) |
1502 |
(LabelSpec |
|
1503 |
label: 'Horizontal Pixels:' |
|
1504 |
name: 'HorizontalPixelsLabel' |
|
1505 |
layout: (AlignmentOrigin 138 0 89 0 1 0.5) |
|
1506 |
translateLabel: true |
|
1507 |
resizeForLabel: true |
|
1508 |
adjust: right |
|
1509 |
) |
|
1510 |
(InputFieldSpec |
|
1511 |
name: 'HorizontalPixelsField' |
|
1512 |
layout: (LayoutFrame 144 0 77 0 197 0 99 0) |
|
1513 |
model: hspace |
|
1514 |
group: inputGroup |
|
1515 |
type: numberOrNil |
|
1516 |
acceptOnPointerLeave: false |
|
1517 |
) |
|
1518 |
(LabelSpec |
|
1519 |
label: 'Vertical Pixels:' |
|
1520 |
name: 'VerticalPixelsLabel' |
|
1521 |
layout: (AlignmentOrigin 139 0 114 0 1 0.5) |
|
1522 |
translateLabel: true |
|
1523 |
resizeForLabel: true |
|
1524 |
adjust: right |
|
1525 |
) |
|
1526 |
(InputFieldSpec |
|
1527 |
name: 'VerticalPixelsField' |
|
1528 |
layout: (LayoutFrame 144 0 102 0 197 0 124 0) |
|
1529 |
model: vspace |
|
1530 |
group: inputGroup |
|
1531 |
type: numberOrNil |
|
1532 |
acceptOnPointerLeave: false |
|
1533 |
) |
|
1534 |
) |
|
1535 |
||
1536 |
) |
|
1537 |
) |
|
1538 |
(UISubSpecification |
|
1539 |
name: 'subSpec' |
|
1540 |
layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1) |
|
1541 |
majorKey: ToolApplicationModel |
|
1542 |
minorKey: windowSpecForCommitWithoutChannels |
|
1543 |
) |
|
1544 |
) |
|
1545 |
||
1546 |
) |
|
366 | 1547 |
) |
1548 |
! |
|
1549 |
||
2243 | 1550 |
dialogSpecForDefiningPortAndPageName |
1551 |
"This resource specification was automatically generated |
|
1552 |
by the UIPainter of ST/X." |
|
1553 |
||
1554 |
"Do not manually edit this!! If it is corrupted, |
|
1555 |
the UIPainter may not be able to read the specification." |
|
1556 |
||
1557 |
" |
|
2258 | 1558 |
UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningPortAndPageName |
1559 |
UIPainter new openInterface:#dialogSpecForDefiningPortAndPageName |
|
2243 | 1560 |
" |
1561 |
||
1562 |
<resource: #canvas> |
|
1563 |
||
1564 |
^ |
|
1565 |
#(FullSpec |
|
2258 | 1566 |
name: dialogSpecForDefiningPortAndPageName |
2243 | 1567 |
window: |
1568 |
(WindowSpec |
|
1569 |
label: 'GUI Painter' |
|
1570 |
name: 'GUI Painter' |
|
1571 |
min: (Point 350 140) |
|
1572 |
max: (Point 500 140) |
|
1573 |
bounds: (Rectangle 0 0 346 138) |
|
1574 |
) |
|
1575 |
component: |
|
1576 |
(SpecCollection |
|
1577 |
collection: ( |
|
1578 |
(FramedBoxSpec |
|
2261 | 1579 |
label: 'Define Service and Pagename' |
2243 | 1580 |
name: 'FramedBox' |
1581 |
layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0) |
|
1582 |
labelPosition: topLeft |
|
1583 |
translateLabel: true |
|
1584 |
component: |
|
1585 |
(SpecCollection |
|
1586 |
collection: ( |
|
1587 |
(LabelSpec |
|
1588 |
label: 'Service (or Port):' |
|
1589 |
name: 'portLabel' |
|
1590 |
layout: (AlignmentOrigin 67 0.11 29 0 1 0.5) |
|
1591 |
translateLabel: true |
|
1592 |
resizeForLabel: true |
|
1593 |
adjust: right |
|
1594 |
) |
|
2258 | 1595 |
(ComboBoxSpec |
1596 |
name: 'ComboBox1' |
|
2243 | 1597 |
layout: (LayoutFrame 70 0.11 18 0 4 1.0 40 0) |
1598 |
model: serviceOrPortNameChannel |
|
1599 |
acceptOnPointerLeave: false |
|
2258 | 1600 |
comboList: runningServerPorts |
2243 | 1601 |
) |
1602 |
(LabelSpec |
|
1603 |
label: 'Pagename:' |
|
1604 |
name: 'pageNameLabel' |
|
1605 |
layout: (AlignmentOrigin 67 0.11 54 0 1 0.5) |
|
1606 |
translateLabel: true |
|
1607 |
resizeForLabel: true |
|
1608 |
adjust: right |
|
1609 |
) |
|
1610 |
(InputFieldSpec |
|
1611 |
name: 'pageNameNameField' |
|
1612 |
layout: (LayoutFrame 70 0.11 43 0 4 1.0 65 0) |
|
1613 |
tabable: true |
|
1614 |
model: pageNameNameChannel |
|
1615 |
group: inputGroup |
|
1616 |
acceptOnPointerLeave: false |
|
1617 |
) |
|
1618 |
) |
|
1619 |
||
1620 |
) |
|
1621 |
) |
|
1622 |
(UISubSpecification |
|
1623 |
name: 'subSpec' |
|
1624 |
layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1) |
|
1625 |
majorKey: ToolApplicationModel |
|
1626 |
minorKey: windowSpecForCommitWithoutChannels |
|
1627 |
) |
|
1628 |
) |
|
1629 |
||
1630 |
) |
|
1631 |
) |
|
1632 |
! |
|
1633 |
||
743 | 1634 |
windowSpec |
1635 |
"This resource specification was automatically generated |
|
1636 |
by the UIPainter of ST/X." |
|
1637 |
||
1638 |
"Do not manually edit this!! If it is corrupted, |
|
1639 |
the UIPainter may not be able to read the specification." |
|
222 | 1640 |
|
1641 |
" |
|
743 | 1642 |
UIPainter new openOnClass:UIPainter andSelector:#windowSpec |
1643 |
UIPainter new openInterface:#windowSpec |
|
1644 |
UIPainter open |
|
222 | 1645 |
" |
1646 |
||
1647 |
<resource: #canvas> |
|
1648 |
||
1115 | 1649 |
^ |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1650 |
#(FullSpec |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1651 |
name: windowSpec |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1652 |
window: |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1653 |
(WindowSpec |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1654 |
label: 'GUI Painter' |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1655 |
name: 'GUI Painter' |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1656 |
min: (Point 560 460) |
2950 | 1657 |
bounds: (Rectangle 0 0 834 575) |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1658 |
menu: menu |
2157 | 1659 |
icon: defaultIcon |
1317 | 1660 |
) |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1661 |
component: |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1662 |
(SpecCollection |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1663 |
collection: ( |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1664 |
(ViewSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1665 |
name: 'mainPanel' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1666 |
layout: (LayoutFrame 0 0 0 0 0 1 -24 1) |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1667 |
component: |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1668 |
(SpecCollection |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1669 |
collection: ( |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1670 |
(ViewSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1671 |
name: 'ToolBar' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1672 |
layout: (LayoutFrame 0 0 0 0 0 1 32 0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1673 |
visibilityChannel: toolBarVisibleHolder |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1674 |
component: |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1675 |
(SpecCollection |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1676 |
collection: ( |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1677 |
(ActionButtonSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1678 |
label: 'hideToolBarIcon' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1679 |
name: 'HideToolBarButton' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1680 |
layout: (LayoutFrame 0 0 0 0 13 0 0 1) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1681 |
activeHelpKey: hideToolBar |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1682 |
hasCharacterOrientedLabel: false |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1683 |
translateLabel: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1684 |
model: hideToolbar |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1685 |
postBuildCallback: hideToolBarButtonCreated: |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1686 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1687 |
(MenuPanelSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1688 |
name: 'menuToolbarView' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1689 |
layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1690 |
visibilityChannel: toolBarVisibleHolder |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1691 |
menu: menuToolbar |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1692 |
textDefault: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1693 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1694 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1695 |
|
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1696 |
) |
1317 | 1697 |
) |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1698 |
(ViewSpec |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1699 |
name: 'EditToolBar' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1700 |
layout: (LayoutFrame 0 0 30 0 0 1 62 0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1701 |
visibilityChannel: editToolBarVisibleHolder |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1702 |
component: |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1703 |
(SpecCollection |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1704 |
collection: ( |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1705 |
(ActionButtonSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1706 |
label: 'hideToolBarIcon' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1707 |
name: 'HideEditToolBarButton' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1708 |
layout: (LayoutFrame 0 0 0 0 13 0 0 1) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1709 |
activeHelpKey: hideToolBar |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1710 |
hasCharacterOrientedLabel: false |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1711 |
translateLabel: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1712 |
model: hideEditToolbar |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1713 |
postBuildCallback: hideToolBarButtonCreated: |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1714 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1715 |
(MenuPanelSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1716 |
name: 'EditToolBar1' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1717 |
layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1718 |
visibilityChannel: editToolBarVisibleHolder |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1719 |
menu: editToolbar |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1720 |
textDefault: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1721 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1722 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1723 |
|
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1724 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1725 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1726 |
(VariableHorizontalPanelSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1727 |
name: 'Painter' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1728 |
layout: (LayoutFrame 0 0.0 60 0.0 0 1.0 0 1.0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1729 |
level: 1 |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1730 |
component: |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1731 |
(SpecCollection |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1732 |
collection: ( |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1733 |
(ArbitraryComponentSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1734 |
name: 'treeView' |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1735 |
tabable: true |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1736 |
menu: menuEdit |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1737 |
hasHorizontalScrollBar: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1738 |
hasVerticalScrollBar: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1739 |
miniScrollerHorizontal: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1740 |
miniScrollerVertical: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1741 |
hasBorder: false |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1742 |
component: treeView |
1317 | 1743 |
) |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1744 |
(ViewSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1745 |
name: 'specHolderView' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1746 |
level: 0 |
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1747 |
component: |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1748 |
(SpecCollection |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1749 |
collection: ( |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1750 |
(MenuPanelSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1751 |
name: 'menuToolbar2View' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1752 |
layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1753 |
level: 0 |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1754 |
tabable: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1755 |
menu: menuToolbar2 |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1756 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1757 |
(NoteBookViewSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1758 |
name: 'noteBook' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1759 |
layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1760 |
level: 0 |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1761 |
enableChannel: enableChannel |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1762 |
tabable: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1763 |
model: tabModel |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1764 |
menu: tabList |
1782 | 1765 |
translateLabel: true |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1766 |
canvas: noteBookView |
1457
8c15098c3469
ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents:
1456
diff
changeset
|
1767 |
) |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1768 |
(HorizontalPanelViewSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1769 |
name: 'HorizontalPanel1' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1770 |
layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1771 |
horizontalLayout: fit |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1772 |
verticalLayout: fit |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1773 |
horizontalSpace: 3 |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1774 |
verticalSpace: 3 |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1775 |
reverseOrderIfOKAtLeft: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1776 |
component: |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1777 |
(SpecCollection |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1778 |
collection: ( |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1779 |
(ActionButtonSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1780 |
label: 'Cancel' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1781 |
name: 'cancelButton' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1782 |
activeHelpKey: commitCancel |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1783 |
translateLabel: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1784 |
tabable: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1785 |
model: cancel |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1786 |
enableChannel: modifiedChannel |
2950 | 1787 |
extent: (Point 274 24) |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1788 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1789 |
(ActionButtonSpec |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1790 |
label: 'OK' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1791 |
name: 'acceptButton' |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1792 |
activeHelpKey: commitOK |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1793 |
translateLabel: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1794 |
tabable: true |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1795 |
model: accept |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1796 |
enableChannel: modifiedChannel |
2950 | 1797 |
extent: (Point 274 24) |
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1798 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1799 |
) |
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1800 |
|
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1801 |
) |
1457
8c15098c3469
ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents:
1456
diff
changeset
|
1802 |
) |
8c15098c3469
ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents:
1456
diff
changeset
|
1803 |
) |
8c15098c3469
ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents:
1456
diff
changeset
|
1804 |
|
1317 | 1805 |
) |
1806 |
) |
|
1807 |
) |
|
1115 | 1808 |
|
1317 | 1809 |
) |
2950 | 1810 |
handles: (Any 0.3 1.0) |
1317 | 1811 |
) |
1812 |
) |
|
1115 | 1813 |
|
1317 | 1814 |
) |
1815 |
) |
|
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1816 |
(UISubSpecification |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1817 |
name: 'infoBarSubSpec' |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1818 |
layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1819 |
level: 1 |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1820 |
majorKey: ToolApplicationModel |
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
1821 |
minorKey: windowSpecForInfoBar |
1317 | 1822 |
) |
1823 |
) |
|
1115 | 1824 |
|
2531
dcfbf5a1e032
oops - component \"mainPanel\" IS required
Claus Gittinger <cg@exept.de>
parents:
2529
diff
changeset
|
1825 |
) |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1826 |
) |
222 | 1827 |
! ! |
1828 |
||
1829 |
!UIPainter class methodsFor:'menu specs'! |
|
1830 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1831 |
cutCopyPasteMenuSlice |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1832 |
"This resource specification was automatically generated |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1833 |
by the MenuEditor of ST/X." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1834 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1835 |
"Do not manually edit this!! If it is corrupted, |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1836 |
the MenuEditor may not be able to read the specification." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1837 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1838 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1839 |
MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1840 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1841 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1842 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1843 |
<resource: #menu> |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1844 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1845 |
^ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1846 |
#(Menu |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1847 |
( |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1848 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1849 |
activeHelpKey: editCut |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1850 |
enabled: canCutHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1851 |
label: 'Cut' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1852 |
itemValue: deleteSelection |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1853 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1854 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1855 |
labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1856 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1857 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1858 |
activeHelpKey: editCopy |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1859 |
enabled: canCopyHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1860 |
label: 'Copy' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1861 |
itemValue: copySelection |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1862 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1863 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1864 |
labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1865 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1866 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1867 |
activeHelpKey: editPaste |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1868 |
enabled: canPasteKeepingLayoutHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1869 |
label: 'Paste with Layout' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1870 |
itemValue: pasteWithLayout |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1871 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1872 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1873 |
labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1874 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1875 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1876 |
activeHelpKey: editDelete |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1877 |
enabled: canCutHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1878 |
label: 'Delete' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1879 |
itemValue: deleteTotalSelection |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1880 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1881 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1882 |
isVisible: false |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1883 |
labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1884 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1885 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1886 |
label: '-' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1887 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1888 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1889 |
activeHelpKey: editUndo |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1890 |
enabled: hasUndoHistoryHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1891 |
label: 'Undo' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1892 |
itemValue: undoLast |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1893 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1894 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1895 |
labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1896 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1897 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1898 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1899 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1900 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1901 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1902 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1903 |
editToolbar |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1904 |
"This resource specification was automatically generated |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1905 |
by the MenuEditor of ST/X." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1906 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1907 |
"Do not manually edit this!! If it is corrupted, |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1908 |
the MenuEditor may not be able to read the specification." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1909 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1910 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1911 |
MenuEditor new openOnClass:UIPainter andSelector:#editToolbar |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1912 |
(Menu new fromLiteralArrayEncoding:(UIPainter editToolbar)) startUp |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1913 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1914 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1915 |
<resource: #menu> |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1916 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1917 |
^ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1918 |
#(Menu |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1919 |
( |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1920 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1921 |
label: 'moveItems' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1922 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1923 |
submenuChannel: moveInListMenuSlice |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1924 |
isMenuSlice: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1925 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1926 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1927 |
label: '-' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1928 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1929 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1930 |
label: 'gridItems' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1931 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1932 |
submenuChannel: gridMenuSlice |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1933 |
isMenuSlice: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1934 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1935 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1936 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1937 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1938 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1939 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1940 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1941 |
gridMenuSlice |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1942 |
"This resource specification was automatically generated |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1943 |
by the MenuEditor of ST/X." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1944 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1945 |
"Do not manually edit this!! If it is corrupted, |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1946 |
the MenuEditor may not be able to read the specification." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1947 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1948 |
" |
3428 | 1949 |
MenuEditor new openOnClass:Workflow::WorksheetEditor andSelector:#gridMenuSlice |
1950 |
(Menu new fromLiteralArrayEncoding:(Workflow::WorksheetEditor gridMenuSlice)) startUp |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1951 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1952 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1953 |
<resource: #menu> |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1954 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1955 |
^ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1956 |
#(Menu |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1957 |
( |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1958 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1959 |
label: 'ShowGrid' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1960 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1961 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1962 |
indication: gridShownHolder |
2522 | 1963 |
labelImage: (ResourceRetriever ToolbarIconLibrary gridIcon) |
2692 | 1964 |
activeHelpKey: showGrid |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1965 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1966 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1967 |
label: 'AlignToGrid' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1968 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1969 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1970 |
indication: alignToGridHolder |
2522 | 1971 |
labelImage: (ResourceRetriever ToolbarIconLibrary gridAlignIcon) |
2692 | 1972 |
activeHelpKey: alignToGrid |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1973 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1974 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1975 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1976 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1977 |
) |
3428 | 1978 |
|
1979 |
"Modified (comment): / 15-03-2017 / 11:30:06 / cg" |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1980 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
1981 |
|
446 | 1982 |
menu |
743 | 1983 |
"This resource specification was automatically generated |
1984 |
by the MenuEditor of ST/X." |
|
1985 |
||
1986 |
"Do not manually edit this!! If it is corrupted, |
|
1987 |
the MenuEditor may not be able to read the specification." |
|
217 | 1988 |
|
2883 | 1989 |
|
217 | 1990 |
" |
446 | 1991 |
MenuEditor new openOnClass:UIPainter andSelector:#menu |
1992 |
(Menu new fromLiteralArrayEncoding:(UIPainter menu)) startUp |
|
1993 |
" |
|
1994 |
||
1995 |
<resource: #menu> |
|
1996 |
||
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
1997 |
^ |
1775 | 1998 |
#(Menu |
1999 |
( |
|
2000 |
(MenuItem |
|
2001 |
label: '&File' |
|
2002 |
translateLabel: true |
|
2277
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2003 |
submenuChannel: menuFile |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2004 |
keepLinkedMenu: true |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2005 |
) |
1775 | 2006 |
(MenuItem |
2007 |
label: 'Edit' |
|
2008 |
translateLabel: true |
|
2009 |
submenuChannel: menuEdit |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2010 |
) |
1775 | 2011 |
(MenuItem |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2012 |
label: 'View' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2013 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2014 |
submenu: |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2015 |
(Menu |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2016 |
( |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2017 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2018 |
activeHelpKey: settingsCanvas |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2019 |
label: 'Canvas' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2020 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2021 |
indication: painterShown |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2022 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2023 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2024 |
activeHelpKey: settingsGallery |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2025 |
label: 'Gallery' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2026 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2027 |
indication: galleryShown |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2028 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2029 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2030 |
label: '-' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2031 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2032 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2033 |
label: 'Toolbar' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2034 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2035 |
hideMenuOnActivated: false |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2036 |
indication: toolBarVisibleHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2037 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2038 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2039 |
label: 'Editor Toolbar' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2040 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2041 |
hideMenuOnActivated: false |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2042 |
indication: editToolBarVisibleHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2043 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2044 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2045 |
label: '-' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2046 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2047 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2048 |
label: 'Load Sketch as Background...' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2049 |
itemValue: useSketch |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2050 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2051 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2052 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2053 |
label: 'Load Image as Background...' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2054 |
itemValue: useBackgroundImage |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2055 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2056 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2057 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2058 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2059 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2060 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2061 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2062 |
(MenuItem |
1775 | 2063 |
label: 'Align' |
2064 |
translateLabel: true |
|
2065 |
submenuChannel: menuAlign |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2066 |
) |
1775 | 2067 |
(MenuItem |
2068 |
label: 'Generate' |
|
2069 |
translateLabel: true |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
2070 |
isVisible: isNotEditingSpecOnly |
1775 | 2071 |
submenu: |
2072 |
(Menu |
|
2073 |
( |
|
2074 |
(MenuItem |
|
2075 |
activeHelpKey: generateAspectMethods |
|
2076 |
enabled: hasSpecClass |
|
2077 |
label: 'Aspect Methods' |
|
2078 |
itemValue: doGenerateAspectMethods |
|
2079 |
translateLabel: true |
|
1498 | 2080 |
) |
1775 | 2081 |
(MenuItem |
2082 |
activeHelpKey: generateAspectMethodFor |
|
2083 |
enabled: hasSpecClass |
|
2084 |
label: 'Aspect Method For...' |
|
2085 |
itemValue: doGenerateAspectMethodFor |
|
2086 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2087 |
) |
1775 | 2088 |
(MenuItem |
2089 |
enabled: hasSpecClass |
|
2090 |
label: 'Menu Stub Methods' |
|
2091 |
itemValue: doGenerateMenuMethods |
|
2092 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2093 |
) |
1775 | 2094 |
(MenuItem |
2095 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2096 |
) |
1775 | 2097 |
(MenuItem |
2098 |
activeHelpKey: generateHookMethods |
|
2099 |
enabled: hasSpecClass |
|
2100 |
label: 'Hook Methods' |
|
2101 |
itemValue: doGenerateHookMethods |
|
2102 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2103 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2104 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2105 |
nil |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2106 |
nil |
1498 | 2107 |
) |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2108 |
) |
1775 | 2109 |
(MenuItem |
2110 |
label: 'Test' |
|
2111 |
translateLabel: true |
|
2112 |
submenu: |
|
2113 |
(Menu |
|
2114 |
( |
|
2115 |
(MenuItem |
|
2116 |
activeHelpKey: testStartApplication |
|
2117 |
label: 'Start Application' |
|
2118 |
itemValue: doStartApplication |
|
2119 |
translateLabel: true |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
2120 |
isVisible: isNotEditingSpecOnly |
1498 | 2121 |
) |
1775 | 2122 |
(MenuItem |
2123 |
label: '-' |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
2124 |
isVisible: isNotEditingSpecOnly |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2125 |
) |
1775 | 2126 |
(MenuItem |
2127 |
activeHelpKey: testGeometryTestMode |
|
2883 | 2128 |
label: 'Geometry Test/Set Mode' |
1775 | 2129 |
translateLabel: true |
2130 |
indication: testMode: |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2131 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2132 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2133 |
nil |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2134 |
nil |
1498 | 2135 |
) |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2136 |
) |
1775 | 2137 |
(MenuItem |
2138 |
label: 'Settings' |
|
2139 |
translateLabel: true |
|
2140 |
submenu: |
|
2141 |
(Menu |
|
2142 |
( |
|
2143 |
(MenuItem |
|
2243 | 2144 |
activeHelpKey: settingsAspectsAsInstances |
2145 |
label: 'Aspects as InstanceVariables' |
|
2146 |
translateLabel: true |
|
2147 |
isVisible: isNotEditingSpecOnly |
|
2148 |
indication: generateAspectsAsInstanceVariables: |
|
2149 |
) |
|
2150 |
(MenuItem |
|
1775 | 2151 |
activeHelpKey: settingsRedefineAspectMethods |
2152 |
label: 'Redefine Aspect Methods' |
|
2153 |
translateLabel: true |
|
2243 | 2154 |
isVisible: isNotEditingSpecOnly |
1775 | 2155 |
indication: redefineAspectMethods: |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2156 |
) |
1775 | 2157 |
(MenuItem |
2243 | 2158 |
activeHelpKey: settingsGenerateCommentedCode |
2159 |
label: 'Generate Commented Code' |
|
1775 | 2160 |
translateLabel: true |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
2161 |
isVisible: isNotEditingSpecOnly |
2243 | 2162 |
indication: generateCommentedCode: |
1498 | 2163 |
) |
1775 | 2164 |
(MenuItem |
2165 |
label: 'AutoAccept on Selection-Change ' |
|
2166 |
translateLabel: true |
|
2167 |
indication: autoAcceptOnSelectionChange |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2168 |
) |
1775 | 2169 |
(MenuItem |
2170 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2171 |
) |
1775 | 2172 |
(MenuItem |
2173 |
activeHelpKey: settingsUndoManager |
|
2174 |
enabled: hasUndoHistory |
|
2175 |
label: 'Undo Manager...' |
|
2176 |
itemValue: openUndoMenu |
|
2177 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2178 |
) |
1775 | 2179 |
(MenuItem |
2180 |
activeHelpKey: settingsGridManager |
|
2181 |
label: 'Grid Manager...' |
|
2182 |
itemValue: doDefineGrid |
|
2183 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2184 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2185 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2186 |
nil |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2187 |
nil |
1498 | 2188 |
) |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2189 |
) |
1775 | 2190 |
(MenuItem |
2191 |
label: 'History' |
|
2192 |
translateLabel: true |
|
2023 | 2193 |
isVisible: isStandAlone |
1775 | 2194 |
submenuChannel: menuHistory |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2195 |
) |
1775 | 2196 |
(MenuItem |
2138
55f338a77eb0
support '?' as help (for now: controlled by resources)
Claus Gittinger <cg@exept.de>
parents:
2124
diff
changeset
|
2197 |
label: 'MENU_Help' |
1775 | 2198 |
translateLabel: true |
2124 | 2199 |
startGroup: conditionalRight |
1775 | 2200 |
submenu: |
2201 |
(Menu |
|
2202 |
( |
|
2203 |
(MenuItem |
|
2204 |
activeHelpKey: helpTutorial |
|
2205 |
label: 'Tutorial' |
|
2206 |
itemValue: openHTMLDocument: |
|
2207 |
translateLabel: true |
|
2208 |
argument: 'tools/uipainter/TOP.html' |
|
2209 |
) |
|
2210 |
(MenuItem |
|
2211 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2212 |
) |
1775 | 2213 |
(MenuItem |
2214 |
activeHelpKey: helpFunctions |
|
2215 |
label: 'Functions' |
|
2216 |
itemValue: openHTMLDocument: |
|
2217 |
translateLabel: true |
|
2218 |
argument: 'tools/uipainter/Functions.html' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2219 |
) |
1775 | 2220 |
(MenuItem |
2221 |
activeHelpKey: helpExamples |
|
2222 |
label: 'Examples' |
|
2223 |
itemValue: openHTMLDocument: |
|
2224 |
translateLabel: true |
|
2225 |
argument: 'tools/uipainter/Examples.html' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2226 |
) |
1775 | 2227 |
(MenuItem |
2228 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2229 |
) |
1775 | 2230 |
(MenuItem |
2231 |
activeHelpKey: helpHelpTool |
|
2232 |
label: 'Help Tool' |
|
2233 |
itemValue: openHTMLDocument: |
|
2234 |
translateLabel: true |
|
2235 |
argument: 'tools/uipainter/HelpTool.html' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2236 |
) |
1775 | 2237 |
(MenuItem |
2238 |
activeHelpKey: helpLayoutTool |
|
2239 |
label: 'Layout Tool' |
|
2240 |
itemValue: openHTMLDocument: |
|
2241 |
translateLabel: true |
|
2242 |
argument: 'tools/uipainter/LayoutTool.html' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2243 |
) |
1775 | 2244 |
(MenuItem |
2245 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2246 |
) |
1775 | 2247 |
(MenuItem |
2248 |
activeHelpKey: helpSelectedWidget |
|
2249 |
label: 'Selected Widget' |
|
2250 |
itemValue: doOpenWidgetDocumentation |
|
2251 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2252 |
) |
1775 | 2253 |
(MenuItem |
2254 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2255 |
) |
1775 | 2256 |
(MenuItem |
2257 |
activeHelpKey: helpShowHelp |
|
2258 |
label: 'Show Help Texts' |
|
2259 |
translateLabel: true |
|
2260 |
indication: showingHelp: |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2261 |
) |
1775 | 2262 |
(MenuItem |
2263 |
label: '-' |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2264 |
) |
1775 | 2265 |
(MenuItem |
2266 |
activeHelpKey: aboutThisAppliaction |
|
2267 |
label: 'About this Application...' |
|
2268 |
itemValue: openAboutThisApplication |
|
2269 |
translateLabel: true |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2270 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2271 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2272 |
nil |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2273 |
nil |
1498 | 2274 |
) |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2275 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2276 |
) |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2277 |
nil |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
2278 |
nil |
564 | 2279 |
) |
2280 |
! |
|
2281 |
||
446 | 2282 |
menuAlign |
743 | 2283 |
"This resource specification was automatically generated |
2284 |
by the MenuEditor of ST/X." |
|
2285 |
||
778 | 2286 |
"Do not manually edit this!! If it is corrupted, |
743 | 2287 |
the MenuEditor may not be able to read the specification." |
446 | 2288 |
|
2289 |
" |
|
2290 |
MenuEditor new openOnClass:UIPainter andSelector:#menuAlign |
|
2291 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuAlign)) startUp |
|
217 | 2292 |
" |
2293 |
||
2294 |
<resource: #menu> |
|
2295 |
||
1862 | 2296 |
^ |
2297 |
#(Menu |
|
2298 |
( |
|
2299 |
(MenuItem |
|
2300 |
activeHelpKey: alignSelectionLeft |
|
2301 |
enabled: canMoveOrAlignSelection |
|
2302 |
label: 'Left' |
|
2303 |
itemValue: alignSelectionLeft |
|
2304 |
translateLabel: true |
|
2305 |
labelImage: (ResourceRetriever UIPainter iconAlignL 'Left') |
|
2306 |
) |
|
2307 |
(MenuItem |
|
2308 |
activeHelpKey: alignSelectionRight |
|
2309 |
enabled: canMoveOrAlignSelection |
|
2310 |
label: 'Right' |
|
2311 |
itemValue: alignSelectionRight |
|
2312 |
translateLabel: true |
|
2313 |
labelImage: (ResourceRetriever UIPainter iconAlignR 'Right') |
|
2314 |
) |
|
2315 |
(MenuItem |
|
2316 |
activeHelpKey: alignSelectionTop |
|
2317 |
enabled: canMoveOrAlignSelection |
|
2318 |
label: 'Top' |
|
2319 |
itemValue: alignSelectionTop |
|
2320 |
translateLabel: true |
|
2321 |
labelImage: (ResourceRetriever UIPainter iconAlignT 'Top') |
|
2322 |
) |
|
2323 |
(MenuItem |
|
2324 |
activeHelpKey: alignSelectionBottom |
|
2325 |
enabled: canMoveOrAlignSelection |
|
2326 |
label: 'Bottom' |
|
2327 |
itemValue: alignSelectionBottom |
|
2328 |
translateLabel: true |
|
2329 |
labelImage: (ResourceRetriever UIPainter iconAlignB 'Bottom') |
|
2330 |
) |
|
2331 |
(MenuItem |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2332 |
label: '-' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2333 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2334 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2335 |
activeHelpKey: alignResizeSelectionLeft |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2336 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2337 |
label: 'Resize Left' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2338 |
itemValue: alignResizeSelectionLeft |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2339 |
translateLabel: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2340 |
labelImage: (ResourceRetriever UIPainter iconResizeL 'Resize Left') |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2341 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2342 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2343 |
activeHelpKey: alignResizeSelectionRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2344 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2345 |
label: 'Resize Right' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2346 |
itemValue: alignResizeSelectionRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2347 |
translateLabel: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2348 |
labelImage: (ResourceRetriever UIPainter iconResizeR 'Resize Right') |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2349 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2350 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2351 |
activeHelpKey: alignResizeSelectionTop |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2352 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2353 |
label: 'Resize Top' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2354 |
itemValue: alignResizeSelectionTop |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2355 |
translateLabel: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2356 |
labelImage: (ResourceRetriever UIPainter iconResizeT 'Resize Top') |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2357 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2358 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2359 |
activeHelpKey: alignResizeSelectionBottom |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2360 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2361 |
label: 'Resize Bottom' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2362 |
itemValue: alignResizeSelectionBottom |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2363 |
translateLabel: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2364 |
labelImage: (ResourceRetriever UIPainter iconResizeB 'Resize Bottom') |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2365 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2366 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2367 |
activeHelpKey: alignSelectionLeftAndRight |
2479
fda2e68c7cad
UIPainter can now resize subviews of PanelViews
Stefan Vogel <sv@exept.de>
parents:
2477
diff
changeset
|
2368 |
enabled: canResizeSelection |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2369 |
label: 'Left && Right' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2370 |
itemValue: alignSelectionLeftAndRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2371 |
translateLabel: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2372 |
labelImage: (ResourceRetriever UIPainter iconResizeLR 'Left && Right') |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2373 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2374 |
(MenuItem |
1862 | 2375 |
activeHelpKey: alignSelectionTopAndBottom |
2479
fda2e68c7cad
UIPainter can now resize subviews of PanelViews
Stefan Vogel <sv@exept.de>
parents:
2477
diff
changeset
|
2376 |
enabled: canResizeSelection |
1862 | 2377 |
label: 'Top && Bottom' |
2378 |
itemValue: alignSelectionTopAndBottom |
|
2379 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2380 |
labelImage: (ResourceRetriever UIPainter iconResizeTB 'Top && Bottom') |
1862 | 2381 |
) |
2382 |
(MenuItem |
|
2383 |
label: '-' |
|
2384 |
) |
|
2385 |
(MenuItem |
|
2386 |
activeHelpKey: alignSelectionCenterHor |
|
2387 |
enabled: canMoveOrAlignSelection |
|
2388 |
label: 'Center Horizontal' |
|
2389 |
itemValue: alignSelectionCenterHor |
|
2390 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2391 |
labelImage: (ResourceRetriever UIPainter iconCenterH 'Center Horizontal') |
1862 | 2392 |
) |
2393 |
(MenuItem |
|
2394 |
activeHelpKey: centerSelectionHor |
|
2395 |
enabled: canMoveOrAlignSelection |
|
2396 |
label: 'Center Horizontal in Frame' |
|
2397 |
itemValue: centerSelectionHor |
|
2398 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2399 |
labelImage: (ResourceRetriever UIPainter iconCenterHInFrame 'Center Horizontal in Frame') |
1862 | 2400 |
) |
2401 |
(MenuItem |
|
2402 |
activeHelpKey: alignSelectionCenterVer |
|
2403 |
enabled: canMoveOrAlignSelection |
|
2404 |
label: 'Center Vertical' |
|
2405 |
itemValue: alignSelectionCenterVer |
|
2406 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2407 |
labelImage: (ResourceRetriever UIPainter iconCenterV 'Center Vertical') |
1862 | 2408 |
) |
2409 |
(MenuItem |
|
2410 |
activeHelpKey: centerSelectionVer |
|
2411 |
enabled: canMoveOrAlignSelection |
|
2412 |
label: 'Center Vertical in Frame' |
|
2413 |
itemValue: centerSelectionVer |
|
2414 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2415 |
labelImage: (ResourceRetriever UIPainter iconCenterVInFrame 'Center Vertical in Frame') |
1862 | 2416 |
) |
2417 |
(MenuItem |
|
2418 |
label: '-' |
|
2419 |
) |
|
2420 |
(MenuItem |
|
2421 |
activeHelpKey: spreadSelectionHor |
|
2422 |
enabled: canMoveOrAlignSelection |
|
2423 |
label: 'Distribute Horizontal' |
|
2424 |
itemValue: spreadSelectionHor |
|
2425 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2426 |
labelImage: (ResourceRetriever UIPainter iconDistributeH 'Distribute Horizontal') |
1862 | 2427 |
) |
2428 |
(MenuItem |
|
2429 |
activeHelpKey: spreadSelectionVer |
|
2430 |
enabled: canMoveOrAlignSelection |
|
2431 |
label: 'Distribute Vertical' |
|
2432 |
itemValue: spreadSelectionVer |
|
2433 |
translateLabel: true |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2434 |
labelImage: (ResourceRetriever UIPainter iconDistributeV 'Distribute Vertical') |
1862 | 2435 |
) |
2436 |
) |
|
2437 |
nil |
|
2438 |
nil |
|
446 | 2439 |
) |
2440 |
! |
|
2441 |
||
2442 |
menuEdit |
|
743 | 2443 |
"This resource specification was automatically generated |
2444 |
by the MenuEditor of ST/X." |
|
2445 |
||
755 | 2446 |
"Do not manually edit this!! If it is corrupted, |
743 | 2447 |
the MenuEditor may not be able to read the specification." |
446 | 2448 |
|
3032 | 2449 |
|
446 | 2450 |
" |
2451 |
MenuEditor new openOnClass:UIPainter andSelector:#menuEdit |
|
2452 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp |
|
2453 |
" |
|
2454 |
||
2455 |
<resource: #menu> |
|
2456 |
||
1827 | 2457 |
^ |
2458 |
#(Menu |
|
2459 |
( |
|
2460 |
(MenuItem |
|
2461 |
activeHelpKey: editUndo |
|
2462 |
enabled: hasUndoHistory |
|
2463 |
label: 'Undo' |
|
2464 |
itemValue: undoLast |
|
2465 |
nameKey: undo |
|
2466 |
) |
|
2467 |
(MenuItem |
|
2468 |
label: '-' |
|
2469 |
) |
|
2470 |
(MenuItem |
|
2471 |
activeHelpKey: editCut |
|
1991 | 2472 |
enabled: canCutHolder |
1827 | 2473 |
label: 'Cut' |
2474 |
itemValue: deleteSelection |
|
2475 |
) |
|
2476 |
(MenuItem |
|
2477 |
activeHelpKey: editCopy |
|
1991 | 2478 |
enabled: canCopyHolder |
1827 | 2479 |
label: 'Copy' |
2480 |
itemValue: copySelection |
|
2481 |
) |
|
2482 |
(MenuItem |
|
2319 | 2483 |
activeHelpKey: editPaste |
1991 | 2484 |
enabled: canPasteHolder |
1827 | 2485 |
label: 'Paste' |
2486 |
itemValue: pasteBuffer |
|
2487 |
) |
|
2488 |
(MenuItem |
|
2489 |
activeHelpKey: pasteWithLayout |
|
1991 | 2490 |
enabled: canPasteKeepingLayoutHolder |
2425 | 2491 |
label: 'Paste with Layout' |
2370 | 2492 |
itemValue: pasteWithLayout |
1827 | 2493 |
) |
2494 |
(MenuItem |
|
2495 |
activeHelpKey: editPaste |
|
1991 | 2496 |
enabled: canPasteKeepingLayoutHolder |
1827 | 2497 |
label: 'Paste Keeping Absolute Position' |
2498 |
itemValue: pasteKeepingPosition |
|
2499 |
) |
|
2500 |
(MenuItem |
|
1940 | 2501 |
activeHelpKey: editDelete |
1991 | 2502 |
enabled: canCutHolder |
1940 | 2503 |
label: 'Delete' |
2504 |
itemValue: deleteTotalSelection |
|
2505 |
) |
|
2506 |
(MenuItem |
|
2319 | 2507 |
activeHelpKey: replaceBy |
2023 | 2508 |
enabled: canReplaceSelection |
2426 | 2509 |
label: 'Replace By...' |
2023 | 2510 |
itemValue: doAskAndReplaceWidgetBy |
1940 | 2511 |
) |
2512 |
(MenuItem |
|
3054 | 2513 |
activeHelpKey: wrapInto |
3063 | 2514 |
enabled: canWrapSelection |
3054 | 2515 |
label: 'Wrap Into...' |
2516 |
itemValue: doAskAndWrapWidgetInto |
|
2517 |
) |
|
2518 |
(MenuItem |
|
1827 | 2519 |
label: '-' |
2520 |
) |
|
2521 |
(MenuItem |
|
2522 |
enabled: canMoveSelection |
|
2523 |
label: 'Move' |
|
2524 |
submenuChannel: menuMove |
|
2525 |
) |
|
2526 |
(MenuItem |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2527 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2528 |
label: 'Align' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2529 |
submenuChannel: menuAlign |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2530 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2531 |
(MenuItem |
1827 | 2532 |
enabled: hasSelection |
2533 |
label: 'Dimension' |
|
2534 |
submenu: |
|
2535 |
(Menu |
|
2536 |
( |
|
2537 |
(MenuItem |
|
2538 |
activeHelpKey: editDimensionCopyLayout |
|
2539 |
enabled: hasSingleSelection |
|
2540 |
label: 'Copy Layout' |
|
2541 |
itemValue: copyLayout |
|
2542 |
) |
|
2543 |
(MenuItem |
|
2544 |
activeHelpKey: editDimensionPasteLayout |
|
2545 |
enabled: canMoveOrAlignSelection |
|
2546 |
label: 'Paste Layout' |
|
2547 |
itemValue: pasteLayout |
|
2548 |
) |
|
2549 |
(MenuItem |
|
2550 |
activeHelpKey: editDimensionExchangeLayouts |
|
2551 |
enabled: canExchangeSelectionLayouts |
|
2552 |
label: 'Exchange Layouts' |
|
2553 |
itemValue: exchangeLayouts |
|
2554 |
) |
|
2555 |
(MenuItem |
|
2556 |
label: '-' |
|
2557 |
) |
|
2558 |
(MenuItem |
|
2559 |
activeHelpKey: editDimensionCopyExtent |
|
2560 |
enabled: hasSingleSelection |
|
2561 |
label: 'Copy Extent' |
|
2562 |
itemValue: copyExtent |
|
2563 |
) |
|
2564 |
(MenuItem |
|
2565 |
activeHelpKey: editDimensionPasteExtent |
|
2566 |
enabled: canMoveOrAlignSelection |
|
2567 |
label: 'Paste Extent' |
|
2568 |
itemValue: pasteExtent |
|
2569 |
) |
|
2570 |
(MenuItem |
|
2571 |
activeHelpKey: editDimensionPasteWidth |
|
2572 |
enabled: canMoveOrAlignSelection |
|
2573 |
label: 'Paste Width' |
|
2574 |
itemValue: pasteWidth |
|
2575 |
) |
|
2576 |
(MenuItem |
|
2577 |
activeHelpKey: editDimensionPasteHeight |
|
2578 |
enabled: canMoveOrAlignSelection |
|
2579 |
label: 'Paste Height' |
|
2580 |
itemValue: pasteHeight |
|
2581 |
) |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2582 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2583 |
label: '-' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2584 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2585 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2586 |
activeHelpKey: editDimensionDefaultExtent |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2587 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2588 |
label: 'Set Default Extent' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2589 |
itemValue: setToDefaultExtent |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2590 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2591 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2592 |
activeHelpKey: editDimensionDefaultWidth |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2593 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2594 |
label: 'Set Default Width' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2595 |
itemValue: setToDefaultWidth |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2596 |
) |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2597 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2598 |
activeHelpKey: editDimensionDefaultHeight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2599 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2600 |
label: 'Set Default Height' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2601 |
itemValue: setToDefaultHeight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
2602 |
) |
1827 | 2603 |
) |
2604 |
nil |
|
2605 |
nil |
|
1230
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
2606 |
) |
1827 | 2607 |
) |
2608 |
(MenuItem |
|
2609 |
label: '-' |
|
2610 |
) |
|
2611 |
(MenuItem |
|
2612 |
activeHelpKey: editOpenSpecDocumentation |
|
2613 |
label: 'Open Widget Documentation' |
|
2614 |
itemValue: doOpenWidgetDocumentation |
|
3361 | 2615 |
enabled: hasOneSelectionOtherThanCanvas |
1827 | 2616 |
) |
2617 |
(MenuItem |
|
3032 | 2618 |
activeHelpKey: referToConfigDatabase |
1827 | 2619 |
label: 'Refer to Config Database' |
2620 |
itemValue: configSelection |
|
2621 |
isVisible: false |
|
2622 |
) |
|
2623 |
(MenuItem |
|
2624 |
label: '-' |
|
2625 |
isVisible: false |
|
2626 |
) |
|
2627 |
(MenuItem |
|
2628 |
activeHelpKey: drawEdit |
|
2629 |
label: 'Draw Edit' |
|
2630 |
itemValue: shapeEdit |
|
2631 |
isVisible: false |
|
2632 |
) |
|
2633 |
(MenuItem |
|
2634 |
label: '-' |
|
2635 |
) |
|
2636 |
(MenuItem |
|
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2637 |
activeHelpKey: sortItems |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2638 |
label: 'Sort Selected Items by Position' |
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2639 |
itemValue: doSortItems |
3361 | 2640 |
enabled: hasMultipleSelectionOtherThanCanvas |
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2641 |
) |
1827 | 2642 |
(MenuItem |
2643 |
activeHelpKey: groupWithLayout |
|
2393 | 2644 |
enabled: canGroup |
1827 | 2645 |
label: 'Group with Layout' |
2646 |
itemValue: groupWithLayout |
|
2647 |
) |
|
2648 |
(MenuItem |
|
2649 |
activeHelpKey: ungroup |
|
2393 | 2650 |
enabled: canUngroup |
1827 | 2651 |
label: 'Ungroup' |
2652 |
itemValue: ungroup |
|
2653 |
) |
|
2654 |
(MenuItem |
|
2655 |
activeHelpKey: ungroupWithLayout |
|
3361 | 2656 |
enabled: canUngroup |
1827 | 2657 |
label: 'Ungroup with Layout' |
2658 |
itemValue: ungroupWithLayout |
|
2659 |
) |
|
2660 |
(MenuItem |
|
2661 |
label: '-' |
|
2662 |
) |
|
2663 |
(MenuItem |
|
2664 |
activeHelpKey: editBrowseViewClass |
|
2665 |
enabled: hasOneSelectionOtherThanCanvas |
|
2666 |
label: 'Browse Widget Class' |
|
2667 |
itemValue: doBrowseViewClass |
|
2668 |
) |
|
2669 |
(MenuItem |
|
2670 |
activeHelpKey: editInspectView |
|
2671 |
enabled: hasOneSelectionOtherThanCanvas |
|
2672 |
label: 'Inspect Widget' |
|
2673 |
itemValue: doInspectView |
|
2674 |
) |
|
2675 |
(MenuItem |
|
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2676 |
activeHelpKey: editBrowseViewClass |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2677 |
label: 'Browse Specification Class' |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2678 |
itemValue: doBrowseSpecificationClass |
3361 | 2679 |
enabled: hasOneSelectionOtherThanCanvas |
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2680 |
) |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
2681 |
(MenuItem |
1827 | 2682 |
activeHelpKey: editInspectSpec |
2683 |
label: 'Inspect Spec' |
|
2684 |
itemValue: doInspectSpec |
|
3361 | 2685 |
enabled: hasOneSelectionOtherThanCanvas |
3032 | 2686 |
) |
2687 |
(MenuItem |
|
2688 |
label: '-' |
|
2689 |
) |
|
2690 |
(MenuItem |
|
2691 |
activeHelpKey: editSaveSpecForSelection |
|
2692 |
enabled: hasOneSelectionOtherThanCanvas |
|
2693 |
label: 'Save Spec of Selection...' |
|
2694 |
itemValue: doSaveElementSpecAs |
|
1827 | 2695 |
) |
2696 |
) |
|
2697 |
nil |
|
2698 |
nil |
|
498 | 2699 |
) |
2700 |
! |
|
2701 |
||
2277
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2702 |
menuFile |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2703 |
"This resource specification was automatically generated |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2704 |
by the MenuEditor of ST/X." |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2705 |
|
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2706 |
"Do not manually edit this!! If it is corrupted, |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2707 |
the MenuEditor may not be able to read the specification." |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2708 |
|
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2709 |
" |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2710 |
MenuEditor new openOnClass:UIPainter andSelector:#menuFile |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2711 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuFile)) startUp |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2712 |
" |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2713 |
|
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2714 |
<resource: #menu> |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2715 |
|
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2716 |
^ |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2717 |
#(Menu |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2718 |
( |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2719 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2720 |
activeHelpKey: fileNew |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2721 |
label: 'New' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2722 |
itemValue: doNew |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2723 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2724 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2725 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2726 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2727 |
label: '-' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2728 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2729 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2730 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2731 |
activeHelpKey: fileLoad |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2732 |
label: 'Load...' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2733 |
itemValue: doLoad |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2734 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2735 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2736 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2737 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2738 |
activeHelpKey: fileLoadSubspec |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2739 |
label: 'Load Subspec...' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2740 |
itemValue: doLoadSubspec |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2741 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2742 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2743 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2744 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2745 |
label: '-' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2746 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2747 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2748 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2749 |
activeHelpKey: fileSave |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2750 |
label: 'Save' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2751 |
itemValue: doSave |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2752 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2753 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2754 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2755 |
activeHelpKey: fileSaveAs |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2756 |
label: 'Save As...' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2757 |
itemValue: doSaveAs |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2758 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2759 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2760 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2761 |
label: '-' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2762 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2763 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2764 |
activeHelpKey: fileSaveAs |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2765 |
label: 'Define Class and Selector...' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2766 |
itemValue: doDefineClassAndSelector |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2767 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2768 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2769 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2770 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2771 |
activeHelpKey: filePickAnInterface |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2772 |
label: 'Pick a Window Spec...' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2773 |
itemValue: doPickAView |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2774 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2775 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2776 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2777 |
label: '-' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2778 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2779 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2780 |
label: 'Launch' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2781 |
itemValue: doStartApplication |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2782 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2783 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2784 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2785 |
enabled: canInstallAsWebPageHolder |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2786 |
label: 'Install as WebPage' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2787 |
itemValue: doInstallAsWebPage |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2788 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2789 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2790 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2791 |
label: '-' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2792 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2793 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2794 |
activeHelpKey: fileShowWindowSpec |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2795 |
label: 'Show Window Spec' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2796 |
itemValue: doWindowSpec |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2797 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2798 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2799 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2800 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2801 |
activeHelpKey: fileBrowseClass |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2802 |
enabled: hasSpecClass |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2803 |
label: 'Browse Applications Class' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2804 |
itemValue: doBrowseClass |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2805 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2806 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2807 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2808 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2809 |
activeHelpKey: fileBrowseAspectMethods |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2810 |
enabled: hasSpecClass |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2811 |
label: 'Browse Applications Aspect Methods' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2812 |
itemValue: doBrowseAspectMethods |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2813 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2814 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2815 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2816 |
label: '-' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2817 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2818 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2819 |
(MenuItem |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2820 |
activeHelpKey: fileExit |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2821 |
label: 'Exit' |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2822 |
itemValue: closeRequest |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2823 |
translateLabel: true |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2824 |
isVisible: isStandAlone |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2825 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2826 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2827 |
nil |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2828 |
nil |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2829 |
) |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2830 |
! |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
2831 |
|
498 | 2832 |
menuMove |
743 | 2833 |
"This resource specification was automatically generated |
2834 |
by the MenuEditor of ST/X." |
|
2835 |
||
755 | 2836 |
"Do not manually edit this!! If it is corrupted, |
743 | 2837 |
the MenuEditor may not be able to read the specification." |
498 | 2838 |
|
2839 |
" |
|
2840 |
MenuEditor new openOnClass:UIPainter andSelector:#menuMove |
|
2841 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuMove)) startUp |
|
2842 |
" |
|
2843 |
||
2844 |
<resource: #menu> |
|
2845 |
||
2846 |
^ |
|
2847 |
||
2848 |
#(#Menu |
|
2849 |
||
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2850 |
#( |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2851 |
#(#MenuItem |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2852 |
#label: 'Up' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2853 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2854 |
#value: #doStepUp |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2855 |
#activeHelpKey: #moveWidgetUp |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2856 |
#enabled: #canChangeOrderInContainer |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2857 |
#labelImage: #(#ResourceRetriever #Icon #upIcon 'Up') |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2858 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2859 |
#(#MenuItem |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2860 |
#label: 'Down' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2861 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2862 |
#value: #doStepDown |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2863 |
#activeHelpKey: #moveWidgetDown |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2864 |
#enabled: #canChangeOrderInContainer |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2865 |
#labelImage: #(#ResourceRetriever #Icon #downIcon 'Down') |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2866 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2867 |
#(#MenuItem |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2868 |
#label: 'Into' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2869 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2870 |
#value: #doStepIn |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2871 |
#activeHelpKey: #moveWidgetInto |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2872 |
#enabled: #canMoveSelectionIntoContainer |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2873 |
#labelImage: #(#ResourceRetriever #Icon #downRightIcon 'Into') |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2874 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2875 |
#(#MenuItem |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2876 |
#label: 'Out' |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2877 |
#translateLabel: true |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2878 |
#value: #doStepOut |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2879 |
#activeHelpKey: #moveWidgetOut |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2880 |
#enabled: #canMoveSelectionOutOfContainer |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2881 |
#labelImage: #(#ResourceRetriever #Icon #leftDownIcon 'Out') |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2882 |
) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2883 |
) nil |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
2884 |
nil |
446 | 2885 |
) |
2886 |
! |
|
2887 |
||
1940 | 2888 |
menuReplaceWidget |
2889 |
"This resource specification was automatically generated |
|
2890 |
by the MenuEditor of ST/X." |
|
2891 |
||
2892 |
"Do not manually edit this!! If it is corrupted, |
|
2893 |
the MenuEditor may not be able to read the specification." |
|
2894 |
||
2895 |
" |
|
2896 |
MenuEditor new openOnClass:UIPainter andSelector:#menuReplaceWidget |
|
2897 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuReplaceWidget)) startUp |
|
2898 |
" |
|
2899 |
||
2900 |
<resource: #menu> |
|
2901 |
||
2902 |
^ |
|
2903 |
#(Menu |
|
2904 |
( |
|
2905 |
(MenuItem |
|
2319 | 2906 |
activeHelpKey: replaceBy |
1940 | 2907 |
enabled: canChangeOrderInContainer |
2426 | 2908 |
label: 'Replace By...' |
1940 | 2909 |
itemValue: doAskAndReplaceWidgetBy |
2910 |
translateLabel: true |
|
2911 |
) |
|
2912 |
) |
|
2913 |
nil |
|
2914 |
nil |
|
2915 |
) |
|
2916 |
! |
|
2917 |
||
446 | 2918 |
menuToolbar |
743 | 2919 |
"This resource specification was automatically generated |
2920 |
by the MenuEditor of ST/X." |
|
2921 |
||
778 | 2922 |
"Do not manually edit this!! If it is corrupted, |
743 | 2923 |
the MenuEditor may not be able to read the specification." |
446 | 2924 |
|
2925 |
" |
|
2926 |
MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar |
|
2927 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp |
|
2928 |
" |
|
2929 |
||
2930 |
<resource: #menu> |
|
2931 |
||
1690 | 2932 |
^ |
1750 | 2933 |
#(Menu |
2934 |
( |
|
2935 |
(MenuItem |
|
2936 |
activeHelpKey: testStartApplication |
|
2937 |
label: 'Start' |
|
2938 |
itemValue: doStartApplication |
|
2939 |
translateLabel: true |
|
2940 |
isButton: true |
|
2941 |
labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon) |
|
1690 | 2942 |
) |
1750 | 2943 |
(MenuItem |
2243 | 2944 |
enabled: canInstallAsWebPageHolder |
2945 |
label: 'Install as WebPage' |
|
2946 |
itemValue: doInstallAsWebPage |
|
2947 |
translateLabel: true |
|
2948 |
isButton: true |
|
2949 |
isVisible: installAsWebPageVisible |
|
2950 |
labelImage: (ResourceRetriever XPToolbarIconLibrary installAsWebPage24x24Icon) |
|
2951 |
) |
|
2952 |
(MenuItem |
|
1917 | 2953 |
label: '-' |
1690 | 2954 |
) |
1750 | 2955 |
(MenuItem |
2956 |
activeHelpKey: fileNew |
|
2957 |
label: 'New' |
|
2958 |
itemValue: doNew |
|
2959 |
translateLabel: true |
|
2960 |
isButton: true |
|
2023 | 2961 |
isVisible: isStandAlone |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
2962 |
labelImage: (ResourceRetriever ToolbarIconLibrary newWindowSpecIcon) |
1690 | 2963 |
) |
1750 | 2964 |
(MenuItem |
1950 | 2965 |
label: '-' |
2023 | 2966 |
isVisible: isStandAlone |
1950 | 2967 |
) |
2968 |
(MenuItem |
|
1750 | 2969 |
activeHelpKey: fileLoad |
2970 |
label: 'Load' |
|
2971 |
itemValue: doLoad |
|
2972 |
translateLabel: true |
|
2973 |
isButton: true |
|
2023 | 2974 |
isVisible: isStandAlone |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
2975 |
labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon) |
1690 | 2976 |
) |
1750 | 2977 |
(MenuItem |
2978 |
activeHelpKey: fileSave |
|
2979 |
label: 'Save' |
|
2980 |
itemValue: doSave |
|
2981 |
translateLabel: true |
|
2982 |
isButton: true |
|
1883 | 2983 |
labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) |
1690 | 2984 |
) |
1750 | 2985 |
(MenuItem |
1917 | 2986 |
label: '-' |
2987 |
) |
|
2988 |
(MenuItem |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2989 |
label: 'CutCopyPaste' |
1750 | 2990 |
translateLabel: true |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2991 |
submenuChannel: cutCopyPasteMenuSlice |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
2992 |
isMenuSlice: true |
1690 | 2993 |
) |
1750 | 2994 |
(MenuItem |
1917 | 2995 |
label: '-' |
1820 | 2996 |
startGroup: right |
1690 | 2997 |
) |
1750 | 2998 |
(MenuItem |
2999 |
activeHelpKey: settingsCanvas |
|
3000 |
label: 'Canvas' |
|
3001 |
translateLabel: true |
|
3002 |
indication: painterShown |
|
1690 | 3003 |
) |
1750 | 3004 |
(MenuItem |
3005 |
activeHelpKey: settingsGallery |
|
3006 |
label: 'Gallery' |
|
3007 |
translateLabel: true |
|
3008 |
indication: galleryShown |
|
1690 | 3009 |
) |
3010 |
) |
|
3011 |
nil |
|
3012 |
nil |
|
713 | 3013 |
) |
3014 |
! |
|
3015 |
||
3016 |
menuToolbar2 |
|
743 | 3017 |
"This resource specification was automatically generated |
3018 |
by the MenuEditor of ST/X." |
|
3019 |
||
778 | 3020 |
"Do not manually edit this!! If it is corrupted, |
743 | 3021 |
the MenuEditor may not be able to read the specification." |
713 | 3022 |
|
3218 | 3023 |
|
713 | 3024 |
" |
3025 |
MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar2 |
|
3026 |
(Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar2)) startUp |
|
3027 |
" |
|
3028 |
||
3029 |
<resource: #menu> |
|
3030 |
||
1565 | 3031 |
^ |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3032 |
#(Menu |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3033 |
( |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3034 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3035 |
activeHelpKey: alignSelectionLeft |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3036 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3037 |
label: 'Align Left' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3038 |
itemValue: alignSelectionLeft |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3039 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3040 |
labelImage: (ResourceRetriever nil iconAlignL) |
1565 | 3041 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3042 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3043 |
activeHelpKey: alignSelectionRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3044 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3045 |
label: 'Align Right' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3046 |
itemValue: alignSelectionRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3047 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3048 |
labelImage: (ResourceRetriever nil iconAlignR) |
1565 | 3049 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3050 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3051 |
activeHelpKey: alignSelectionTop |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3052 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3053 |
label: 'Align Top' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3054 |
itemValue: alignSelectionTop |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3055 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3056 |
labelImage: (ResourceRetriever nil iconAlignT) |
1565 | 3057 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3058 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3059 |
activeHelpKey: alignSelectionBottom |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3060 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3061 |
label: 'Align Bottom' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3062 |
itemValue: alignSelectionBottom |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3063 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3064 |
labelImage: (ResourceRetriever nil iconAlignB) |
1565 | 3065 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3066 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3067 |
activeHelpKey: alignSelectionLeftAndRight |
2479
fda2e68c7cad
UIPainter can now resize subviews of PanelViews
Stefan Vogel <sv@exept.de>
parents:
2477
diff
changeset
|
3068 |
enabled: canResizeSelection |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3069 |
label: 'Align Left & Right' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3070 |
itemValue: alignSelectionLeftAndRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3071 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3072 |
labelImage: (ResourceRetriever nil iconResizeLR) |
1565 | 3073 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3074 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3075 |
activeHelpKey: alignSelectionTopAndBottom |
2479
fda2e68c7cad
UIPainter can now resize subviews of PanelViews
Stefan Vogel <sv@exept.de>
parents:
2477
diff
changeset
|
3076 |
enabled: canResizeSelection |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3077 |
label: 'Align Top & Bottom' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3078 |
itemValue: alignSelectionTopAndBottom |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3079 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3080 |
labelImage: (ResourceRetriever nil iconResizeTB) |
1565 | 3081 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3082 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3083 |
label: '' |
1565 | 3084 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3085 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3086 |
activeHelpKey: changePositionLeft |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3087 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3088 |
label: 'Move Left' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3089 |
itemValue: moveSelectionLeft |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3090 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3091 |
hideMenuOnActivated: false |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3092 |
triggerOnDown: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3093 |
labelImage: (ResourceRetriever nil arrowLeft) |
1565 | 3094 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3095 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3096 |
activeHelpKey: changePositionRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3097 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3098 |
label: 'Move Right' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3099 |
itemValue: moveSelectionRight |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3100 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3101 |
hideMenuOnActivated: false |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3102 |
triggerOnDown: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3103 |
labelImage: (ResourceRetriever nil arrowRight) |
1565 | 3104 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3105 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3106 |
activeHelpKey: changePositionUp |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3107 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3108 |
label: 'Move Up' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3109 |
itemValue: moveSelectionUp |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3110 |
isButton: true |
2848 | 3111 |
hideMenuOnActivated: false |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3112 |
triggerOnDown: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3113 |
labelImage: (ResourceRetriever nil arrowUp) |
1565 | 3114 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3115 |
(MenuItem |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3116 |
activeHelpKey: changePositionDown |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3117 |
enabled: canMoveOrAlignSelection |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3118 |
label: 'Move Down' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3119 |
itemValue: moveSelectionDown |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3120 |
isButton: true |
2848 | 3121 |
hideMenuOnActivated: false |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3122 |
triggerOnDown: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3123 |
labelImage: (ResourceRetriever nil arrowDown) |
1565 | 3124 |
) |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3125 |
(MenuItem |
3218 | 3126 |
activeHelpKey: changeMoveDelta |
3127 |
label: 'Move by' |
|
3128 |
nameKey: MoveByMenu |
|
3129 |
isButton: true |
|
3130 |
submenu: |
|
3131 |
(Menu |
|
3132 |
( |
|
3133 |
(MenuItem |
|
3134 |
label: '1' |
|
3135 |
itemValue: setMoveByStep: |
|
3136 |
argument: 1 |
|
3137 |
) |
|
3138 |
(MenuItem |
|
3139 |
label: '5' |
|
3140 |
itemValue: setMoveByStep: |
|
3141 |
argument: 5 |
|
3142 |
) |
|
3143 |
(MenuItem |
|
3144 |
label: '10' |
|
3145 |
itemValue: setMoveByStep: |
|
3146 |
argument: 10 |
|
3147 |
) |
|
3148 |
(MenuItem |
|
3149 |
label: '24' |
|
3150 |
itemValue: setMoveByStep: |
|
3151 |
argument: 24 |
|
3152 |
) |
|
3153 |
(MenuItem |
|
3154 |
label: '30' |
|
3155 |
itemValue: setMoveByStep: |
|
3156 |
argument: 30 |
|
3157 |
) |
|
3158 |
(MenuItem |
|
3159 |
label: '100' |
|
3160 |
itemValue: setMoveByStep: |
|
3161 |
argument: 100 |
|
3162 |
) |
|
3163 |
(MenuItem |
|
3164 |
label: '-' |
|
3165 |
) |
|
3166 |
(MenuItem |
|
3167 |
label: 'Enter Value...' |
|
3168 |
itemValue: askForMoveByStep |
|
3169 |
) |
|
3170 |
) |
|
3171 |
nil |
|
3172 |
nil |
|
3173 |
) |
|
3174 |
labelImage: (ResourceRetriever UIPainter delta) |
|
3175 |
) |
|
3176 |
(MenuItem |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3177 |
activeHelpKey: editOpenSpecDocumentation |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3178 |
label: 'Widget Documentation' |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3179 |
itemValue: doOpenWidgetDocumentation |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3180 |
isButton: true |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3181 |
startGroup: right |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3182 |
labelImage: (ResourceRetriever Icon helpIcon) |
1565 | 3183 |
) |
3184 |
) |
|
3185 |
nil |
|
3186 |
nil |
|
217 | 3187 |
) |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3188 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3189 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3190 |
moveInListMenuSlice |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3191 |
"This resource specification was automatically generated |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3192 |
by the MenuEditor of ST/X." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3193 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3194 |
"Do not manually edit this!! If it is corrupted, |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3195 |
the MenuEditor may not be able to read the specification." |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3196 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3197 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3198 |
MenuEditor new openOnClass:UIPainter andSelector:#editToolbar |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3199 |
(Menu new fromLiteralArrayEncoding:(UIPainter editToolbar)) startUp |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3200 |
" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3201 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3202 |
<resource: #menu> |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3203 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3204 |
^ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3205 |
#(Menu |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3206 |
( |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3207 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3208 |
activeHelpKey: moveWidgetUp |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3209 |
enabled: canChangeOrderInContainer |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3210 |
label: 'Move Up' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3211 |
itemValue: doStepUp |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3212 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3213 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3214 |
labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetUpIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3215 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3216 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3217 |
activeHelpKey: moveWidgetDown |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3218 |
enabled: canChangeOrderInContainer |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3219 |
label: 'Move Down' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3220 |
itemValue: doStepDown |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3221 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3222 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3223 |
labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetDownIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3224 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3225 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3226 |
activeHelpKey: moveWidgetInto |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3227 |
enabled: canMoveSelectionIntoContainer |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3228 |
label: 'Move Into' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3229 |
itemValue: doStepIn |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3230 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3231 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3232 |
labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetDownRightIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3233 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3234 |
(MenuItem |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3235 |
activeHelpKey: moveWidgetOut |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3236 |
enabled: canMoveSelectionOutOfContainer |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3237 |
label: 'Move Out' |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3238 |
itemValue: doStepOut |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3239 |
translateLabel: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3240 |
isButton: true |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3241 |
labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetLeftDownIcon) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3242 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3243 |
) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3244 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3245 |
nil |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3246 |
) |
446 | 3247 |
! ! |
3248 |
||
3111 | 3249 |
!UIPainter class methodsFor:'private class access'! |
3250 |
||
3251 |
applicationClassQuery |
|
3252 |
^ ApplicationClassQuery |
|
3253 |
! ! |
|
3254 |
||
60 | 3255 |
!UIPainter methodsFor:'aspects'! |
3256 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3257 |
alignToGridHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3258 |
|holder| |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3259 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3260 |
(holder := builder bindingAt:#alignToGridHolder) isNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3261 |
holder := (self class settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3262 |
builder aspectAt:#alignToGridHolder put: holder. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3263 |
holder addDependent:self. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3264 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3265 |
^ holder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3266 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3267 |
|
724 | 3268 |
aspectFor:aKey |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3269 |
"returns the aspect for aKey or nil" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3270 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3271 |
^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ] |
724 | 3272 |
! |
3273 |
||
565 | 3274 |
canChangeOrderInContainer |
765 | 3275 |
"returns a boolean value holder which is true if the widget order can be changed |
3276 |
within their container" |
|
3277 |
||
565 | 3278 |
^ builder booleanValueAspectFor:#canChangeOrderInContainer |
3279 |
! |
|
3280 |
||
1230
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3281 |
canExchangeSelectionLayouts |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3282 |
"returns a boolean value holder which is true in case that the selection |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3283 |
consists of exactly 2 components |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3284 |
and all widgets in the selection can change its layout through to a move or |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3285 |
align operation" |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3286 |
|
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3287 |
^ builder booleanValueAspectFor:#canExchangeSelectionLayouts |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3288 |
! |
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3289 |
|
2243 | 3290 |
canInstallAsWebPage |
3060 | 3291 |
^ specClass notNil |
3292 |
and:[ specClass isSubclassOf:WebApplicationModel ] |
|
2243 | 3293 |
|
3294 |
"Created: / 14-01-2008 / 17:34:56 / cg" |
|
3295 |
! |
|
3296 |
||
3297 |
canInstallAsWebPageHolder |
|
3060 | 3298 |
^ builder |
3061 | 3299 |
valueAspectFor:#canInstallAsWebPageHolder |
3060 | 3300 |
initialValue:(self canInstallAsWebPage). |
2243 | 3301 |
|
3302 |
"Created: / 14-01-2008 / 17:36:04 / cg" |
|
3303 |
! |
|
3304 |
||
282 | 3305 |
canMoveOrAlignSelection |
3306 |
"returns a boolean value holder which is true in case that any selection exists |
|
2552 | 3307 |
and all widgets in the selection can change their layout through to a move or |
765 | 3308 |
align operation" |
3309 |
||
282 | 3310 |
^ builder booleanValueAspectFor:#canMoveOrAlignSelection |
222 | 3311 |
! |
3312 |
||
755 | 3313 |
canMoveSelection |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3314 |
"true if move-in/move-out/move-up and down are enabled" |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3315 |
|
3361 | 3316 |
treeView hasOneSelectionOtherThanCanvas ifFalse:[^ false]. |
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3317 |
^ self canChangeOrderInContainer value |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3318 |
or: [ self canMoveSelectionOutOfContainer value |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
3319 |
or: [ self canMoveSelectionIntoContainer value ]] |
755 | 3320 |
! |
3321 |
||
282 | 3322 |
canMoveSelectionIntoContainer |
2552 | 3323 |
"returns true in case that at least one widget is selected and can change its container |
2280
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
3324 |
widget to an element below" |
765 | 3325 |
|
282 | 3326 |
^ builder booleanValueAspectFor:#canMoveSelectionIntoContainer |
3327 |
! |
|
3328 |
||
3329 |
canMoveSelectionOutOfContainer |
|
2552 | 3330 |
"returns a boolean value holder which is true in case that at least one widget is selected |
765 | 3331 |
which is contained within another component" |
3332 |
||
282 | 3333 |
^ builder booleanValueAspectFor:#canMoveSelectionOutOfContainer |
222 | 3334 |
! |
3335 |
||
2313 | 3336 |
canPasteHolder |
1991 | 3337 |
|
3338 |
|holder| |
|
2313 | 3339 |
(holder := builder bindingAt:#canPasteHolder) isNil ifTrue:[ |
3340 |
holder := [ self canPaste ]. |
|
1991 | 3341 |
]. |
3342 |
^ holder |
|
3343 |
! |
|
3344 |
||
2313 | 3345 |
canPasteKeepingLayoutHolder |
3346 |
^ self canPasteHolder |
|
3347 |
! |
|
3348 |
||
1940 | 3349 |
canReplaceSelection |
3361 | 3350 |
treeView hasOneSelectionOtherThanCanvas ifFalse:[^ false]. |
1940 | 3351 |
^ true |
3352 |
! |
|
3353 |
||
2552 | 3354 |
canResizeSelection |
3355 |
"returns a boolean value holder which is true in case that any selection exists |
|
3356 |
and all widgets in the selection can be resized" |
|
3357 |
||
3358 |
^ builder booleanValueAspectFor:#canResizeSelection |
|
3359 |
! |
|
3360 |
||
3054 | 3361 |
canWrapSelection |
3361 | 3362 |
treeView hasOneSelectionOtherThanCanvas ifFalse:[^ false]. |
3054 | 3363 |
^ true |
3364 |
! |
|
3365 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3366 |
editToolBarVisibleHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3367 |
|holder| |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3368 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3369 |
(holder := builder bindingAt:#editToolBarVisibleHolder) isNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3370 |
holder := self class defaultEditToolbarVisible asValue. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3371 |
builder aspectAt:#editToolBarVisibleHolder put: holder. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3372 |
holder addDependent:self. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3373 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3374 |
^ holder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3375 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3376 |
|
118 | 3377 |
enableChannel |
2012 | 3378 |
"true if modifications are allowed otherwise in test mode" |
3379 |
||
3380 |
^ builder valueAspectFor:#enableChannel initialValue:true |
|
3381 |
! |
|
3382 |
||
3383 |
enableChannel2 |
|
765 | 3384 |
"true if modifications are allowed otherwise running test" |
3385 |
||
3386 |
^ self painter enableChannel |
|
109 | 3387 |
! |
3388 |
||
173 | 3389 |
galleryShown |
765 | 3390 |
"returns a boolean value holder which is set to true if the gallery is shown" |
3391 |
||
173 | 3392 |
|holder| |
3393 |
||
3394 |
(holder := builder bindingAt:#galleryShown) isNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3395 |
builder aspectAt:#galleryShown put:(holder := true asValue). |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3396 |
holder addDependent:self |
173 | 3397 |
]. |
3398 |
^ holder |
|
3399 |
||
3400 |
! |
|
3401 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3402 |
gridShownHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3403 |
|holder| |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3404 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3405 |
(holder := builder bindingAt:#gridShownHolder) isNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3406 |
holder := (self class settings at: #GridShown ifAbsent: [painter gridShown]) asValue. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3407 |
builder aspectAt:#gridShownHolder put: holder. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3408 |
holder addDependent:self. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3409 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3410 |
^ holder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3411 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3412 |
|
3361 | 3413 |
hasMultipleSelectionOtherThanCanvas |
3414 |
"returns a value holder which is true in case that multiple widget other than the root are selected" |
|
3415 |
||
3416 |
^ builder booleanValueAspectFor:#hasMultipleSelectionOtherThanCanvas |
|
3417 |
! |
|
3418 |
||
282 | 3419 |
hasOneSelectionOtherThanCanvas |
765 | 3420 |
"returns a value holder which is true in case that one widget is selected |
3421 |
other than the root" |
|
3422 |
||
282 | 3423 |
^ builder booleanValueAspectFor:#hasOneSelectionOtherThanCanvas |
222 | 3424 |
! |
3425 |
||
3361 | 3426 |
hasSelectionOtherThanCanvas |
3427 |
"returns a value holder which is true in case that any widget other than the root is selected" |
|
3428 |
||
3429 |
^ builder booleanValueAspectFor:#hasSelectionOtherThanCanvas |
|
3430 |
! |
|
3431 |
||
1917 | 3432 |
hasUndoHistory |
3433 |
^ self painter hasUndoHistory |
|
3434 |
! |
|
3435 |
||
1954 | 3436 |
hasUndoHistoryHolder |
3437 |
^ self painter hasUndoHistoryHolder |
|
3438 |
! |
|
3439 |
||
2243 | 3440 |
installAsWebPageVisible |
3441 |
^ true |
|
3442 |
||
3443 |
"Created: / 14-01-2008 / 17:46:05 / cg" |
|
3444 |
! |
|
3445 |
||
109 | 3446 |
noteBookView |
765 | 3447 |
"returns the notebook view; initialize the tools embedded in the notebook" |
3448 |
||
2159 | 3449 |
|noteBook| |
109 | 3450 |
|
3451 |
(noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[ |
|
1316 | 3452 |
noteBook := View new. |
3453 |
builder aspectAt:#noteBookView put:noteBook. |
|
3454 |
||
2159 | 3455 |
layoutTool := self createToolApplication:UILayoutTool spec:#windowSpec in:noteBook. |
3456 |
helpTool := self createToolApplication:UIHelpTool spec:#innerSpec in:noteBook. |
|
3457 |
specTool := self createToolApplication:UISpecificationTool spec:#windowSpec in:noteBook. |
|
3458 |
||
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
3459 |
helpTool loadFromClass:specClass. |
109 | 3460 |
]. |
3461 |
^ noteBook |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
3462 |
|
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
3463 |
"Modified: / 31-08-2006 / 10:11:15 / cg" |
109 | 3464 |
! |
3465 |
||
282 | 3466 |
painterShown |
765 | 3467 |
"returns a boolean value holder which is set to true if the painter is shown" |
3468 |
||
173 | 3469 |
|holder| |
3470 |
||
3471 |
(holder := builder bindingAt:#painterShown) isNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3472 |
builder aspectAt:#painterShown put:(holder := true asValue). |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3473 |
holder addDependent:self |
173 | 3474 |
]. |
3475 |
^ holder |
|
3476 |
||
3477 |
! |
|
3478 |
||
109 | 3479 |
tabList |
765 | 3480 |
"returns a value holder which keeps a list of the section labels in the notebook" |
3481 |
||
1782 | 3482 |
|tabs holder| |
109 | 3483 |
|
3484 |
(holder := builder bindingAt:#tabList) isNil ifTrue:[ |
|
1782 | 3485 |
tabs := #(Basics Details Layout). |
3486 |
builder aspectAt:#tabList put:(holder := (resources array:tabs) asValue). |
|
109 | 3487 |
]. |
3488 |
^ holder |
|
3489 |
! |
|
3490 |
||
3491 |
tabModel |
|
765 | 3492 |
"returns a value holder which keeps the label of the current section in the notebook" |
3493 |
||
109 | 3494 |
|holder| |
3495 |
||
3496 |
(holder := builder bindingAt:#tabModel) isNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3497 |
holder := AspectAdaptor new subject:self; forAspect:#tabSelection. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3498 |
builder aspectAt:#tabModel put:holder. |
109 | 3499 |
]. |
3500 |
^ holder |
|
222 | 3501 |
! |
3502 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3503 |
toolBarVisibleHolder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3504 |
|holder| |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3505 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3506 |
(holder := builder bindingAt:#toolBarVisibleHolder) isNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3507 |
holder := self class defaultToolbarVisible asValue. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3508 |
builder aspectAt:#toolBarVisibleHolder put: holder. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3509 |
holder addDependent:self. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3510 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3511 |
^ holder |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3512 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3513 |
|
222 | 3514 |
treeView |
765 | 3515 |
"returns the tree view which holds all widget" |
3516 |
||
222 | 3517 |
^ treeView |
729 | 3518 |
! |
3519 |
||
3520 |
valueOfCanPasteWithKeepingLayout |
|
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
3521 |
<resource: #obsolete> |
1991 | 3522 |
self obsoleteMethodWarning:'stupid name - use #canPasteKeepingLayoutHolder'. |
3523 |
^ self canPasteKeepingLayoutHolder |
|
60 | 3524 |
! ! |
3525 |
||
587
dd545d089d95
Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents:
572
diff
changeset
|
3526 |
!UIPainter methodsFor:'building editors'! |
513 | 3527 |
|
2559 | 3528 |
XXopenDataSetColumnEditor |
765 | 3529 |
"opens a Table Column Editor on current widget" |
3530 |
||
2559 | 3531 |
|cls editor specTool columnHolder tableSelector columns isEditingSpecOnly| |
3532 |
||
3533 |
isEditingSpecOnly := self isEditingSpecOnly. |
|
3534 |
||
3535 |
isEditingSpecOnly ifFalse:[ |
|
2296
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3536 |
(cls := self resolveName:specClassName) isNil ifTrue:[ |
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3537 |
self askForSaving ifTrue:[cls := self resolveName:specClassName]. |
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3538 |
]. |
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3539 |
cls isNil ifTrue:[^ self]. |
1103
ecc91379704b
accept before opening an editor
Claus Gittinger <cg@exept.de>
parents:
1071
diff
changeset
|
3540 |
]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3541 |
|
2243 | 3542 |
self acceptOrIgnoreSectionModification. |
743 | 3543 |
|
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3544 |
editor := DataSetBuilder new. |
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3545 |
editor masterApplication:self. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3546 |
specTool := self specTool. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3547 |
|
2559 | 3548 |
isEditingSpecOnly ifFalse:[ |
2296
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3549 |
editor specClass: cls. |
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3550 |
editor rowClassName:(specTool specification rowClassName). |
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3551 |
]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3552 |
columnHolder := specTool aspectFor:#columnHolder. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3553 |
tableSelector := columnHolder value. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3554 |
|
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3555 |
tableSelector := tableSelector notEmptyOrNil |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3556 |
ifTrue:[tableSelector asSymbol] |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3557 |
ifFalse:[nil]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3558 |
|
2559 | 3559 |
(isEditingSpecOnly not |
2296
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3560 |
and:[tableSelector notNil |
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
3561 |
and:[cls class includesSelector:tableSelector]]) ifTrue:[ |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3562 |
editor openModalOnClass:cls andSelector:tableSelector |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3563 |
] ifFalse:[ |
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3564 |
editor editingSpecOnly:true. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3565 |
|
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3566 |
columns := specTool specification columns. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3567 |
columns size ~~ 0 ifTrue:[ |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3568 |
editor openModalOnResourceSpec:columns |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3569 |
] ifFalse:[ |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3570 |
editor openModal |
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3571 |
]. |
827
aa8f49da0f22
change mechanism for opening the dataset builder (step 3)
tz
parents:
824
diff
changeset
|
3572 |
]. |
aa8f49da0f22
change mechanism for opening the dataset builder (step 3)
tz
parents:
824
diff
changeset
|
3573 |
|
2559 | 3574 |
isEditingSpecOnly ifFalse:[ |
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3575 |
editor hasSaved ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3576 |
specTool specification |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3577 |
columns:nil; |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3578 |
rowClassName:(editor rowClassName). |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3579 |
|
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3580 |
tableSelector = editor specSelector ifFalse:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3581 |
columnHolder value:(editor specSelector). |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3582 |
self accept. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3583 |
]. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3584 |
^ self |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3585 |
]. |
827
aa8f49da0f22
change mechanism for opening the dataset builder (step 3)
tz
parents:
824
diff
changeset
|
3586 |
]. |
aa8f49da0f22
change mechanism for opening the dataset builder (step 3)
tz
parents:
824
diff
changeset
|
3587 |
|
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3588 |
tableSelector isNil ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3589 |
editor hasSaved ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3590 |
editor modified ifFalse:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3591 |
specTool specification |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3592 |
columns:(editor acceptedColumns); |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3593 |
rowClassName:(editor rowClassName). |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3594 |
self modifiedChannel value:true. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3595 |
]. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
3596 |
]. |
827
aa8f49da0f22
change mechanism for opening the dataset builder (step 3)
tz
parents:
824
diff
changeset
|
3597 |
]. |
2243 | 3598 |
|
3599 |
"Modified: / 12-01-2008 / 10:31:47 / cg" |
|
513 | 3600 |
! |
3601 |
||
2559 | 3602 |
openDataSetColumnEditor |
3603 |
"opens a Table Column Editor on current widget" |
|
3604 |
||
3605 |
|cls editor specTool columnHolder tableSelector columns isEditingSpecOnly| |
|
3606 |
||
3607 |
self isModified ifTrue:[ |
|
3608 |
"/ force editFields to accept |
|
3609 |
self acceptChannel value:true; value:false. |
|
3610 |
]. |
|
3611 |
||
3612 |
specTool := self specTool. |
|
3613 |
columnHolder := specTool aspectFor:#columnHolder. |
|
3614 |
tableSelector := columnHolder value. |
|
3615 |
||
3616 |
tableSelector notEmptyOrNil ifTrue:[ |
|
3617 |
tableSelector := tableSelector asSymbol. |
|
3618 |
] ifFalse:[ |
|
3619 |
tableSelector := nil. |
|
3620 |
]. |
|
3621 |
||
3622 |
isEditingSpecOnly := true. |
|
3623 |
||
3624 |
(tableSelector notNil and:[self isEditingSpecOnly not]) ifTrue:[ |
|
3625 |
(cls := self resolveName:specClassName) notNil ifTrue:[ |
|
3626 |
isEditingSpecOnly := false. |
|
3627 |
]. |
|
3628 |
]. |
|
3629 |
editor := DataSetBuilder new. |
|
3630 |
editor masterApplication:self. |
|
3631 |
||
3632 |
isEditingSpecOnly ifFalse:[ |
|
3633 |
editor specClass:cls. |
|
3634 |
editor rowClassName:(specTool specification rowClassName). |
|
3635 |
]. |
|
3636 |
||
2768 | 3637 |
isEditingSpecOnly ifFalse:[ |
2559 | 3638 |
editor openModalOnClass:cls andSelector:tableSelector. |
3639 |
||
3640 |
editor hasSaved ifTrue:[ |
|
3641 |
specTool specification |
|
3642 |
columns:nil; |
|
3643 |
rowClassName:(editor rowClassName). |
|
3644 |
||
3645 |
tableSelector = editor specSelector ifFalse:[ |
|
3646 |
columnHolder value:(editor specSelector). |
|
3647 |
self accept. |
|
3648 |
]. |
|
3649 |
]. |
|
3650 |
^ self |
|
3651 |
]. |
|
3652 |
||
3653 |
editor editingSpecOnly:true. |
|
3654 |
||
3655 |
columns := specTool specification columns. |
|
3656 |
||
3657 |
columns size ~~ 0 ifTrue:[ |
|
3658 |
editor openModalOnResourceSpec:columns |
|
3659 |
] ifFalse:[ |
|
3660 |
editor openModal |
|
3661 |
]. |
|
3662 |
||
3663 |
editor hasSaved ifTrue:[ |
|
3664 |
columnHolder value:nil. |
|
3665 |
||
3666 |
specTool specification |
|
3667 |
columns:(editor acceptedColumns); |
|
3668 |
rowClassName:(editor rowClassName). |
|
3669 |
||
3670 |
columnHolder value:nil. |
|
3671 |
self modifiedChannel value:true. |
|
3672 |
]. |
|
3673 |
! |
|
3674 |
||
513 | 3675 |
openEditMenu |
2967 | 3676 |
"opens a Menu Editor on current widget for the standard menu |
3677 |
(accessed via #menu or #menuSelector)" |
|
3678 |
||
3679 |
^ self |
|
3680 |
openEditMenuFor:#menu |
|
3681 |
and:#menuSelector |
|
3682 |
! |
|
3683 |
||
3684 |
openEditMenuFor:menuSelector and:menuSelectorSelector |
|
3685 |
"opens a Menu Editor on the current widget. |
|
3686 |
The arguments menuSelector (typically: #menu) |
|
3687 |
and menuSelectorSelector (typically: #menuSelector) can be passed in |
|
3688 |
for widgets with a secondary menu (with different selectors)" |
|
765 | 3689 |
|
2568
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3690 |
|cls selectorOrMenu editor selectedSpec windowSpec holder| |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3691 |
|
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3692 |
self isEditingSpecOnly ifFalse:[ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3693 |
"/ normal mode |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3694 |
(cls := self resolveName:specClassName) isNil ifTrue:[ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3695 |
self askForSaving ifTrue:[cls := self resolveName:specClassName]. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3696 |
]. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3697 |
cls isNil ifTrue:[^ self]. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3698 |
]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3699 |
|
2243 | 3700 |
self acceptOrIgnoreSectionModification. |
2568
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3701 |
windowSpec := self specTool specification. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3702 |
|
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3703 |
self isEditingSpecOnly ifTrue:[ |
2967 | 3704 |
selectorOrMenu := windowSpec perform:menuSelector |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3705 |
] ifFalse:[ |
2967 | 3706 |
(selectorOrMenu := (windowSpec perform:menuSelectorSelector)) notNil ifTrue:[ |
2568
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3707 |
selectorOrMenu := selectorOrMenu asSymbol |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3708 |
] ifFalse:[ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3709 |
"/ cg: q&d hack ... |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3710 |
selectorOrMenu := nil. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3711 |
|
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3712 |
(selectedSpec := treeView propertySelected) notNil ifTrue:[ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3713 |
Error handle:[:ex | |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3714 |
selectorOrMenu := nil. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3715 |
] do:[ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3716 |
selectorOrMenu := selectedSpec view asMenu. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3717 |
] |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3718 |
]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3719 |
]. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3720 |
]. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3721 |
|
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3722 |
editor := MenuEditor new. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3723 |
editor masterApplication:self. |
2568
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3724 |
self isEditingSpecOnly ifFalse:[ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3725 |
editor specClass: cls. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3726 |
editor useHelpTool:(self helpTool). |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3727 |
]. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3728 |
|
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3729 |
(self isEditingSpecOnly or:[selectorOrMenu class == Menu]) ifTrue: [ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3730 |
editor openModalOnMenu:(selectorOrMenu). |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3731 |
editor hasSaved ifTrue:[ |
3094 | 3732 |
windowSpec perform:menuSelector asMutator with:(editor savedSpec). |
2568
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3733 |
self accept. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3734 |
]. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3735 |
] ifFalse: [ |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3736 |
editor openModalOnClass:cls andSelector:selectorOrMenu. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3737 |
editor hasSaved ifTrue:[ |
2967 | 3738 |
holder := self specTool aspectFor:menuSelector. |
2568
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3739 |
holder value:(editor specSelector). |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3740 |
self accept. |
ea1484c2ab9b
preps for menuSpec without a class
Claus Gittinger <cg@exept.de>
parents:
2564
diff
changeset
|
3741 |
]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3742 |
]. |
2243 | 3743 |
|
3744 |
"Modified: / 12-01-2008 / 10:31:41 / cg" |
|
513 | 3745 |
! |
3746 |
||
3747 |
openHierarchicalListEditor |
|
765 | 3748 |
"opens a Hierarchical List Editor on current widget" |
3749 |
||
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3750 |
|selector editor spec| |
765 | 3751 |
|
1983 | 3752 |
(self resolveName:specClassName) isNil ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3753 |
self askForSaving ifFalse: [^self] |
513 | 3754 |
]. |
3755 |
||
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3756 |
spec := self specTool specification. |
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3757 |
(selector := spec hierarchicalList) notNil ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3758 |
selector := selector asSymbol |
513 | 3759 |
]. |
735
29c8681ce68d
no picking for hierarchical lists + error handler for the starting phase
tz
parents:
729
diff
changeset
|
3760 |
|
513 | 3761 |
editor := HierarchicalListEditor new. |
3762 |
editor masterApplication:self. |
|
1983 | 3763 |
editor openModalOnClass:specClassName andSelector:selector. |
765 | 3764 |
|
3765 |
editor specSelector ~= selector ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3766 |
editor hasSaved ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3767 |
spec hierarchicalList:editor specSelector. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3768 |
self modifiedChannel value:true. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3769 |
self accept |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
3770 |
] |
513 | 3771 |
] |
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3772 |
|
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3773 |
"Modified: / 16.7.1998 / 18:15:46 / cg" |
513 | 3774 |
! |
3775 |
||
3241 | 3776 |
openSubSpecBrowser |
3777 |
"opens a browser on the current subspecification" |
|
3778 |
||
3779 |
self withSpecClassAndSelectorDo:[:cls :sel | |
|
3780 |
cls theMetaclass browse:sel. |
|
3781 |
]. |
|
3782 |
! |
|
3783 |
||
729 | 3784 |
openSubSpecGUIPainter |
609
60f89fba074a
Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents:
587
diff
changeset
|
3785 |
"opens a GUI Painter on the current subspecification" |
60f89fba074a
Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents:
587
diff
changeset
|
3786 |
|
3241 | 3787 |
self withSpecClassAndSelectorDo:[:cls :sel | |
3788 |
self class |
|
3789 |
openOnClass:cls theMetaclass soleInstance |
|
3790 |
andSelector:sel. |
|
3791 |
]. |
|
1523 | 3792 |
|
3793 |
"Modified: / 5.11.2001 / 16:51:46 / cg" |
|
609
60f89fba074a
Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents:
587
diff
changeset
|
3794 |
! |
60f89fba074a
Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents:
587
diff
changeset
|
3795 |
|
743 | 3796 |
openTabListEditor |
765 | 3797 |
"opens a Tab List Editor on current widget" |
3798 |
||
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3799 |
|selector editor spec cls holder| |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3800 |
|
1983 | 3801 |
(cls := self resolveName:specClassName) isNil ifTrue:[ |
3802 |
self askForSaving ifTrue:[cls := self resolveName:specClassName]. |
|
513 | 3803 |
]. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3804 |
cls isNil ifTrue:[^ self]. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3805 |
|
2243 | 3806 |
self acceptOrIgnoreSectionModification. |
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3807 |
spec := self specTool specification. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3808 |
|
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3809 |
(selector := spec listSelector) isArray |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3810 |
ifTrue: [^self warn: 'Cannot open the Tab List Editor on an array!!']. |
743 | 3811 |
|
3812 |
editor := TabListEditor new. |
|
513 | 3813 |
editor masterApplication:self. |
1453
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3814 |
editor openModalOnClass:cls andSelector:selector. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3815 |
|
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3816 |
editor hasSaved ifTrue:[ |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3817 |
holder := self specTool aspectFor:#listSelector. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3818 |
|
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3819 |
holder value ~= editor specSelector ifTrue:[ |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3820 |
holder value:editor specSelector. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3821 |
self accept. |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3822 |
] |
0cf534cc29a9
bugfix when after close subtool (table menu ..) when reading selector
ca
parents:
1444
diff
changeset
|
3823 |
]. |
2243 | 3824 |
|
3825 |
"Modified: / 12-01-2008 / 10:31:34 / cg" |
|
3241 | 3826 |
! |
3827 |
||
3828 |
withSpecClassAndSelectorDo:aTwoArgBlock |
|
3829 |
"helper for open GUI Painter/open Browser on the current subspecification" |
|
3830 |
||
3831 |
|spec cls meta sel| |
|
3832 |
||
3833 |
(self resolveName:specClassName) isNil ifTrue:[ |
|
3834 |
self askForSaving ifFalse: [^self] |
|
3835 |
]. |
|
3836 |
||
3837 |
spec := self specTool specification. |
|
3838 |
cls := spec majorKey. |
|
3839 |
cls isNil ifTrue:[ |
|
3840 |
cls := specClassName. |
|
3841 |
]. |
|
3842 |
(cls := self resolveName:cls inClass:(Smalltalk at: specClassName asSymbol)) isNil ifTrue:[ |
|
3843 |
spec majorKey isNil ifTrue:[ |
|
3844 |
^ self warn:'Cannot find class (no majorKey specified).'. |
|
3845 |
]. |
|
3251 | 3846 |
^ self warn:('Cannot find class ', spec majorKey allBold, '.'). |
3241 | 3847 |
]. |
3848 |
sel := spec minorKey. |
|
3849 |
meta := cls class whichClassIncludesSelector:sel. |
|
3850 |
meta isNil ifTrue:[ |
|
3251 | 3851 |
^ self warn:'Cannot find selector #', (sel ? '') allBold, ' in class ', cls name allBold, '!!' |
3241 | 3852 |
]. |
3853 |
||
3854 |
aTwoArgBlock value:meta value:spec minorKey. |
|
513 | 3855 |
! ! |
3856 |
||
109 | 3857 |
!UIPainter methodsFor:'change & update'! |
3858 |
||
222 | 3859 |
layoutChanged |
282 | 3860 |
"called by the painter/canvas whenever the layout of the current selected |
765 | 3861 |
widget has changed" |
3862 |
||
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
3863 |
self isModified ifFalse:[ |
1188 | 3864 |
self layoutTool update. |
3865 |
self clearModifiedFlag |
|
222 | 3866 |
] |
3867 |
! |
|
3868 |
||
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
3869 |
propertyChanged |
282 | 3870 |
"called by the painter/canvas whenever the property of the current selected |
765 | 3871 |
widget has changed" |
3872 |
||
1071 | 3873 |
|property spec| |
765 | 3874 |
|
3875 |
(property := treeView propertySelected) notNil ifTrue:[ |
|
1188 | 3876 |
spec := property spec copy. |
3877 |
self specTool specification:spec. |
|
3878 |
self setViewInLayoutTool:(property view) spec:spec. |
|
3879 |
self clearModifiedFlag |
|
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
3880 |
] ifFalse:[ |
1188 | 3881 |
self layoutTool layoutView notNil ifTrue:[ |
3882 |
self clearModifiedFlag. |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3883 |
self treeSelectionChanged |
1188 | 3884 |
] |
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
3885 |
] |
222 | 3886 |
! |
3887 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3888 |
toolBarVisibilityChanged |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3889 |
|toolBarVisible editToolBarVisible toolBar editToolBar noteBook topOffset| |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3890 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3891 |
topOffset := 0. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3892 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3893 |
toolBar := self componentAt:#ToolBar. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3894 |
toolBar notNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3895 |
toolBarVisible := self toolBarVisibleHolder value. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3896 |
DefaultToolBarVisible := toolBarVisible. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3897 |
toolBarVisible ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3898 |
topOffset := topOffset + toolBar height. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3899 |
] |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3900 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3901 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3902 |
editToolBar := self componentAt:#EditToolBar. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3903 |
editToolBar notNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3904 |
editToolBar layout |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3905 |
topOffset:topOffset bottomOffset:(topOffset + editToolBar height). |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3906 |
"/ force it to recompute its dimension |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3907 |
editToolBar container notNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3908 |
editToolBar containerChangedSize. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3909 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3910 |
editToolBarVisible := self editToolBarVisibleHolder value. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3911 |
DefaultEditToolBarVisible := editToolBarVisible. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3912 |
editToolBarVisible ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3913 |
topOffset := topOffset + editToolBar height. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3914 |
] |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3915 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3916 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3917 |
noteBook := self componentAt:#Painter. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3918 |
noteBook notNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3919 |
noteBook layout topOffset:topOffset. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3920 |
"/ force it to recompute its dimension |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3921 |
noteBook container notNil ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3922 |
noteBook containerChangedSize. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3923 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3924 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3925 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3926 |
"Created: / 18-02-2007 / 14:46:22 / cg" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3927 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3928 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3929 |
update:something with:aParameter from:changedObject |
765 | 3930 |
"catches change notifications" |
3931 |
||
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3932 |
|window lbl| |
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3933 |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3934 |
((changedObject == self toolBarVisibleHolder) |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3935 |
or:[ changedObject == self editToolBarVisibleHolder ]) ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3936 |
self toolBarVisibilityChanged. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3937 |
^ self |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3938 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3939 |
changedObject == self gridShownHolder ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3940 |
self class settings at: #GridShown put: changedObject value. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3941 |
painter gridShown:changedObject value. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3942 |
^ self |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3943 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3944 |
changedObject == self alignToGridHolder ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3945 |
self class settings at: #GridAlign put: changedObject value. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3946 |
painter gridAlign:changedObject value. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3947 |
^ self |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3948 |
]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3949 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3950 |
changedObject == treeView model ifTrue:[ |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3951 |
(something == #selection |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3952 |
or:[something == #selectionIndex]) ifTrue:[self treeSelectionChanged]. |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
3953 |
^ self |
173 | 3954 |
]. |
3955 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3956 |
changedObject == self galleryShown ifTrue:[ |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3957 |
"/ galleryShown toggle changed |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3958 |
window := selectionPanel window. |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3959 |
(changedObject value) ifTrue:[ |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3960 |
self raiseUIView:window |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3961 |
] ifFalse:[ |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3962 |
self hideUIView:window |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3963 |
]. |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
3964 |
^ self |
173 | 3965 |
]. |
3966 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3967 |
changedObject == self painterShown ifTrue:[ |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3968 |
"/ canvasShown toggle changed |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3969 |
window := self painter topView. |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3970 |
(changedObject value) ifTrue:[ |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3971 |
self raiseUIView:window |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3972 |
] ifFalse:[ |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3973 |
self hideUIView:window |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3974 |
]. |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
3975 |
^ self |
173 | 3976 |
]. |
3977 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3978 |
changedObject == self autoAcceptOnSelectionChange ifTrue:[ |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
3979 |
lbl := changedObject value ifTrue:['Apply'] ifFalse:['OK']. |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3980 |
(builder componentAt:'acceptButton') label:(resources string:lbl). |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3981 |
^ self |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3982 |
]. |
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
3983 |
|
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
3984 |
"Modified: / 16.7.1998 / 19:09:57 / cg" |
884 | 3985 |
! |
3986 |
||
3987 |
updateChannels |
|
3988 |
"updates the channels" |
|
3989 |
||
2313 | 3990 |
|canCutOrCopy| |
884 | 3991 |
|
3108 | 3992 |
treeView isNil ifTrue:[^ self]. |
3993 |
||
884 | 3994 |
self canMoveOrAlignSelection value:(treeView canMoveOrAlignSelection). |
2552 | 3995 |
self canResizeSelection value:(treeView canResizeSelection). |
1230
23e5d0c133e8
added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents:
1211
diff
changeset
|
3996 |
self canExchangeSelectionLayouts value:(treeView canExchangeSelectionLayouts). |
884 | 3997 |
self canChangeOrderInContainer value:(treeView canChangeOrderInContainer). |
3998 |
self canMoveSelectionIntoContainer value:(treeView canMoveSelectionIntoContainer). |
|
3999 |
self canMoveSelectionOutOfContainer value:(treeView canMoveSelectionOutOfContainer). |
|
4000 |
self hasOneSelectionOtherThanCanvas value:(treeView hasOneSelectionOtherThanCanvas). |
|
3361 | 4001 |
self hasSelectionOtherThanCanvas value:(treeView hasSelectionOtherThanCanvas). |
4002 |
self hasMultipleSelectionOtherThanCanvas value:(treeView hasMultipleSelectionOtherThanCanvas). |
|
4003 |
||
2313 | 4004 |
"/ the top-node cannot be cut, copied or pasted. |
4005 |
canCutOrCopy := treeView selection notEmptyOrNil and:[treeView selection first ~~ 1]. |
|
884 | 4006 |
|
1991 | 4007 |
self canCutHolder value: canCutOrCopy. |
4008 |
self canCopyHolder value: canCutOrCopy. |
|
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
4009 |
|
1063
9e710dbc7c92
inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents:
1059
diff
changeset
|
4010 |
"/ self modifiedChannel value: false. |
9e710dbc7c92
inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents:
1059
diff
changeset
|
4011 |
|
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
4012 |
"Modified: / 16.7.1998 / 19:13:30 / cg" |
109 | 4013 |
! ! |
4014 |
||
952 | 4015 |
!UIPainter methodsFor:'defaults'! |
4016 |
||
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4017 |
defaultNameOfCanvas |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4018 |
^ self class defaultNameOfCanvas |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4019 |
! |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4020 |
|
1466
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
4021 |
defaultWindowSpecClass |
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
4022 |
^ WindowSpec |
952 | 4023 |
! ! |
4024 |
||
109 | 4025 |
!UIPainter methodsFor:'event handling'! |
4026 |
||
4027 |
doesNotUnderstand:aMessage |
|
1940 | 4028 |
"forward misunderstood messages to the painter" |
282 | 4029 |
|
4030 |
|painter| |
|
4031 |
||
4032 |
painter := self painter. |
|
4033 |
||
4034 |
(painter respondsTo:(aMessage selector)) ifTrue:[ |
|
1940 | 4035 |
^ aMessage sendTo:painter |
282 | 4036 |
]. |
4037 |
super doesNotUnderstand:aMessage |
|
4038 |
||
1957 | 4039 |
! |
4040 |
||
4041 |
processEvent:anEvent |
|
4042 |
"filter keyboard events. |
|
4043 |
Return true, if I have eaten the event" |
|
4044 |
||
2947 | 4045 |
<resource: #keyboard (#CtrlCursorUp #CtrlCursorDown #CtrlCursorLeft #CtrlCursorRight)> |
4046 |
||
1957 | 4047 |
|key| |
4048 |
||
4049 |
anEvent isKeyPressEvent ifTrue:[ |
|
4050 |
anEvent targetView == treeView ifFalse:[^ false]. |
|
4051 |
treeView hasFocus ifFalse:[^ false]. |
|
4052 |
||
4053 |
key := anEvent key. |
|
4054 |
||
4055 |
"/ (anEvent rawKey == #Cmdr) ifTrue:[ |
|
4056 |
"/ self openNameEditorOnTreeSelection. |
|
4057 |
"/ ^ true. |
|
4058 |
"/ ]. |
|
4059 |
(anEvent rawKey == #CtrlCursorUp) ifTrue:[ |
|
4060 |
self doStepUp. |
|
4061 |
^ true. |
|
4062 |
]. |
|
4063 |
(anEvent rawKey == #CtrlCursorDown) ifTrue:[ |
|
4064 |
self doStepDown. |
|
4065 |
^ true. |
|
4066 |
]. |
|
4067 |
(anEvent rawKey == #CtrlCursorLeft) ifTrue:[ |
|
4068 |
self doStepOut. |
|
4069 |
^ true. |
|
4070 |
]. |
|
4071 |
(anEvent rawKey == #CtrlCursorRight) ifTrue:[ |
|
4072 |
self doStepIn. |
|
4073 |
^ true. |
|
4074 |
]. |
|
4075 |
]. |
|
4076 |
||
4077 |
^ false. |
|
282 | 4078 |
! ! |
4079 |
||
547 | 4080 |
!UIPainter methodsFor:'help'! |
4081 |
||
572 | 4082 |
defaultInfoLabel |
765 | 4083 |
"returns the default info label" |
572 | 4084 |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4085 |
specClassName isNil ifTrue: [^'No class defined.']. |
877 | 4086 |
specSelector isNil ifTrue: [^'No selector defined.']. |
2001 | 4087 |
^ specClassName printString, ' >> ', specSelector |
877 | 4088 |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4089 |
"Modified: / 31-08-2006 / 10:12:03 / cg" |
297 | 4090 |
! ! |
4091 |
||
2353 | 4092 |
!UIPainter methodsFor:'help specs'! |
1917 | 4093 |
|
2544
62e390e651a3
more flexible flyByHelpText redefinition
Claus Gittinger <cg@exept.de>
parents:
2541
diff
changeset
|
4094 |
basicHelpTextFromSpecification:specification forKey:aKey |
62e390e651a3
more flexible flyByHelpText redefinition
Claus Gittinger <cg@exept.de>
parents:
2541
diff
changeset
|
4095 |
"redefinable, to allow for subclasses to overwrite the helpTexts of the ui-spec" |
62e390e651a3
more flexible flyByHelpText redefinition
Claus Gittinger <cg@exept.de>
parents:
2541
diff
changeset
|
4096 |
|
62e390e651a3
more flexible flyByHelpText redefinition
Claus Gittinger <cg@exept.de>
parents:
2541
diff
changeset
|
4097 |
^ specification helpSpec at:aKey ifAbsent:nil |
62e390e651a3
more flexible flyByHelpText redefinition
Claus Gittinger <cg@exept.de>
parents:
2541
diff
changeset
|
4098 |
! |
62e390e651a3
more flexible flyByHelpText redefinition
Claus Gittinger <cg@exept.de>
parents:
2541
diff
changeset
|
4099 |
|
3518 | 4100 |
helpSpec |
3218 | 4101 |
|spec painter| |
4102 |
||
4103 |
painter := self painter. |
|
1917 | 4104 |
|
3518 | 4105 |
spec := self class helpSpec. |
1917 | 4106 |
spec at:#editUndo put:(resources string:'Undo (%1)' |
3218 | 4107 |
with:(resources string:painter undoHistory labelOfLastUndo)). |
4108 |
||
4109 |
spec at:#changePositionDown put:(resources string: |
|
4110 |
(spec at:#changePositionDown) with:painter nPixelsForMoveSelection). |
|
4111 |
||
4112 |
spec at:#changePositionLeft put:(resources string: |
|
4113 |
(spec at:#changePositionLeft) with:painter nPixelsForMoveSelection). |
|
4114 |
||
4115 |
spec at:#changePositionRight put:(resources string: |
|
4116 |
(spec at:#changePositionRight) with:painter nPixelsForMoveSelection). |
|
4117 |
||
4118 |
spec at:#changePositionUp put:(resources string: |
|
4119 |
(spec at:#changePositionUp) with:painter nPixelsForMoveSelection). |
|
4120 |
||
1917 | 4121 |
^ spec |
4122 |
! ! |
|
4123 |
||
2023 | 4124 |
!UIPainter methodsFor:'initialization'! |
4125 |
||
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4126 |
hideToolBarButtonCreated:aButton |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4127 |
aButton passiveLevel:(MenuPanel defaultLevel). |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4128 |
"/ aButton passiveLevel:1. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4129 |
aButton activeLevel:-1. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4130 |
aButton backgroundColor:(MenuPanel defaultBackgroundColor). |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4131 |
! |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4132 |
|
2023 | 4133 |
initialize |
2213 | 4134 |
|name scroller viewScroller| |
2023 | 4135 |
|
4136 |
super initialize. |
|
4137 |
||
4138 |
modified := false. |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
4139 |
|
2023 | 4140 |
aspects := IdentityDictionary new. |
4141 |
aspects at:#classNameChannel put:'NewApplication' asValue. |
|
4142 |
aspects at:#superclassNameChannel put:'ApplicationModel' asValue. |
|
4143 |
aspects at:#methodNameChannel put:'windowSpec' asValue. |
|
4144 |
||
4145 |
treeView := TreeView new. |
|
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4146 |
treeView painter:self. |
2023 | 4147 |
treeView windowSpecClass:(self defaultWindowSpecClass). |
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4148 |
treeView selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ]. |
2023 | 4149 |
|
4150 |
painterView := StandardSystemView new. |
|
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4151 |
name := name ? self defaultNameOfCanvas. |
2023 | 4152 |
painterView beToolWindow. |
4153 |
painterView name:name. |
|
4154 |
painterView label:name. |
|
4155 |
painterView extent:(treeView windowSpecClass defaultExtentInUIPainter). |
|
2213 | 4156 |
|
4157 |
UseViewScroller == true ifTrue:[ |
|
4158 |
scroller := HVScrollableView for:ViewScroller in:painterView. |
|
4159 |
scroller |
|
4160 |
horizontalScrollable:true miniScroller:true; |
|
4161 |
verticalScrollable:true; verticalMini:true; |
|
4162 |
autoHideScrollBars:false; |
|
4163 |
layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout. |
|
4164 |
viewScroller := scroller scrolledView. |
|
4165 |
painter := UIPainterView new. |
|
4166 |
painter extent:300@300. |
|
4167 |
viewScroller scrolledView:painter. |
|
4168 |
] ifFalse:[ |
|
4169 |
painter := UIPainterView in:painterView. |
|
4170 |
painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout. |
|
4171 |
]. |
|
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
4172 |
|
2023 | 4173 |
treeView := treeView canvas:painter specName:name. |
4174 |
painter treeView:treeView. |
|
4175 |
treeView model addDependent:self. |
|
4176 |
painter enableChannel:(self enableChannel). |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4177 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4178 |
selectionPanel := self selectionPanelClass new. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4179 |
selectionPanel allButOpenInterface:#windowSpec. |
2023 | 4180 |
! ! |
4181 |
||
1718 | 4182 |
!UIPainter methodsFor:'menus-dynamic'! |
1521
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
4183 |
|
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
4184 |
menuEdit |
1528 | 4185 |
^ [ |
4186 |
|m i| |
|
4187 |
||
4188 |
m := self class menuEdit. |
|
4189 |
m := m decodeAsLiteralArray. |
|
4190 |
i := m detectItem:[:item | item nameKey == #undo] ifNone:nil. |
|
4191 |
i notNil ifTrue:[ |
|
1917 | 4192 |
i label:(resources string:(i label , ' (%1)') |
4193 |
with:(resources string:self painter undoHistory labelOfLastUndo)). |
|
1528 | 4194 |
]. |
1540
dda0bf556ebc
findGuiResources... now sets the receiver, if not yet set
Claus Gittinger <cg@exept.de>
parents:
1528
diff
changeset
|
4195 |
"/ m receiver:self. -- now done in findGuiResources ... |
1528 | 4196 |
m findGuiResourcesIn:self. |
4197 |
m |
|
4198 |
]. |
|
1940 | 4199 |
! |
4200 |
||
4201 |
menuReplaceWidget |
|
4202 |
^ [ |
|
4203 |
|m i specAndView spec usefulReplacementSpecClasses| |
|
4204 |
||
4205 |
m := self class menuReplaceWidget. |
|
4206 |
m := m decodeAsLiteralArray. |
|
4207 |
||
4208 |
specAndView := self selectedSpecAndView. |
|
4209 |
spec := specAndView first. |
|
1968 | 4210 |
spec notNil ifTrue:[ |
4211 |
usefulReplacementSpecClasses := spec usefulReplacementSpecClasses. |
|
4212 |
usefulReplacementSpecClasses notEmptyOrNil ifTrue:[ |
|
4213 |
m addSeparator. |
|
4214 |
usefulReplacementSpecClasses do:[:eachClass | |
|
4215 |
|item| |
|
4216 |
||
3137 | 4217 |
item := MenuItem |
4218 |
label:(resources string:'Replace by %1' with:eachClass userFriendlyName) |
|
4219 |
itemValue:#replaceWidgetByClass: argument:eachClass. |
|
4220 |
item translateLabel:false. |
|
1968 | 4221 |
m addItem:item. |
4222 |
]. |
|
1940 | 4223 |
]. |
4224 |
]. |
|
4225 |
||
4226 |
m findGuiResourcesIn:self. |
|
4227 |
m |
|
4228 |
]. |
|
2923 | 4229 |
|
4230 |
"Modified: / 09-09-2012 / 13:25:09 / cg" |
|
1521
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
4231 |
! ! |
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
4232 |
|
109 | 4233 |
!UIPainter methodsFor:'private'! |
4234 |
||
2243 | 4235 |
acceptOrIgnoreSectionModification |
4236 |
self isModified ifTrue:[ |
|
4237 |
(self confirm:'Accept changes made to spec ?') ifTrue:[ |
|
4238 |
self accept |
|
4239 |
] |
|
4240 |
]. |
|
4241 |
||
4242 |
"Created: / 12-01-2008 / 10:31:20 / cg" |
|
4243 |
! |
|
4244 |
||
729 | 4245 |
askForModification |
765 | 4246 |
"asks for window spec modification" |
4247 |
||
1341 | 4248 |
|painter| |
4249 |
||
4250 |
painter := self painter. |
|
4251 |
||
765 | 4252 |
self askForSectionModification. |
729 | 4253 |
|
1341 | 4254 |
(modified or: [painter isModified or: [self helpTool modified]]) |
4255 |
ifTrue:[ |
|
1772
e33aee13defe
Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents:
1760
diff
changeset
|
4256 |
((YesNoBox title:(resources string:'Window spec was modified. Exit anyway?')) |
1341 | 4257 |
noText:(resources string:'Cancel'); |
1772
e33aee13defe
Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents:
1760
diff
changeset
|
4258 |
yesText:(resources string:'Discard Changes and Exit'); |
1341 | 4259 |
showAtPointer; |
4260 |
accepted) ifFalse: [^false]. |
|
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
4261 |
self clearModified. |
1341 | 4262 |
painter resetModification |
729 | 4263 |
]. |
2293
b8149118f0af
Do not ask for "discarding changes" on first doSaveAs
Stefan Vogel <sv@exept.de>
parents:
2284
diff
changeset
|
4264 |
^ true |
838
0ac5a26498c1
help texts & national strings
Claus Gittinger <cg@exept.de>
parents:
827
diff
changeset
|
4265 |
|
0ac5a26498c1
help texts & national strings
Claus Gittinger <cg@exept.de>
parents:
827
diff
changeset
|
4266 |
"Modified: / 20.5.1998 / 02:03:16 / cg" |
729 | 4267 |
! |
4268 |
||
808 | 4269 |
askForSaving |
4270 |
"asks for defining an application class" |
|
4271 |
||
4272 |
self askForSectionModification. |
|
4273 |
||
4274 |
((YesNoBox title:'No application class defined yet!!') |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4275 |
noText:'Cancel'; |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4276 |
yesText:'Define'; |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4277 |
showAtPointer; |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4278 |
accepted) ifFalse: [^false]. |
808 | 4279 |
|
4280 |
self doSave. |
|
4281 |
||
4282 |
^true |
|
4283 |
! |
|
4284 |
||
765 | 4285 |
askForSectionModification |
4286 |
"asks for section modification in the notebook" |
|
4287 |
||
4288 |
self isModified ifTrue:[ |
|
3251 | 4289 |
(self confirm:'Accept modifications in section ' , tabSelection printString allBold, '?') ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4290 |
self accept |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4291 |
] ifFalse: [ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4292 |
self cancel |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4293 |
] |
765 | 4294 |
] |
4295 |
! |
|
4296 |
||
743 | 4297 |
checkClassAndSelector |
765 | 4298 |
"checks for class & superclass" |
743 | 4299 |
|
1211 | 4300 |
|superclass cls| |
743 | 4301 |
|
1983 | 4302 |
specClassName isNil ifTrue:[^ false]. |
4303 |
||
4304 |
cls := self resolveName:specClassName. |
|
743 | 4305 |
|
4306 |
cls isNil ifTrue:[ |
|
1976 | 4307 |
superclass := self resolveName:specSuperclassName. |
4308 |
||
4309 |
superclass isNil ifTrue:[ |
|
4310 |
self warn:'No class named ' , specSuperclassName , ' exists!!'. |
|
4311 |
^ false. |
|
4312 |
]. |
|
4313 |
||
3251 | 4314 |
(self confirm:'Create class ' , specClassName allBold, '?') ifTrue:[ |
1976 | 4315 |
cls := superclass |
1983 | 4316 |
subclass:(specClassName asSymbol) |
1976 | 4317 |
instanceVariableNames:'' |
4318 |
classVariableNames:'' |
|
4319 |
poolDictionaries:'' |
|
4320 |
category:'Applications'. |
|
4321 |
||
1983 | 4322 |
cls name ~= specClassName ifTrue:[ |
1976 | 4323 |
self information:'Created new class is ' , cls name. |
1983 | 4324 |
specClassName := cls name |
1976 | 4325 |
]. |
4326 |
^ true. |
|
4327 |
]. |
|
4328 |
^ false. |
|
743 | 4329 |
]. |
4330 |
cls isBehavior ifFalse:[ |
|
1983 | 4331 |
self warn:'A global named ' , specClassName , ' exists, but it is no class.'. |
1976 | 4332 |
^ false. |
743 | 4333 |
]. |
4334 |
||
1976 | 4335 |
specSuperclassName isBehavior ifFalse:[ |
2001 | 4336 |
specSuperclassName notEmptyOrNil ifTrue:[ |
1976 | 4337 |
superclass := self resolveName:specSuperclassName |
2001 | 4338 |
] ifFalse:[ |
1976 | 4339 |
specSuperclassName := nil. |
4340 |
] |
|
743 | 4341 |
] ifTrue:[ |
1976 | 4342 |
superclass := specSuperclassName |
743 | 4343 |
]. |
4344 |
||
1976 | 4345 |
specSuperclassName notNil ifTrue:[ |
4346 |
superclass isNil ifTrue:[ |
|
4347 |
self warn:'No class named ' , specSuperclassName , ' exists!!'. |
|
4348 |
^ false. |
|
4349 |
]. |
|
4350 |
||
4351 |
(cls isSubclassOf:superclass) ifFalse:[ |
|
1983 | 4352 |
self information:('A global named ' , specClassName , ' exists,\' , |
1976 | 4353 |
'but is not a subclass of ' , superclass name , '.\\' , |
4354 |
'Check and try again if that is not what you want.') withCRs. |
|
4355 |
] |
|
743 | 4356 |
]. |
4357 |
||
4358 |
superclass isNil ifTrue:[ |
|
1976 | 4359 |
cls notNil ifTrue:[ |
4360 |
specSuperclassName := cls superclass name |
|
4361 |
] |
|
743 | 4362 |
]. |
4363 |
||
4364 |
^ true |
|
4365 |
||
4366 |
"Modified: 12.8.1997 / 23:39:10 / cg" |
|
4367 |
! |
|
4368 |
||
2159 | 4369 |
createToolApplication:anApplicationClass spec:aSpec in:aView |
4370 |
|appl applBuilder applWindow| |
|
4371 |
||
4372 |
appl := anApplicationClass new. |
|
4373 |
appl createBuilder. |
|
4374 |
applBuilder := appl builder. |
|
4375 |
||
4376 |
applWindow := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:aView. |
|
4377 |
applWindow level:0. |
|
4378 |
applWindow hiddenOnRealize:true. |
|
4379 |
||
4380 |
appl masterApplication:self. |
|
4381 |
applBuilder window:applWindow. |
|
4382 |
applWindow client:appl spec:aSpec builder:applBuilder. |
|
4383 |
appl modifiedHolder:(self modifiedChannel). |
|
4384 |
applBuilder window:applWindow. |
|
4385 |
||
4386 |
^ appl |
|
4387 |
! |
|
4388 |
||
173 | 4389 |
hideUIView:aView |
765 | 4390 |
"hides the view which is an application or top view" |
4391 |
||
173 | 4392 |
aView beIndependent. |
4393 |
aView unmap. |
|
4394 |
! |
|
4395 |
||
287 | 4396 |
raiseTabView |
2159 | 4397 |
|tool| |
4398 |
||
4399 |
self isLayoutToolSelected ifTrue:[tool := layoutTool ] |
|
4400 |
ifFalse:[self isHelpToolSelected ifTrue:[tool := helpTool ] |
|
4401 |
ifFalse:[ |
|
4402 |
tool := specTool. |
|
3111 | 4403 |
tool notNil ifTrue:[ |
4404 |
ApplicationClassQuery answer:specClass do:[ |
|
4405 |
"/ the spectool needs to know, in which nameSpace the application class is located, to find out |
|
4406 |
"/ how to resolve short majorKeys... |
|
4407 |
UISpecification uiMajorKeyBindingNameSpaceQuery |
|
4408 |
answer:(specClass notNil ifTrue:[specClass nameSpace] ifFalse:Smalltalk) |
|
4409 |
do:[ |
|
4410 |
specTool selection:tabSelection |
|
4411 |
]. |
|
3085 | 4412 |
]. |
4413 |
]. |
|
2159 | 4414 |
]]. |
4415 |
||
4416 |
(Array with:helpTool with:layoutTool with:specTool) do:[:aTool| |
|
4417 |
aTool ~~ tool ifTrue:[ |
|
4418 |
aTool window beInvisible. |
|
4419 |
]. |
|
4420 |
]. |
|
4421 |
tool notNil ifTrue:[ |
|
4422 |
tool window beVisible. |
|
4423 |
]. |
|
173 | 4424 |
! |
4425 |
||
4426 |
raiseUIView:aView |
|
765 | 4427 |
"raise the view which is an application or top view" |
4428 |
||
1193
ada18c876301
partners must be remapped (at old position)
Claus Gittinger <cg@exept.de>
parents:
1192
diff
changeset
|
4429 |
aView remap. |
173 | 4430 |
aView bePartner. |
177
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4431 |
! |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4432 |
|
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4433 |
setClass:cls selector:selector |
765 | 4434 |
"sets the specClass and the specSelector under which the window spec should be saved" |
4435 |
||
177
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4436 |
|clsName superClassName| |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4437 |
|
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4438 |
clsName := cls name. |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4439 |
superClassName := cls superclass name. |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4440 |
|
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4441 |
(self aspectFor:#classNameChannel) value:clsName. |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4442 |
(self aspectFor:#methodNameChannel) value:(selector ? ''). |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4443 |
(self aspectFor:#superclassNameChannel) value:superClassName. |
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4444 |
|
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4445 |
self painter |
1760
8419c463c4f6
use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents:
1750
diff
changeset
|
4446 |
className:clsName |
8419c463c4f6
use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents:
1750
diff
changeset
|
4447 |
superclassName:superClassName |
8419c463c4f6
use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents:
1750
diff
changeset
|
4448 |
selector:(selector ? ''). |
177
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4449 |
|
287 | 4450 |
self specClass:clsName. |
177
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4451 |
specSelector := (selector ? ''). |
1976 | 4452 |
specSuperclassName := superClassName. |
177
eefd69a52f5b
fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents:
176
diff
changeset
|
4453 |
|
1983 | 4454 |
(specClassName notNil and:[ selector notNil ]) ifTrue:[ |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4455 |
self addHistoryEntryForClass:specClass selector:specSelector. |
1760
8419c463c4f6
use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents:
1750
diff
changeset
|
4456 |
self updateInfoLabel |
446 | 4457 |
]. |
587
dd545d089d95
Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents:
572
diff
changeset
|
4458 |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4459 |
"Modified: / 05-02-1998 / 09:44:58 / stefan" |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4460 |
"Modified: / 31-08-2006 / 10:14:49 / cg" |
282 | 4461 |
! |
4462 |
||
1071 | 4463 |
setViewInLayoutTool:aView spec:aSpec |
765 | 4464 |
"sets view for layout tool" |
4465 |
||
287 | 4466 |
|type| |
4467 |
||
4468 |
self painter topView == aView ifTrue:[ |
|
2213 | 4469 |
type := #Extent |
4470 |
] ifFalse:[ |
|
4471 |
self canvas == aView ifTrue:[ |
|
4472 |
type := #Extent |
|
4473 |
] |
|
287 | 4474 |
]. |
1071 | 4475 |
self layoutTool layoutView:aView type:type spec:aSpec |
287 | 4476 |
! |
4477 |
||
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4478 |
specClass |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4479 |
specClass isNil ifTrue:[ |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4480 |
specClassName notNil ifTrue:[ |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4481 |
specClass := Smalltalk classNamed:specClassName. |
2243 | 4482 |
self canInstallAsWebPageHolder value:self canInstallAsWebPage. |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4483 |
] |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4484 |
]. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4485 |
^ specClass |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4486 |
|
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4487 |
"Created: / 31-08-2006 / 10:08:43 / cg" |
2243 | 4488 |
"Modified: / 14-01-2008 / 17:39:32 / cg" |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4489 |
! |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4490 |
|
1976 | 4491 |
specClass:aClassOrClassName |
765 | 4492 |
"sets the specClass and updates the Help Tool" |
587
dd545d089d95
Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents:
572
diff
changeset
|
4493 |
|
1976 | 4494 |
aClassOrClassName isBehavior |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4495 |
ifTrue: [ specClass := aClassOrClassName. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4496 |
specClassName := aClassOrClassName name ] |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4497 |
ifFalse:[ specClass := Smalltalk classNamed:aClassOrClassName. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4498 |
specClassName := aClassOrClassName ]. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4499 |
|
2243 | 4500 |
self canInstallAsWebPageHolder value:self canInstallAsWebPage. |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4501 |
self helpTool loadFromClass:specClass. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4502 |
self clearModifiedFlag. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4503 |
|
2243 | 4504 |
"Modified: / 14-01-2008 / 17:39:08 / cg" |
287 | 4505 |
! ! |
4506 |
||
1714 | 4507 |
!UIPainter methodsFor:'private-tools'! |
287 | 4508 |
|
2213 | 4509 |
canvas |
4510 |
"returns the canvas view" |
|
4511 |
||
4512 |
UseViewScroller == true ifTrue:[ |
|
4513 |
^ painter. |
|
4514 |
]. |
|
4515 |
||
4516 |
^ painter topView. |
|
4517 |
"/ ^ treeView canvas |
|
4518 |
||
4519 |
"Modified: / 05-09-2006 / 18:36:32 / cg" |
|
4520 |
! |
|
4521 |
||
287 | 4522 |
helpTool |
765 | 4523 |
"returns the help tool" |
4524 |
||
1316 | 4525 |
helpTool isNil ifTrue:[self noteBookView]. |
4526 |
^ helpTool |
|
287 | 4527 |
! |
4528 |
||
4529 |
layoutTool |
|
765 | 4530 |
"returns the layout tool" |
4531 |
||
1316 | 4532 |
layoutTool isNil ifTrue:[self noteBookView]. |
4533 |
^ layoutTool |
|
287 | 4534 |
! |
4535 |
||
4536 |
painter |
|
765 | 4537 |
"returns the canvas view" |
4538 |
||
2077 | 4539 |
^ painter. |
4540 |
"/ ^ treeView canvas |
|
4541 |
||
4542 |
"Modified: / 05-09-2006 / 18:36:32 / cg" |
|
287 | 4543 |
! |
4544 |
||
4545 |
specTool |
|
765 | 4546 |
"returns the spec tool" |
4547 |
||
1316 | 4548 |
specTool isNil ifTrue:[self noteBookView]. |
4549 |
^ specTool |
|
109 | 4550 |
! ! |
4551 |
||
166 | 4552 |
!UIPainter methodsFor:'queries'! |
4553 |
||
2313 | 4554 |
canPaste |
4555 |
|clipboard sel| |
|
4556 |
||
4557 |
clipboard := painterView getClipboardObject. |
|
4558 |
||
2328
5324713ed697
care for non collection which responds to notEmptyOrNil
Claus Gittinger <cg@exept.de>
parents:
2319
diff
changeset
|
4559 |
(clipboard isCollection |
5324713ed697
care for non collection which responds to notEmptyOrNil
Claus Gittinger <cg@exept.de>
parents:
2319
diff
changeset
|
4560 |
and:[ clipboard notEmptyOrNil ]) |
2313 | 4561 |
ifTrue:[sel := clipboard first] |
4562 |
ifFalse:[sel := clipboard]. |
|
4563 |
||
4564 |
^ (sel isKindOf:UISpecification) |
|
4565 |
"/ and:[treeSelection size = 1 |
|
4566 |
"/ and:[treeSelection first == 1 |
|
4567 |
"/ or: [self canPasteInto: treeView selectedNode contents view]]] |
|
4568 |
! |
|
4569 |
||
217 | 4570 |
hasSpecClass |
765 | 4571 |
"answers whether an application class is defined" |
4572 |
||
1983 | 4573 |
^ (self resolveName:specClassName) notNil |
217 | 4574 |
! |
4575 |
||
4576 |
hasSpecClassAndSelector |
|
765 | 4577 |
"answers whether an application class and a selector under which |
4578 |
the window spec is stored is defined" |
|
4579 |
||
217 | 4580 |
specSelector size > 1 ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4581 |
^ self hasSpecClass |
217 | 4582 |
]. |
765 | 4583 |
^ false |
217 | 4584 |
! |
4585 |
||
2277
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
4586 |
isEditingSpecOnly |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
4587 |
^ self isNotEditingSpecOnly not |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
4588 |
! |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
4589 |
|
166 | 4590 |
isHelpToolSelected |
765 | 4591 |
"answers whether the current selected section in the noteBook is the Help Tool" |
4592 |
||
287 | 4593 |
^ tabSelection = UIHelpTool label |
166 | 4594 |
! |
4595 |
||
4596 |
isLayoutToolSelected |
|
765 | 4597 |
"answers whether the current selected section in the noteBook is the Layout Tool" |
4598 |
||
287 | 4599 |
^ tabSelection = UILayoutTool label |
217 | 4600 |
! |
4601 |
||
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4602 |
isModified |
765 | 4603 |
"answers whether the current window spec or a layout is modified" |
4604 |
||
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4605 |
^ self modifiedChannel value |
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4606 |
! |
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4607 |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4608 |
isNotEditingSpecOnly |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4609 |
^ true |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4610 |
! |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4611 |
|
217 | 4612 |
isPainterEnabled |
765 | 4613 |
"answers whether I am running in test mode" |
4614 |
||
217 | 4615 |
^ self painter enabled |
1608 | 4616 |
! |
4617 |
||
4618 |
isUIPainter |
|
4619 |
^ true |
|
2243 | 4620 |
! |
4621 |
||
4622 |
listOfAspects |
|
4623 |
^ self painter listOfAspects |
|
4624 |
||
4625 |
"Created: / 12-01-2008 / 19:24:51 / cg" |
|
4626 |
! |
|
4627 |
||
4628 |
listOfCallbacks |
|
4629 |
^ self painter listOfCallbacks |
|
4630 |
||
4631 |
"Created: / 12-01-2008 / 19:25:09 / cg" |
|
166 | 4632 |
! ! |
4633 |
||
109 | 4634 |
!UIPainter methodsFor:'selection'! |
4635 |
||
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4636 |
askForUnsavedModifications |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4637 |
|whatToDo| |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4638 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4639 |
self isModified ifFalse:[^ true]. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4640 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4641 |
whatToDo := DialogBox |
3251 | 4642 |
confirmWithCancel:'Accept modifications in section ' , tabSelection printString allBold, ' ?' |
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4643 |
labels:#('Cancel' 'Ignore' 'Accept') |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4644 |
default:3. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4645 |
whatToDo isNil ifTrue:[^ false]. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4646 |
whatToDo == true ifTrue:[ |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4647 |
self accept |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4648 |
] ifFalse:[ |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4649 |
self cancel |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4650 |
]. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4651 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4652 |
^ true |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4653 |
! |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4654 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4655 |
copySelection |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4656 |
self painter copySelection. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4657 |
self updateChannels. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4658 |
! |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4659 |
|
1940 | 4660 |
selectedSpec |
4661 |
|specAndView| |
|
4662 |
||
4663 |
specAndView := self selectedSpecAndView. |
|
4664 |
^ specAndView first |
|
4665 |
! |
|
4666 |
||
4667 |
selectedSpecAndView |
|
4668 |
|spec view property| |
|
4669 |
||
4670 |
treeView isCanvasSelected ifTrue:[ |
|
4671 |
spec := treeView canvasSpec. |
|
2213 | 4672 |
view := self canvas. "/ self painter topView. |
1940 | 4673 |
] ifFalse:[ |
4674 |
(property := treeView propertySelected) notNil ifTrue:[ |
|
4675 |
treeView canResizeSelectedWidget ifTrue:[ |
|
4676 |
view := property view. |
|
4677 |
]. |
|
4678 |
spec := property spec copy. |
|
4679 |
] |
|
4680 |
]. |
|
4681 |
^ Array with:spec with:view |
|
4682 |
! |
|
4683 |
||
109 | 4684 |
tabSelection |
765 | 4685 |
"returns the label of the current section in the notebook" |
4686 |
||
109 | 4687 |
^ tabSelection |
4688 |
! |
|
4689 |
||
4690 |
tabSelection:something |
|
765 | 4691 |
"called whenever the section of the notebook has changed" |
351 | 4692 |
|
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4693 |
(something isNil or:[tabSelection = something]) ifTrue:[ |
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4694 |
^ self |
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4695 |
]. |
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4696 |
|
2202 | 4697 |
self isModified ifTrue:[ |
4698 |
self autoAcceptOnSelectionChange value ifTrue:[ |
|
4699 |
self accept |
|
4700 |
] ifFalse:[ |
|
4701 |
self askForUnsavedModifications ifFalse:[^ self]. |
|
4702 |
]. |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
4703 |
]. |
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4704 |
tabSelection := something. |
287 | 4705 |
self raiseTabView. |
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4706 |
self cancel. |
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4707 |
! |
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4708 |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
4709 |
treeSelectionChanged |
765 | 4710 |
"called whenever the selection of the treeview has changed" |
4711 |
||
1940 | 4712 |
|specAndView view spec| |
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4713 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4714 |
self askForUnsavedModifications ifFalse:[^ self]. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4715 |
"/ self isModified ifTrue:[ |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4716 |
"/ (self confirm:'Accept modifications in section ' , tabSelection printString asBoldText, '?') ifTrue:[ |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4717 |
"/ self accept |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4718 |
"/ ] |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4719 |
"/ ]. |
713 | 4720 |
|
1940 | 4721 |
specAndView := self selectedSpecAndView. |
4722 |
spec := specAndView first. |
|
4723 |
view := specAndView last. |
|
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4724 |
|
1071 | 4725 |
self setViewInLayoutTool:view spec:spec. |
287 | 4726 |
self specTool specification:spec. |
282 | 4727 |
|
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4728 |
self updateSlicesForSpec:spec andView:view. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4729 |
self clearModifiedFlag. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4730 |
self updateChannels. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4731 |
! |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4732 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4733 |
updateSlicesForSpec:spec andView:view |
2512 | 4734 |
"fetch slices-info from the spec; add help and geometry slices manually" |
4735 |
||
2023 | 4736 |
|slices "size" list tabComponent| |
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4737 |
|
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4738 |
tabComponent := self componentAt:#noteBook. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
4739 |
|
282 | 4740 |
spec notNil ifTrue:[ |
1188 | 4741 |
self helpTool helpKey:(spec activeHelpKey). |
4742 |
slices := spec class slices. |
|
2023 | 4743 |
|
4744 |
list := slices collect:[:eachSlice | eachSlice first asString]. |
|
4745 |
self treeView isCanvasSelected ifFalse:[ |
|
2040 | 4746 |
list := list copyWith:(UIHelpTool label) |
2023 | 4747 |
]. |
1188 | 4748 |
view notNil ifTrue:[ |
2512 | 4749 |
"/ for now, keep it as an empty slice; |
4750 |
"/ better when toggling as we do not loos the 'geometry' selection. |
|
4751 |
"/ slices notebook should remember the last 'explicit' selected tab. |
|
4752 |
true "spec hasLayout" ifTrue:[ |
|
2511 | 4753 |
list := list copyWith:UILayoutTool label. |
4754 |
] |
|
1188 | 4755 |
]. |
4756 |
||
2023 | 4757 |
"/ size := slices size. |
4758 |
"/ view notNil ifTrue:[ |
|
4759 |
"/ self treeView isCanvasSelected ifFalse:[ |
|
4760 |
"/ list := Array new:(size + 2). |
|
4761 |
"/ list at:(size + 2) put:(UILayoutTool label). |
|
4762 |
"/ ] ifTrue:[ |
|
4763 |
"/ list := Array new:(size + 1). |
|
4764 |
"/ list at:(size + 1) put:(UILayoutTool label). |
|
4765 |
"/ ]. |
|
4766 |
"/ ] ifFalse:[ |
|
4767 |
"/ list := Array new:(size + 1). |
|
4768 |
"/ ]. |
|
4769 |
"/ |
|
4770 |
"/ 1 to:size do:[:i| list at:i put:((slices at:i) first asString)]. |
|
4771 |
"/ self treeView isCanvasSelected ifFalse: [ |
|
4772 |
"/ list at:(size + 1) put:(UIHelpTool label) |
|
4773 |
"/ ]. |
|
1188 | 4774 |
|
4775 |
self tabList value:list. |
|
4776 |
self showHelp:spec class name for:self. |
|
4777 |
tabComponent enabled:true. |
|
4778 |
||
4779 |
(tabSelection := tabComponent selection) isNil ifTrue:[ |
|
4780 |
tabComponent setSelection:(tabSelection := list first) |
|
4781 |
]. |
|
4782 |
self raiseTabView |
|
282 | 4783 |
] ifFalse:[ |
1188 | 4784 |
self helpTool helpKey:nil. |
4785 |
tabComponent enabled:false. |
|
4786 |
self defaultInfoLabel. |
|
272
99de6af43afa
confirm/cancel changes before switching a section or widget
ca
parents:
271
diff
changeset
|
4787 |
]. |
60 | 4788 |
! ! |
4789 |
||
765 | 4790 |
!UIPainter methodsFor:'settings'! |
4791 |
||
924 | 4792 |
generateAspectsAsInstanceVariables |
4793 |
"if on, aspects are held as instance variables; |
|
2243 | 4794 |
if off (the default), they are kept in the bindings dictionary." |
4795 |
||
924 | 4796 |
^ UIPainterView generateAspectsAsInstanceVariables |
4797 |
||
2243 | 4798 |
"Created: / 29-07-1998 / 11:17:59 / cg" |
4799 |
"Modified: / 12-01-2008 / 10:37:43 / cg" |
|
924 | 4800 |
! |
4801 |
||
4802 |
generateAspectsAsInstanceVariables:aBoolean |
|
4803 |
"if on, aspects are held as instance variables; |
|
2243 | 4804 |
if off (the default), they are kept in the bindings dictionary." |
4805 |
||
924 | 4806 |
^ UIPainterView generateAspectsAsInstanceVariables:aBoolean |
4807 |
||
4808 |
"Created: / 29.7.1998 / 11:18:20 / cg" |
|
4809 |
! |
|
4810 |
||
2243 | 4811 |
generateCommentedCode |
4812 |
"comments in generated aspect methods; yes or no." |
|
4813 |
||
4814 |
^ UIPainterView generateCommentedCode |
|
4815 |
||
4816 |
"Created: / 12-01-2008 / 10:34:14 / cg" |
|
4817 |
! |
|
4818 |
||
4819 |
generateCommentedCode:aBoolean |
|
4820 |
"comments in generated aspect methods; yes or no." |
|
4821 |
||
4822 |
UIPainterView generateCommentedCode:aBoolean |
|
4823 |
||
4824 |
"Created: / 12-01-2008 / 10:23:10 / cg" |
|
4825 |
! |
|
4826 |
||
765 | 4827 |
redefineAspectMethods |
2243 | 4828 |
"redefine methods yes or no. |
4829 |
If a method is defined in super class should the message be reinstalled ?" |
|
4830 |
||
765 | 4831 |
^ UIPainterView redefineAspectMethods |
4832 |
||
2243 | 4833 |
"Modified: / 12-01-2008 / 10:34:07 / cg" |
765 | 4834 |
! |
4835 |
||
4836 |
redefineAspectMethods:aBoolean |
|
2243 | 4837 |
"redefine methods yes or no. |
4838 |
If a method is defined in super class should the message be reinstalled ?" |
|
4839 |
||
765 | 4840 |
UIPainterView redefineAspectMethods:aBoolean |
4841 |
||
2243 | 4842 |
"Modified: / 12-01-2008 / 10:23:20 / cg" |
765 | 4843 |
! ! |
4844 |
||
1716 | 4845 |
!UIPainter methodsFor:'startup & release'! |
109 | 4846 |
|
4847 |
closeRequest |
|
2023 | 4848 |
"asks for permission before closing" |
713 | 4849 |
|
729 | 4850 |
self askForModification ifFalse:[^self]. |
133 | 4851 |
|
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
4852 |
super closeRequest. |
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
4853 |
|
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4854 |
painterView notNil ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4855 |
painterView masterApplication:nil. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4856 |
painterView closeRequest. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4857 |
]. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4858 |
treeView notNil ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4859 |
treeView model removeDependent:self. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4860 |
]. |
109 | 4861 |
selectionPanel notNil ifTrue:[ |
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
4862 |
selectionPanel masterApplication:nil. |
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
4863 |
selectionPanel closeRequest |
109 | 4864 |
]. |
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4865 |
"/ selectionPanel := nil. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
4866 |
"/ treeView := nil. |
109 | 4867 |
! |
4868 |
||
4869 |
closeRequestFor:aTopView |
|
765 | 4870 |
"handles a close request for a specific view" |
4871 |
||
173 | 4872 |
|topView| |
60 | 4873 |
|
765 | 4874 |
(topView := self window) == aTopView ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4875 |
super closeRequestFor:aTopView |
109 | 4876 |
] ifFalse:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4877 |
aTopView = selectionPanel window ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4878 |
self galleryShown value:false |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4879 |
] ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4880 |
aTopView == (self painter topView) ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4881 |
self painterShown value:false |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4882 |
] ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4883 |
aTopView closeRequest |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4884 |
] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4885 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
4886 |
topView raise. |
109 | 4887 |
]. |
60 | 4888 |
! |
4889 |
||
1994 | 4890 |
commonPostBuild |
4891 |
"sets the root of the tree view as first selection; |
|
4892 |
sets the grid parameters, if defined" |
|
4893 |
||
4894 |
|cls sel| |
|
4895 |
||
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4896 |
cls := self specClass. |
1994 | 4897 |
sel := specSelector. |
4898 |
cls notNil ifTrue:[ |
|
4899 |
self setClass:cls selector:sel. |
|
4900 |
||
4901 |
(cls respondsTo:sel) ifTrue:[ |
|
4902 |
self painter setupFromSpec:(cls perform:sel). |
|
4903 |
] |
|
4904 |
]. |
|
4905 |
||
4906 |
self autoAcceptOnSelectionChange addDependent:self. |
|
4907 |
self autoAcceptOnSelectionChange value ifTrue:[ |
|
4908 |
(builder componentAt:'acceptButton') label:(resources string:'Apply') |
|
4909 |
]. |
|
4910 |
||
2023 | 4911 |
"/ using masters infoHolder ? |
3539 | 4912 |
self useAlienInfoLabel ifTrue:[ |
2023 | 4913 |
(builder componentAt:#mainPanel) layout bottomOffset:0. |
4914 |
(builder componentAt:#infoBarSubSpec) beInvisible |
|
4915 |
]. |
|
4916 |
||
2001 | 4917 |
self updateInfoLabel. |
2023 | 4918 |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4919 |
"Modified: / 31-08-2006 / 10:12:53 / cg" |
3538 | 4920 |
"Modified: / 20-02-2018 / 13:04:34 / stefan" |
1994 | 4921 |
! |
4922 |
||
1976 | 4923 |
loadFromClass:aClass andSelector:selector |
1185 | 4924 |
"loads a window spec by evaluating aMessageString |
4925 |
(which is something like 'fooClass windowSpec')" |
|
4926 |
||
1976 | 4927 |
self assert:(aClass isNil or:[aClass isClass]). |
4928 |
||
4929 |
self askForModification ifFalse:[^ self]. |
|
4930 |
||
4931 |
self setClass:aClass selector:selector. |
|
4932 |
||
4933 |
(aClass respondsTo:selector) ifTrue:[ |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4934 |
self loadFromSpec:(aClass perform:selector). |
1976 | 4935 |
] |
4936 |
! |
|
4937 |
||
4938 |
loadFromMessage:classAndSelector |
|
4939 |
"loads a window spec by evaluating aMessageString |
|
4940 |
(which is something like 'fooClass windowSpec')" |
|
4941 |
||
4942 |
self askForModification ifFalse:[^ self]. |
|
4943 |
||
4944 |
classAndSelector notNil ifTrue:[ |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4945 |
self |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4946 |
loadFromClass:classAndSelector methodClass |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4947 |
andSelector:classAndSelector methodSelector |
743 | 4948 |
] |
4949 |
! |
|
4950 |
||
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4951 |
loadFromSpec:aSpec |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4952 |
"loads a window spec proper" |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4953 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4954 |
self askForModification ifFalse:[^ self]. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4955 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4956 |
self painter setupFromSpec:aSpec. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4957 |
! |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4958 |
|
1850
410f98d259b7
kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents:
1827
diff
changeset
|
4959 |
openInterface:aSymbol |
1994 | 4960 |
"in addition to opening my interface, also open up a gallery and a painter" |
1850
410f98d259b7
kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents:
1827
diff
changeset
|
4961 |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4962 |
|topView| |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4963 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4964 |
self setupSpecClassAndSelector. |
1994 | 4965 |
|
2012 | 4966 |
"/ treeView := TreeView new. |
4967 |
"/ treeView windowSpecClass:(self defaultWindowSpecClass). |
|
4968 |
"/ treeView |
|
4969 |
"/ selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ]. |
|
4970 |
||
4971 |
"/ painterView := StandardSystemView new. |
|
4972 |
"/ name := name ? UIPainter defaultNameOfCanvas. |
|
4973 |
"/ painterView beToolWindow. |
|
4974 |
"/ painterView name:name. |
|
4975 |
"/ painterView label:name. |
|
4976 |
"/ painterView extent:(treeView windowSpecClass defaultExtentInUIPainter). |
|
4977 |
"/ painter := UIPainterView in:painterView. |
|
4978 |
"/ painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout. |
|
4979 |
"/ treeView := treeView canvas:painter specName:name. |
|
4980 |
"/ painter treeView:treeView. |
|
4981 |
"/ treeView model addDependent:self. |
|
4982 |
"/ painter enableChannel:(self enableChannel). |
|
1994 | 4983 |
|
765 | 4984 |
super openInterface:aSymbol. |
1994 | 4985 |
|
136 | 4986 |
topView := self window. |
345 | 4987 |
topView label:'GUI Painter'. |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4988 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4989 |
"/ self setupCanvasAndSelectionPanel. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4990 |
"/ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4991 |
"/ selectionPanel window waitUntilVisible. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4992 |
"/ painterView window waitUntilVisible. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4993 |
"/ self window waitUntilVisible. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
4994 |
"/ [ Delay waitForSeconds:0.5. self window topView raise ] fork. |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4995 |
|
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
4996 |
"Modified: / 31-08-2006 / 10:13:16 / cg" |
60 | 4997 |
! |
4998 |
||
109 | 4999 |
openOnClass:aClass |
765 | 5000 |
"opens the GUI Painter on aClass and #windowSpec" |
5001 |
||
109 | 5002 |
self openOnClass:aClass andSelector:#windowSpec |
5003 |
! |
|
5004 |
||
60 | 5005 |
openOnClass:aClass andSelector:aSelector |
1976 | 5006 |
"opens the GUI Painter on aClass and aSelector" |
5007 |
||
157
ce974dce3dd4
enhanced class & method dialog
Claus Gittinger <cg@exept.de>
parents:
156
diff
changeset
|
5008 |
aClass isNil ifTrue:[ |
1976 | 5009 |
(self confirm:'No class given to the GUI Painter (class was probably renamed?)\\Open anyway (to create a new window spec) ?' withCRs) |
5010 |
ifFalse:[^ nil]. |
|
157
ce974dce3dd4
enhanced class & method dialog
Claus Gittinger <cg@exept.de>
parents:
156
diff
changeset
|
5011 |
]. |
60 | 5012 |
|
798
c1116ba57e66
set window specification after realization of the window
ca
parents:
794
diff
changeset
|
5013 |
specSelector := aSelector. |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
5014 |
specClass := aClass. |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
5015 |
specClassName := aClass name. |
798
c1116ba57e66
set window specification after realization of the window
ca
parents:
794
diff
changeset
|
5016 |
|
964
476235fbb312
setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents:
952
diff
changeset
|
5017 |
self openInterface. |
476235fbb312
setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents:
952
diff
changeset
|
5018 |
|
476235fbb312
setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents:
952
diff
changeset
|
5019 |
"/ specSelector := aSelector. |
476235fbb312
setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents:
952
diff
changeset
|
5020 |
"/ specClass := aClass. |
476235fbb312
setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents:
952
diff
changeset
|
5021 |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
5022 |
"Modified: / 31-08-2006 / 10:13:31 / cg" |
713 | 5023 |
! |
5024 |
||
1192
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5025 |
postBuildWith: aBuilder |
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5026 |
super postBuildWith:aBuilder. |
798
c1116ba57e66
set window specification after realization of the window
ca
parents:
794
diff
changeset
|
5027 |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
5028 |
(self toolBarVisibleHolder value |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
5029 |
or:[ self editToolBarVisibleHolder value ]) ifTrue:[ self toolBarVisibilityChanged ]. |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
5030 |
|
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
5031 |
"Created: / 18-02-2007 / 15:03:08 / cg" |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
5032 |
|
1994 | 5033 |
self setupPainter. |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
5034 |
|
1192
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5035 |
"Modified: / 22.8.1998 / 17:41:34 / cg" |
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5036 |
! |
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5037 |
|
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5038 |
postOpenWith: aBuilder |
1994 | 5039 |
"spread the painter and gallery views on the screen" |
1192
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5040 |
|
1194 | 5041 |
|myWindow canvasWindow canvasOrg galleryWindow |
3062 | 5042 |
galleryOrg windowGroup monitorBounds myViewRectangle| |
5043 |
||
5044 |
super postOpenWith:aBuilder. |
|
1957 | 5045 |
|
5046 |
windowGroup := self topApplication windowGroup. |
|
5047 |
windowGroup addPreEventHook:self. |
|
5048 |
||
798
c1116ba57e66
set window specification after realization of the window
ca
parents:
794
diff
changeset
|
5049 |
treeView selection: #(1). |
1247 | 5050 |
aBuilder keyboardProcessor menuBar:nil. |
798
c1116ba57e66
set window specification after realization of the window
ca
parents:
794
diff
changeset
|
5051 |
|
1192
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5052 |
myWindow := self window. |
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5053 |
canvasWindow := self painter topView. |
1456 | 5054 |
[selectionPanel isNil] whileTrue:[ |
5055 |
Delay waitForSeconds:0.1. |
|
5056 |
]. |
|
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
5057 |
|
1192
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5058 |
galleryWindow := selectionPanel window. |
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5059 |
|
1197
ef91ed58b7d4
only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents:
1195
diff
changeset
|
5060 |
"/ try to lay out things non-overlapping |
ef91ed58b7d4
only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents:
1195
diff
changeset
|
5061 |
"/ but only, if the window manager placed all windows |
ef91ed58b7d4
only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents:
1195
diff
changeset
|
5062 |
"/ on top of each other |
3062 | 5063 |
"/ make sure, that all the windows are on the same physical monitor |
5064 |
monitorBounds := device monitorBoundsAt:self window origin. |
|
5065 |
myViewRectangle := myWindow screenBounds. |
|
5066 |
(myViewRectangle intersects:galleryWindow screenBounds) ifTrue:[ |
|
5067 |
galleryOrg := (monitorBounds right - galleryWindow width - 20) |
|
1197
ef91ed58b7d4
only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents:
1195
diff
changeset
|
5068 |
@ |
3062 | 5069 |
((myWindow bottom + 20) min:(monitorBounds bottom - galleryWindow height - 20)). |
5070 |
galleryWindow |
|
5071 |
origin:galleryOrg; |
|
5072 |
raise. |
|
5073 |
]. |
|
5074 |
((myViewRectangle intersects:canvasWindow screenBounds) |
|
5075 |
or:[galleryWindow screenBounds intersects:canvasWindow screenBounds])ifTrue:[ |
|
5076 |
canvasOrg := monitorBounds origin + (10@20). |
|
5077 |
canvasWindow |
|
5078 |
origin:canvasOrg; |
|
5079 |
raise. |
|
1197
ef91ed58b7d4
only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents:
1195
diff
changeset
|
5080 |
]. |
1192
f3f5c92930c9
do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents:
1188
diff
changeset
|
5081 |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5082 |
self setupCanvasAndSelectionPanel. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5083 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5084 |
"/ selectionPanel window waitUntilVisible. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5085 |
"/ painterView window waitUntilVisible. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5086 |
"/ self window waitUntilVisible. |
3062 | 5087 |
[ |
5088 |
Delay waitForSeconds:0.1. |
|
5089 |
myWindow topView raise. |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5090 |
Delay waitForSeconds:0.25. |
3062 | 5091 |
myWindow topView raise |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5092 |
] fork. |
1195 | 5093 |
"Modified: / 13.7.1999 / 21:26:52 / cg" |
1461 | 5094 |
! |
5095 |
||
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5096 |
release |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5097 |
super release. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5098 |
|
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5099 |
painterView notNil ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5100 |
painterView destroy. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5101 |
]. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5102 |
selectionPanel notNil ifTrue:[ |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5103 |
selectionPanel masterApplication:nil. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5104 |
selectionPanel window destroy |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5105 |
]. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5106 |
selectionPanel := nil. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5107 |
treeView := nil. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5108 |
painterView := nil. |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5109 |
! |
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
5110 |
|
1461 | 5111 |
selectionPanelClass |
2218 | 5112 |
^ SelectionPanelClass |
1994 | 5113 |
! |
5114 |
||
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5115 |
setupCanvasAndSelectionPanel |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5116 |
|topView galleryWindow icon| |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5117 |
|
3132 | 5118 |
painterView isOpen ifTrue:[ |
5119 |
^ self. |
|
5120 |
]. |
|
5121 |
||
3296 | 5122 |
icon := self class builderIcon. |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5123 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5124 |
topView := self window. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5125 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5126 |
painterView openInGroup:(topView windowGroup). |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5127 |
painterView application:self. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5128 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5129 |
galleryWindow := selectionPanel window. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5130 |
galleryWindow beToolWindow. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5131 |
galleryWindow openInGroup:(topView windowGroup). |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5132 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5133 |
selectionPanel masterApplication:self. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5134 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5135 |
topView iconLabel:'GUI Painter'. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5136 |
topView icon:icon. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5137 |
painterView iconLabel:'GUI Canvas'. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5138 |
painterView icon:icon. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5139 |
galleryWindow iconLabel:'GUI Gallery'. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5140 |
galleryWindow icon:icon. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5141 |
|
2277
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
5142 |
topView isModal ifFalse:[ |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
5143 |
topView bePartner. |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
5144 |
painterView bePartner. |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
5145 |
galleryWindow bePartner. |
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
5146 |
] |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5147 |
! |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5148 |
|
1994 | 5149 |
setupPainter |
5150 |
"sets the painter's grid parameters, if defined" |
|
5151 |
||
5152 |
|painter settings gridPara hspace vspace| |
|
5153 |
||
5154 |
painter := self painter. |
|
5155 |
settings := self class settings. |
|
5156 |
gridPara := painter gridParameters copy. |
|
5157 |
hspace := settings at: #HGridSpace ifAbsent:10. |
|
5158 |
vspace := settings at: #VGridSpace ifAbsent:10. |
|
5159 |
gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace. |
|
5160 |
painter gridParameters:gridPara. |
|
5161 |
painter gridShown: (settings at: #GridShown ifAbsent:false). |
|
5162 |
painter gridAlign: (settings at: #GridAlign ifAbsent:false). |
|
5163 |
painter shown ifTrue:[painter clearView]. |
|
5164 |
||
5165 |
"Modified: / 22.8.1998 / 17:41:34 / cg" |
|
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5166 |
! |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5167 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5168 |
setupSpecClassAndSelector |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5169 |
|cls name| |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5170 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5171 |
self specClass notNil ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5172 |
specClassName isBehavior ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5173 |
name := specClassName nameWithoutPrefix. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5174 |
] ifFalse:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5175 |
name := specClassName printString string |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5176 |
] |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5177 |
]. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5178 |
(aspects at:#classNameChannel) value:(specClassName ? 'NewApplication'). |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5179 |
|
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5180 |
specSuperclassName isNil ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5181 |
specClassName notNil ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5182 |
(cls := self resolveName:specClassName) notNil ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5183 |
specSuperclassName := cls superclass name. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5184 |
] |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5185 |
] |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5186 |
]. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5187 |
aspects at:#superclassNameChannel |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5188 |
put:((specSuperclassName notNil |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5189 |
ifTrue:[ specSuperclassName ] |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5190 |
ifFalse:[ 'ApplicationModel' ]) asValue). |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5191 |
aspects at:#superclassNameDefaults |
2243 | 5192 |
put:#( 'ApplicationModel' 'SimpleDialog' 'WebApplicationModel') asValue. |
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5193 |
aspects at:#methodNameChannel |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5194 |
put:((specSelector notNil |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5195 |
ifTrue:[ specSelector asValue ] |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
5196 |
ifFalse:[ #windowSpec ]) asValue). |
2243 | 5197 |
|
5198 |
"Modified: / 16-01-2008 / 10:44:55 / cg" |
|
60 | 5199 |
! ! |
5200 |
||
743 | 5201 |
!UIPainter methodsFor:'user actions'! |
446 | 5202 |
|
765 | 5203 |
accept |
5204 |
"accepts all modifications done to the attributes of the current section" |
|
5205 |
||
1071 | 5206 |
|painter layout spec layoutTool layoutView t| |
1068 | 5207 |
|
5208 |
self acceptChannel value:true; value:false. "/ force editFields to accept |
|
1188 | 5209 |
self clearModifiedFlag. |
788 | 5210 |
|
765 | 5211 |
painter := self painter. |
1071 | 5212 |
spec := self specTool specification. |
765 | 5213 |
|
5214 |
self isLayoutToolSelected ifTrue:[ |
|
1188 | 5215 |
layoutTool := self layoutTool. |
5216 |
||
5217 |
(layout := layoutTool layout) notNil ifTrue:[ |
|
2950 | 5218 |
"/ cg->ca: the following code should be moded to the layoutTool |
3325 | 5219 |
"/ (i.e. layoutTool saveInSpec:spec). |
2950 | 5220 |
|
1188 | 5221 |
layoutTool layoutType == #Extent ifTrue:[ |
5222 |
layoutView := layoutTool layoutView. |
|
5223 |
||
2213 | 5224 |
layoutView == self canvas ifTrue:[ |
5225 |
layoutView extent:layout. |
|
5226 |
UseViewScroller == true ifTrue:[ |
|
5227 |
layoutView container container sizeChanged:nil. |
|
5228 |
]. |
|
1188 | 5229 |
] ifFalse:[ |
3236 | 5230 |
spec useDefaultExtent:(layoutTool aspectValueFor:#useDefaultExtent). |
1188 | 5231 |
spec useDefaultExtent ifTrue:[ |
5232 |
"/ temporarily unfreeze the widgets size |
|
5233 |
"/ (but remember, the old setting, which is actually |
|
5234 |
"/ controlled by the resizeForLabel attribute) |
|
5235 |
t := layoutView sizeFixed. |
|
5236 |
layoutView sizeFixed:false. |
|
5237 |
layout := layoutView preferredExtent. |
|
5238 |
layoutView sizeFixed:t. |
|
5239 |
]. |
|
3236 | 5240 |
spec usePreferredWidth:(layoutTool aspectValueFor:#usePreferredWidth). |
5241 |
spec usePreferredHeight:(layoutTool aspectValueFor:#usePreferredHeight). |
|
5242 |
spec useDynamicPreferredWidth:(layoutTool aspectValueFor:#useDynamicPreferredWidth). |
|
5243 |
spec useDynamicPreferredHeight:(layoutTool aspectValueFor:#useDynamicPreferredHeight). |
|
1188 | 5244 |
painter setExtent:layout. |
5245 |
painter updateFromSpec:spec. |
|
5246 |
] |
|
5247 |
] ifFalse:[ |
|
1444
fec7424dccda
clear the useDefaultExtent flag, if the layout is NOT an extent
martin
parents:
1442
diff
changeset
|
5248 |
spec useDefaultExtent:false. |
3236 | 5249 |
spec usePreferredWidth:(layoutTool aspectValueFor:#usePreferredWidth). |
5250 |
spec usePreferredHeight:(layoutTool aspectValueFor:#usePreferredHeight). |
|
5251 |
spec useDynamicPreferredWidth:(layoutTool aspectValueFor:#useDynamicPreferredWidth). |
|
5252 |
spec useDynamicPreferredHeight:(layoutTool aspectValueFor:#useDynamicPreferredHeight). |
|
2950 | 5253 |
layoutTool layoutType == #LayoutFrame ifTrue:[ |
3236 | 5254 |
spec keepSpaceForOSXResizeHandleH:(layoutTool aspectValueFor:#keepSpaceForOSXResizeHandleH). |
5255 |
spec keepSpaceForOSXResizeHandleV:(layoutTool aspectValueFor:#keepSpaceForOSXResizeHandleV). |
|
2950 | 5256 |
]. |
2477
e51d7128bcd4
Fix preferred and dynamic preferred sizes
Stefan Vogel <sv@exept.de>
parents:
2442
diff
changeset
|
5257 |
painter setLayout:layout. |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
5258 |
spec layout:layout. |
2477
e51d7128bcd4
Fix preferred and dynamic preferred sizes
Stefan Vogel <sv@exept.de>
parents:
2442
diff
changeset
|
5259 |
painter updateFromSpec:spec. |
2378 | 5260 |
]. |
1188 | 5261 |
] |
765 | 5262 |
] ifFalse:[ |
1188 | 5263 |
self isHelpToolSelected ifTrue:[ |
5264 |
self helpTool accept. |
|
5265 |
spec activeHelpKey:self helpTool helpKey. |
|
5266 |
]. |
|
5267 |
painter updateFromSpec:spec |
|
1071 | 5268 |
]. |
5269 |
||
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
5270 |
self clearModified |
765 | 5271 |
! |
5272 |
||
3238 | 5273 |
addWidget: aSpecClassSymbol |
765 | 5274 |
"adds a widget from aSpecClass to the current widget" |
5275 |
||
3238 | 5276 |
self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClassSymbol) new) |
765 | 5277 |
! |
5278 |
||
5279 |
addWidgetOfSpec: aSpec |
|
5280 |
"adds a widget from aSpec to the current widget" |
|
5281 |
||
1521
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5282 |
|newSel| |
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5283 |
|
2077 | 5284 |
(newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
5285 |
ifTrue:[ |
|
5286 |
painter select: newSel |
|
5287 |
] ifFalse:[ |
|
1521
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5288 |
((treeView selection size = 0) or: [treeView selectedNode isNil]) |
2077 | 5289 |
ifTrue:[ |
1521
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5290 |
treeView selection: #(1). |
2077 | 5291 |
] ifFalse:[ |
1521
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5292 |
treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5293 |
]. |
2efd2b9419c4
undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents:
1499
diff
changeset
|
5294 |
self addWidgetOfSpec: aSpec |
765 | 5295 |
] |
5296 |
||
2077 | 5297 |
"Modified: / 05-09-2006 / 18:37:12 / cg" |
765 | 5298 |
! |
5299 |
||
3218 | 5300 |
askForMoveByStep |
5301 |
"open a dialog to ask for a number" |
|
5302 |
||
5303 |
|s nPixels| |
|
5304 |
||
5305 |
s := Dialog request:'Number of Pixels to Move: ' |
|
5306 |
initialAnswer:painter nPixelsForMoveSelection asString. |
|
5307 |
s isEmptyOrNil ifTrue:[^ self]. |
|
5308 |
nPixels := Integer readFrom:s onError:nil. |
|
5309 |
nPixels isNil ifTrue:[^ self]. |
|
5310 |
||
5311 |
self painter nPixelsForMoveSelection:nPixels |
|
5312 |
! |
|
5313 |
||
765 | 5314 |
cancel |
5315 |
"cancels all modifications done to the attributes of the current section; |
|
5316 |
reread the old attributes" |
|
5317 |
||
5318 |
|spec key view| |
|
5319 |
||
5320 |
self isModified ifTrue:[ |
|
1188 | 5321 |
(spec := self painter specForSelection) notNil ifTrue:[ |
5322 |
key := spec activeHelpKey. |
|
5323 |
]. |
|
5324 |
self helpTool helpKey:key. |
|
5325 |
||
5326 |
treeView isCanvasSelected ifTrue: [ |
|
5327 |
spec := treeView canvasSpec. |
|
5328 |
]. |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
5329 |
|
1188 | 5330 |
self specTool specification:spec. |
5331 |
view := self layoutTool layoutView. |
|
5332 |
||
5333 |
self setViewInLayoutTool:view spec:spec. |
|
5334 |
spec class == DataSetSpec ifTrue:[ |
|
5335 |
view notNil ifTrue:[ |
|
5336 |
view columnDescriptors:(spec columns) |
|
5337 |
] |
|
5338 |
]. |
|
5339 |
self clearModifiedFlag. |
|
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
5340 |
self clearModified. |
765 | 5341 |
] |
5342 |
! |
|
5343 |
||
3361 | 5344 |
hideEditToolbar |
5345 |
self editToolBarVisibleHolder value:false |
|
5346 |
! |
|
5347 |
||
5348 |
hideToolbar |
|
5349 |
self toolBarVisibleHolder value:false |
|
5350 |
! |
|
5351 |
||
5352 |
replaceWidgetByClass:aSpecOrWidgetClass |
|
5353 |
"replace the selected widget by a new instance of aSpecOrWidgetClass, |
|
5354 |
which gets the old widget's layout" |
|
5355 |
||
5356 |
|newSpecClass oldSpec newSpec| |
|
5357 |
||
5358 |
treeView isCanvasSelected ifTrue:[ |
|
5359 |
^ self |
|
5360 |
]. |
|
5361 |
(newSpecClass := self specClassFromUsersSpecOrWidgetClass:aSpecOrWidgetClass) isNil ifTrue:[ |
|
5362 |
^ newSpecClass |
|
5363 |
]. |
|
5364 |
||
5365 |
oldSpec := self selectedSpec. |
|
5366 |
newSpec := newSpecClass cloneFrom:oldSpec. |
|
5367 |
||
5368 |
self painter replaceSelectionBy:newSpec. |
|
5369 |
||
5370 |
"Modified: / 05-09-2012 / 19:24:40 / cg" |
|
5371 |
! |
|
5372 |
||
5373 |
setMoveByStep:nPixels |
|
5374 |
"change the number of pixels by which the step-buttons move the selected widget(s)" |
|
5375 |
||
5376 |
self painter nPixelsForMoveSelection:nPixels |
|
5377 |
! |
|
5378 |
||
5379 |
specClassFromUsersSpecOrWidgetClass:aSpecOrWidgetClass |
|
5380 |
|newSpecClass| |
|
5381 |
||
5382 |
(aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[ |
|
5383 |
newSpecClass := aSpecOrWidgetClass. |
|
5384 |
] ifFalse:[ |
|
5385 |
(aSpecOrWidgetClass isSubclassOf:View) ifTrue:[ |
|
5386 |
newSpecClass := aSpecOrWidgetClass basicNew specClass. |
|
5387 |
] ifFalse:[ |
|
5388 |
newSpecClass := nil |
|
5389 |
]. |
|
5390 |
]. |
|
5391 |
newSpecClass isNil ifTrue:[ |
|
5392 |
Dialog warn:'Invalid Spec- or View-Class: ' , aSpecOrWidgetClass name. |
|
5393 |
^ nil. |
|
5394 |
]. |
|
5395 |
^ newSpecClass |
|
5396 |
! |
|
5397 |
||
5398 |
useBackgroundImage |
|
5399 |
"select bitmap to underly" |
|
5400 |
||
5401 |
|fn| |
|
5402 |
||
5403 |
fn := Dialog requestFileName:'Bitmap Image File ?' pattern:'*.gif;*.tiff;*.jpg;*.png' fromDirectory:'f:'. |
|
5404 |
fn isNil ifTrue:[ |
|
5405 |
^ self |
|
5406 |
]. |
|
5407 |
painter useSketchFile:fn |
|
5408 |
||
5409 |
"Created: / 16-01-2008 / 17:49:20 / cg" |
|
5410 |
! |
|
5411 |
||
5412 |
useSketch |
|
5413 |
"select sketchfile to underly. |
|
5414 |
Sketchfiles are generated by notepads, which can offline-store drawn sketches" |
|
5415 |
||
5416 |
|fn| |
|
5417 |
||
5418 |
fn := Dialog requestFileName:'Sketch (Notepad Drawing) ?' pattern:'*.TOP' fromDirectory:'f:'. |
|
5419 |
fn isNil ifTrue:[ |
|
5420 |
^ self |
|
5421 |
]. |
|
5422 |
painter useSketchFile:fn |
|
5423 |
||
5424 |
"Created: / 16-01-2008 / 17:49:20 / cg" |
|
5425 |
! |
|
5426 |
||
5427 |
wrapWidgetIntoClass:aSpecOrWidgetClass |
|
5428 |
"put the selected widget into a new instance of aSpecOrWidgetClass, |
|
5429 |
which gets the wrapped widget's layout" |
|
5430 |
||
5431 |
|newSpecClass oldSpec newSpec| |
|
5432 |
||
5433 |
treeView isCanvasSelected ifTrue:[ |
|
5434 |
^ self |
|
5435 |
]. |
|
5436 |
(newSpecClass := self specClassFromUsersSpecOrWidgetClass:aSpecOrWidgetClass) isNil ifTrue:[ |
|
5437 |
^ newSpecClass |
|
5438 |
]. |
|
5439 |
||
5440 |
oldSpec := self selectedSpec. |
|
5441 |
newSpec := newSpecClass new. |
|
5442 |
newSpec layout:oldSpec layout. |
|
5443 |
newSpec component:oldSpec. |
|
5444 |
||
5445 |
self painter replaceSelectionBy:newSpec. |
|
5446 |
||
5447 |
"Modified: / 05-09-2012 / 19:24:40 / cg" |
|
5448 |
! ! |
|
5449 |
||
5450 |
!UIPainter methodsFor:'user actions-menu'! |
|
5451 |
||
1940 | 5452 |
doAskAndReplaceWidgetBy |
3054 | 5453 |
"ask for a widget class, |
5454 |
and replace the selected widget by a new instance of that one, |
|
5455 |
which gets the old widget's layout" |
|
5456 |
||
2397 | 5457 |
|widgetClass list common selectedSpec| |
5458 |
||
5459 |
selectedSpec := self selectedSpec. |
|
5460 |
selectedSpec isNil ifTrue:[^ self]. |
|
2243 | 5461 |
|
5462 |
list := UISpecification allSubclasses |
|
2920 | 5463 |
select:[:cls | |
5464 |
[ cls viewClass notNil] |
|
5465 |
on: NotFoundError |
|
5466 |
do:[ false ] |
|
5467 |
]. |
|
2243 | 5468 |
list sort:[:a :b | a name < b name]. |
5469 |
||
2397 | 5470 |
common := selectedSpec class commonReplacementClasses. |
2243 | 5471 |
common notEmpty ifTrue:[ |
5472 |
list addAllFirst:(common , (Array with:'-')). |
|
5473 |
]. |
|
5474 |
widgetClass := Dialog |
|
3054 | 5475 |
requestClass:'Replace by (Spec or View Class):' |
2243 | 5476 |
list:list |
5477 |
okLabel:'OK' |
|
5478 |
initialAnswer:nil. |
|
1940 | 5479 |
widgetClass isNil ifTrue:[ |
5480 |
^ self |
|
5481 |
]. |
|
5482 |
self replaceWidgetByClass:widgetClass |
|
2243 | 5483 |
|
2920 | 5484 |
"Modified: / 05-09-2012 / 19:31:22 / cg" |
1940 | 5485 |
! |
5486 |
||
3054 | 5487 |
doAskAndWrapWidgetInto |
5488 |
"ask for a container class, |
|
5489 |
and put the selected widget into a new instance of that one, |
|
5490 |
which gets the wrapped widget's layout" |
|
5491 |
||
3361 | 5492 |
|widgetClass list selectedSpec| |
5493 |
||
5494 |
selectedSpec := self selectedSpec. |
|
5495 |
selectedSpec isNil ifTrue:[^ self]. |
|
5496 |
||
5497 |
list := UISpecification allSubclasses |
|
5498 |
select:[:cls | |
|
5499 |
[ cls viewClass notNil |
|
5500 |
and:[ cls supportsSubComponents ]] |
|
5501 |
on: NotFoundError |
|
5502 |
do:[ false ] |
|
5503 |
]. |
|
5504 |
list sort:[:a :b | a name < b name]. |
|
5505 |
||
5506 |
widgetClass := Dialog |
|
5507 |
requestClass:'Wrap into (Spec or View Class):' |
|
5508 |
list:list |
|
5509 |
okLabel:'OK' |
|
5510 |
initialAnswer:nil. |
|
5511 |
widgetClass isNil ifTrue:[ |
|
5512 |
^ self |
|
5513 |
]. |
|
5514 |
self wrapWidgetIntoClass:widgetClass |
|
3054 | 5515 |
! |
5516 |
||
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5517 |
doBrowseActionMethod:aspectSelector |
3256 | 5518 |
"browse or create the action method as entered in the field |
5519 |
(button beside input field in ui-slice pressed)" |
|
2243 | 5520 |
|
5521 |
self acceptOrIgnoreSectionModification. |
|
2240
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
5522 |
|
2222
23205ddb56e1
bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents:
2220
diff
changeset
|
5523 |
self doBrowseActionMethod:aspectSelector nameAs:aspectSelector |
2243 | 5524 |
|
5525 |
"Modified: / 12-01-2008 / 10:32:12 / cg" |
|
2222
23205ddb56e1
bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents:
2220
diff
changeset
|
5526 |
! |
23205ddb56e1
bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents:
2220
diff
changeset
|
5527 |
|
23205ddb56e1
bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents:
2220
diff
changeset
|
5528 |
doBrowseActionMethod:aspectSelector nameAs:aspectNameShown |
3256 | 5529 |
"browse or create the action method as entered in the field. |
5530 |
sent by embedded ui-slice's browse class button." |
|
2240
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
5531 |
|
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5532 |
|cls spec aspect code| |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5533 |
|
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5534 |
cls := self specClass. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5535 |
cls isNil ifTrue:[ |
2296
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
5536 |
Dialog information:'No application class defined.'. |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5537 |
^ self |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5538 |
]. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5539 |
|
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5540 |
spec := painter specForSelection. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5541 |
spec isNil ifTrue:[^ self]. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5542 |
aspect := spec perform:aspectSelector. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5543 |
aspect isNil ifTrue:[ |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5544 |
Dialog information:(resources |
2296
365b3a73cd28
pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents:
2294
diff
changeset
|
5545 |
string:'Please enter an action method name for "%1" first.' |
2222
23205ddb56e1
bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents:
2220
diff
changeset
|
5546 |
with:(resources string:aspectNameShown) allBold). |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5547 |
^ self |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5548 |
]. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5549 |
|
2629
61f3f3a13b9e
changed: #doBrowseActionMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2615
diff
changeset
|
5550 |
(cls includesSelector:aspect asSymbol) ifFalse:[ |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5551 |
(Dialog confirm:(resources |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5552 |
stringWithCRs:'%1 does not implement %2.\\Create ?' |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5553 |
with:(cls name allBold) |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5554 |
with:aspect allBold)) |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5555 |
ifFalse:[ |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5556 |
(Dialog confirm:(resources |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5557 |
stringWithCRs:'Browse implementors of %1 ?' |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5558 |
with:aspect allBold)) |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5559 |
ifTrue:[ |
3228 | 5560 |
SystemBrowser default browseImplementorsOf:aspect |
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5561 |
]. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5562 |
^ self |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5563 |
]. |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5564 |
code := painter |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5565 |
generateActionMethodFor:aspect |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5566 |
spec:nil |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5567 |
inClass:cls. |
3073 | 5568 |
Class packageQuerySignal answer:painter targetClass package do:[ |
5569 |
code readStream fileIn. |
|
5570 |
]. |
|
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5571 |
]. |
3228 | 5572 |
SystemBrowser default openInClass:cls selector:aspect |
3073 | 5573 |
|
5574 |
"Modified: / 28-01-2014 / 21:55:56 / cg" |
|
2210
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5575 |
! |
0a2c19976d82
action creation/browse added
Claus Gittinger <cg@exept.de>
parents:
2208
diff
changeset
|
5576 |
|
3084
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5577 |
doBrowseAspectClass: aspect |
3256 | 5578 |
"sent by embedded ui-slice's 'browse'-class button (for example, subcanvasSpec)." |
5579 |
||
3084
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5580 |
| spec className class | |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5581 |
|
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5582 |
spec := painter specForSelection. |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5583 |
spec isNil ifTrue:[ self error: 'No spec!!'.]. |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5584 |
className := spec perform: aspect. |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5585 |
class := self resolveName: className inClass: specClass. |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5586 |
class isNil ifTrue:[ |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5587 |
Dialog warn: (resources string: 'No such class (%1)' with: className). |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5588 |
^ self. |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5589 |
]. |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5590 |
Smalltalk browseInClass: (self resolveName: className inClass: specClass) |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5591 |
|
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5592 |
"Created: / 24-02-2014 / 17:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5593 |
! |
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5594 |
|
3106 | 5595 |
doBrowseAspectClassAndSelector:classAspectAndSelectorAspect |
3256 | 5596 |
"sent by embedded ui-slice's browse class button (for example, subcanvasSpec)." |
5597 |
||
3106 | 5598 |
| classAspect selector selectorAspect spec className class | |
5599 |
||
5600 |
classAspect := classAspectAndSelectorAspect first. "/ #(#majorKey #minorKey) |
|
5601 |
selectorAspect := classAspectAndSelectorAspect second. "/ #(#majorKey #minorKey) |
|
5602 |
||
5603 |
spec := painter specForSelection. |
|
5604 |
spec isNil ifTrue:[ self error: 'No spec!!'.]. |
|
5605 |
className := spec perform: classAspect. |
|
5606 |
class := self resolveName: className inClass: specClass. |
|
5607 |
class isNil ifTrue:[ |
|
5608 |
Dialog warn: (resources string: 'No such class (%1)' with: className). |
|
5609 |
^ self. |
|
5610 |
]. |
|
5611 |
selector := spec perform: selectorAspect. |
|
5612 |
Smalltalk |
|
5613 |
browseInClass: (self resolveName: className inClass: specClass) theMetaclass |
|
5614 |
selector:selector |
|
5615 |
! |
|
5616 |
||
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5617 |
doBrowseAspectMethod:aspectSelector |
3256 | 5618 |
"browse or create the aspect method as entered in the field |
5619 |
(button beside input field pressed)" |
|
2243 | 5620 |
|
2529
07c7e9ba97ee
changed #doBrowseAspectMethod:
Claus Gittinger <cg@exept.de>
parents:
2527
diff
changeset
|
5621 |
self isModified ifTrue:[ self accept ]. |
07c7e9ba97ee
changed #doBrowseAspectMethod:
Claus Gittinger <cg@exept.de>
parents:
2527
diff
changeset
|
5622 |
"/ self acceptOrIgnoreSectionModification. |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5623 |
self doBrowseAspectMethod:aspectSelector nameAs:aspectSelector |
2243 | 5624 |
|
5625 |
"Modified: / 12-01-2008 / 10:32:15 / cg" |
|
3084
02c5bb5ce4ee
UIPainter>>#doBrowseAspectClass:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3078
diff
changeset
|
5626 |
"Modified (format): / 24-02-2014 / 17:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5627 |
! |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5628 |
|
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5629 |
doBrowseAspectMethod:aspectSelector nameAs:aspectNameShown |
2240
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
5630 |
"browse or create the aspect method as entered in the field" |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
5631 |
|
2527 | 5632 |
|cls spec aspect implementingClass answer| |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5633 |
|
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5634 |
cls := self specClass. |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5635 |
cls isNil ifTrue:[ |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5636 |
Dialog information:'No Application Class defined.'. |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5637 |
^ self |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5638 |
]. |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5639 |
|
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5640 |
spec := painter specForSelection. |
2527 | 5641 |
spec isNil ifTrue:[self halt. ^ self]. |
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5642 |
|
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5643 |
aspect := spec perform:aspectSelector. |
2284
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5644 |
aspect isString ifFalse:[ |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5645 |
"ignore non-strings (list may be an Array)" |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5646 |
aspect isNil ifTrue:[ |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5647 |
Dialog information:(resources |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5648 |
string:'Please enter a Method name for "%1" first.' |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5649 |
with:(resources string:aspectNameShown) allBold). |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5650 |
]. |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5651 |
^ self |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5652 |
]. |
2357 | 5653 |
|
2615
347a0b26e210
changed: #doBrowseAspectMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2568
diff
changeset
|
5654 |
implementingClass := (cls whichClassIncludesSelector:aspect asSymbol). |
2357 | 5655 |
implementingClass isNil ifTrue:[ |
2615
347a0b26e210
changed: #doBrowseAspectMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2568
diff
changeset
|
5656 |
implementingClass := (cls class whichClassIncludesSelector:aspect asSymbol). |
2357 | 5657 |
]. |
5658 |
implementingClass isNil ifTrue:[ |
|
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5659 |
answer := OptionBox |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5660 |
request:(resources |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5661 |
stringWithCRs:'%1 does not implement %2.\\Create ?' |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5662 |
with:(cls name allBold) |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5663 |
with:aspect allBold) |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5664 |
label:'Create/Browse Aspect Method' |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5665 |
image:(WarningBox iconBitmap) |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5666 |
buttonLabels:#('Cancel' 'Browse Implementors' 'Create & Browse' 'Create' ) |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5667 |
values:#(abort browseImplementors createAndBrowse create ) |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5668 |
default:#create |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5669 |
onCancel:#abort. |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5670 |
|
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5671 |
answer == #browseImplementors ifTrue:[ |
3484 | 5672 |
SystemBrowser default browseImplementorsOf:aspect. |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5673 |
^ self |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5674 |
]. |
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5675 |
answer == #abort ifTrue:[ |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5676 |
^ self |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5677 |
]. |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5678 |
|
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5679 |
self doGenerateAspectMethodsForAll:(Array with:aspect). |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5680 |
implementingClass := self painter targetClass. |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5681 |
|
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5682 |
answer == #create ifTrue:[^ self]. |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5683 |
] ifFalse:[ |
2547 | 5684 |
(Dialog confirm:(resources string:'Browse the implementation of "%1" ?' with:aspect)) ifFalse:[ |
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5685 |
^ self. |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5686 |
]. |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5687 |
]. |
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5688 |
|
3484 | 5689 |
SystemBrowser default |
2357 | 5690 |
openInClass:implementingClass selector:aspect |
3484 | 5691 |
|
5692 |
"Modified: / 01-09-2017 / 14:23:30 / cg" |
|
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5693 |
! |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5694 |
|
446 | 5695 |
doBrowseAspectMethods |
2240
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
5696 |
"opens a browser on all the aspect methods" |
765 | 5697 |
|
5698 |
|methods| |
|
446 | 5699 |
|
5700 |
self painter isModified ifTrue:[ |
|
1392
f6f7a70c5d41
browserClass from preferences
Claus Gittinger <cg@exept.de>
parents:
1391
diff
changeset
|
5701 |
self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs. |
446 | 5702 |
]. |
765 | 5703 |
|
5704 |
(methods := self painter aspectMethods) isEmpty ifTrue:[ |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5705 |
self warn:'No aspect methods found !!'. |
1392
f6f7a70c5d41
browserClass from preferences
Claus Gittinger <cg@exept.de>
parents:
1391
diff
changeset
|
5706 |
^ self. |
446 | 5707 |
]. |
3484 | 5708 |
SystemBrowser default |
1684 | 5709 |
browseMethods:methods |
5710 |
title:'Aspect methods'. |
|
3484 | 5711 |
|
5712 |
"Modified: / 01-09-2017 / 14:23:34 / cg" |
|
446 | 5713 |
! |
5714 |
||
713 | 5715 |
doBrowseClass |
765 | 5716 |
"opens a System Browser on the specClass" |
713 | 5717 |
|
5718 |
self painter isModified ifTrue:[ |
|
1392
f6f7a70c5d41
browserClass from preferences
Claus Gittinger <cg@exept.de>
parents:
1391
diff
changeset
|
5719 |
self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs. |
713 | 5720 |
]. |
765 | 5721 |
|
2400 | 5722 |
Smalltalk browseInClass:(self resolveName:specClassName) |
743 | 5723 |
! |
5724 |
||
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5725 |
doBrowseSpecificationClass |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5726 |
"opens an browser on the spec class of the selected widget" |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5727 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5728 |
|spec| |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5729 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5730 |
(spec := self painter specForSelection) isNil ifTrue:[ |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5731 |
treeView isCanvasSelected ifTrue:[ |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5732 |
spec := treeView canvasSpec. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5733 |
] |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5734 |
]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5735 |
spec notNil ifTrue:[ |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5736 |
spec class browse |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5737 |
] |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5738 |
! |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
5739 |
|
1742 | 5740 |
doBrowseViewClass |
5741 |
"opens a browser on the selected widgets class" |
|
5742 |
||
2273 | 5743 |
|selection widget| |
1742 | 5744 |
|
5745 |
((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[ |
|
2273 | 5746 |
widget := selection first |
5747 |
] ifFalse:[ |
|
5748 |
widget := selection |
|
5749 |
]. |
|
5750 |
||
2829 | 5751 |
widget scrolledView class browse |
5752 |
||
5753 |
"Modified: / 22-01-2011 / 12:02:31 / cg" |
|
1742 | 5754 |
! |
5755 |
||
755 | 5756 |
doDefineClassAndSelector |
765 | 5757 |
"launches a dialog for defining class, superclass, and selector of the application" |
755 | 5758 |
|
1819
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5759 |
|again readFromModelKeyed| |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5760 |
|
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5761 |
readFromModelKeyed := [:aKey| |ret| |
3236 | 5762 |
ret := (self aspectValueFor:aKey). |
1819
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5763 |
ret isEmptyOrNil ifTrue:[ |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5764 |
ret := nil |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5765 |
] ifFalse:[ |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5766 |
ret isString ifTrue:[ |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5767 |
ret := ret string withoutSeparators. |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5768 |
ret := ret isEmpty ifTrue:[nil] ifFalse:[ret asSymbol]. |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5769 |
]. |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5770 |
]. |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5771 |
ret |
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5772 |
]. |
755 | 5773 |
|
5774 |
[ |
|
1188 | 5775 |
again := false. |
5776 |
||
2372 | 5777 |
aspects at:#classNameChannel put:(specClassName ? 'NewApplication') asValue. |
1819
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5778 |
aspects at:#methodNameChannel put:(specSelector ? 'windowSpec') asValue. |
1976 | 5779 |
aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue. |
1188 | 5780 |
|
5781 |
(self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[ |
|
2206
1a7921b6c104
changed #doDefineClassAndSelector
Claus Gittinger <cg@exept.de>
parents:
2202
diff
changeset
|
5782 |
specClassName := readFromModelKeyed value:#classNameChannel. |
1819
cbf2079fd723
bugfix: test whether specClass is a symbol not a string
ca
parents:
1803
diff
changeset
|
5783 |
specSelector := readFromModelKeyed value:#methodNameChannel. |
1976 | 5784 |
specSuperclassName := readFromModelKeyed value:#superclassNameChannel. |
1188 | 5785 |
|
5786 |
(again := self checkClassAndSelector not) ifFalse:[ |
|
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5787 |
self painter |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5788 |
className:specClassName |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5789 |
superclassName:specSuperclassName |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5790 |
selector:specSelector. |
1394
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5791 |
]. |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5792 |
|
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5793 |
again ifFalse:[ |
1983 | 5794 |
((Smalltalk at:specClassName asSymbol) notNil |
5795 |
and:[ (Smalltalk at:specClassName asSymbol) class includesSelector:specSelector ]) |
|
1394
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5796 |
ifTrue:[ |
1983 | 5797 |
(self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClassName with:specSelector)) |
1394
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5798 |
ifFalse:[ |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5799 |
again := true. |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5800 |
]. |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5801 |
]. |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5802 |
]. |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
5803 |
] ifFalse: [ |
1188 | 5804 |
^nil |
5805 |
] |
|
755 | 5806 |
|
5807 |
] doWhile:[again]. |
|
5808 |
||
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5809 |
specClassName := specClassName isBehavior |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5810 |
ifTrue:[specClassName name] |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
5811 |
ifFalse:[specClassName]. |
755 | 5812 |
|
1188 | 5813 |
self clearModifiedFlag. |
1983 | 5814 |
self helpTool buildAndMergeFromClass:specClassName. |
765 | 5815 |
self updateInfoLabel |
892
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
5816 |
|
b200d2d9bf5e
avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents:
890
diff
changeset
|
5817 |
"Modified: / 16.7.1998 / 18:26:33 / cg" |
755 | 5818 |
! |
5819 |
||
5820 |
doDefineGrid |
|
765 | 5821 |
"opens a dialog for the grid parameters" |
5822 |
||
755 | 5823 |
|hspace vspace bindings painter gridPara settings| |
5824 |
||
5825 |
painter := self painter. |
|
5826 |
bindings := IdentityDictionary new. |
|
5827 |
gridPara := painter gridParameters copy. |
|
1021 | 5828 |
settings := self class settings. |
5829 |
||
5830 |
bindings at:#showGrid put:((settings at: #GridShown ifAbsent: [painter gridShown]) asValue). |
|
5831 |
bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue). |
|
755 | 5832 |
bindings at:#hspace put:((gridPara at:1) asValue). |
5833 |
bindings at:#vspace put:((gridPara at:2) asValue). |
|
5834 |
||
5835 |
(self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[ |
|
1803 | 5836 |
^ self |
755 | 5837 |
]. |
5838 |
||
5839 |
hspace := (bindings at:#hspace) value ? 5. |
|
5840 |
vspace := (bindings at:#vspace) value ? 5. |
|
5841 |
||
5842 |
gridPara at:1 put:hspace. |
|
5843 |
gridPara at:2 put:vspace. |
|
5844 |
gridPara at:5 put:hspace. |
|
5845 |
gridPara at:6 put:vspace. |
|
5846 |
||
5847 |
painter gridShown:false. |
|
5848 |
painter gridAlign:false. |
|
5849 |
painter gridParameters:gridPara. |
|
5850 |
painter gridAlign:(bindings at:#alignToGrid) value. |
|
5851 |
painter gridShown:(bindings at:#showGrid) value. |
|
1021 | 5852 |
|
755 | 5853 |
settings at: #GridShown put: (bindings at:#showGrid) value. |
5854 |
settings at: #GridAlign put: (bindings at:#alignToGrid) value. |
|
5855 |
settings at: #HGridSpace put: hspace. |
|
5856 |
settings at: #VGridSpace put: vspace. |
|
1803 | 5857 |
painter clearView. |
755 | 5858 |
|
1021 | 5859 |
"Modified: / 4.2.1999 / 15:36:34 / cg" |
755 | 5860 |
! |
5861 |
||
2284
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5862 |
doEditList:listSelector |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5863 |
"browse or create the aspect method as entered in the field (button beside input fieled pressed)" |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5864 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5865 |
|spec list editor| |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5866 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5867 |
self acceptOrIgnoreSectionModification. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5868 |
|
2318 | 5869 |
UIListEditor isNil ifTrue:[^ self]. |
5870 |
||
2284
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5871 |
spec := painter specForSelection. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5872 |
spec isNil ifTrue:[^ self]. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5873 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5874 |
"Kludge: subject - fetch the AspectAdaptor behind the TypeConverter" |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5875 |
list := (specTool aspectFor:listSelector) subject value. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5876 |
list isNil ifTrue:[ |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5877 |
list := #() |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5878 |
]. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5879 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5880 |
editor := UIListEditor new. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5881 |
editor |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5882 |
informationLabel:'Edit List'; |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5883 |
list:list; |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5884 |
useSymbols:(list notEmpty and:[list conform:[:e| e isSymbol]]); "set use symbols, if all elements are symbols" |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5885 |
open. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5886 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5887 |
|
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5888 |
editor accepted ifTrue:[ |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5889 |
"Kludge: subject - fetch the AspectAdaptor behind the TypeConverter" |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5890 |
(specTool aspectFor:listSelector) subject value:editor list. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5891 |
]. |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5892 |
! |
4116d91b6dda
Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents:
2280
diff
changeset
|
5893 |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5894 |
doGenerateAspectMethodFor |
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5895 |
|cls aspectList displayedList selectorsToGenerateCode |
1684 | 5896 |
doBrowse methods| |
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5897 |
|
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5898 |
self askForSectionModification. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5899 |
|
2238 | 5900 |
cls := self painter targetClass. |
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5901 |
|
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5902 |
aspectList := OrderedCollection new. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5903 |
|
3368 | 5904 |
self painter aspectSelectorsAndTypesDo:[:selector :type | |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5905 |
|newEntry| |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5906 |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5907 |
( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[ |
2294
0a4591e6bb20
changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents:
2293
diff
changeset
|
5908 |
((cls canUnderstand:selector) or:[cls class canUnderstand:selector]) ifFalse:[ |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5909 |
newEntry := Array with:selector with:type. |
3368 | 5910 |
(aspectList includes:newEntry) ifFalse:[ |
2235
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5911 |
aspectList add:newEntry. |
ac5b46f34c53
browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents:
2230
diff
changeset
|
5912 |
] |
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5913 |
] |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5914 |
] |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5915 |
]. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5916 |
|
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5917 |
aspectList isEmpty ifTrue:[ |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5918 |
self information:'All aspect methods exist.'. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5919 |
^ self. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5920 |
]. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5921 |
|
2220
ff2b5cb004c2
sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents:
2219
diff
changeset
|
5922 |
aspectList sort:[:a :b | a first < b first]. |
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5923 |
displayedList := aspectList collect:[:entry | (((entry first) paddedTo:25) contractTo:25) , ' -> ' , entry second ]. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5924 |
aspectList := aspectList collect:[:each | each first]. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5925 |
|
1684 | 5926 |
doBrowse := false. |
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5927 |
selectorsToGenerateCode := Dialog |
1684 | 5928 |
choose:'Select aspect(s) for which code shall be generated:' |
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5929 |
fromList:displayedList |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5930 |
values:aspectList |
1684 | 5931 |
initialSelection:nil |
5932 |
buttons:nil |
|
5933 |
values:nil |
|
5934 |
lines:15 |
|
5935 |
cancel:nil |
|
5936 |
multiple:true |
|
5937 |
postBuildBlock:[:dialog | |
|
5938 |
|b| |
|
5939 |
||
5940 |
b := Button label:'Generate & Browse'. |
|
5941 |
b action:[doBrowse := true. dialog okPressed]. |
|
5942 |
b := dialog addButton:b before:dialog okButton. |
|
5943 |
]. |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5944 |
|
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5945 |
selectorsToGenerateCode isEmptyOrNil ifTrue:[^ self]. |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5946 |
|
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5947 |
self doGenerateAspectMethodsForAll:selectorsToGenerateCode. |
1684 | 5948 |
|
1689
5d02658c548a
must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents:
1688
diff
changeset
|
5949 |
"/ refetch - cls is now obsolete |
2238 | 5950 |
cls := self painter targetClass. |
1689
5d02658c548a
must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents:
1688
diff
changeset
|
5951 |
|
1684 | 5952 |
doBrowse ifTrue:[ |
5953 |
methods := selectorsToGenerateCode |
|
1739
f7baa10ebb1c
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
1719
diff
changeset
|
5954 |
collect:[:sel | cls compiledMethodAt:sel] |
1684 | 5955 |
thenSelect:[:m | m notNil]. |
5956 |
||
3484 | 5957 |
SystemBrowser default |
1684 | 5958 |
browseMethods:methods |
5959 |
title:'Some Aspect methods'. |
|
5960 |
]. |
|
3484 | 5961 |
|
5962 |
"Modified: / 01-09-2017 / 14:23:37 / cg" |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5963 |
! |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5964 |
|
743 | 5965 |
doGenerateAspectMethods |
765 | 5966 |
"generates aspect and action methods for the application class" |
5967 |
||
5968 |
self askForSectionModification. |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5969 |
self withWaitCursorDo:[ |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5970 |
|code| |
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5971 |
|
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5972 |
code := self painter generateAspectMethodCode. |
3073 | 5973 |
Class packageQuerySignal answer:painter targetClass package do:[ |
5974 |
code readStream fileIn. |
|
5975 |
] |
|
1683
f95658463570
added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents:
1671
diff
changeset
|
5976 |
] |
3073 | 5977 |
|
5978 |
"Modified: / 28-01-2014 / 21:56:03 / cg" |
|
446 | 5979 |
! |
5980 |
||
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5981 |
doGenerateAspectMethodsForAll:selectorsToGenerateCode |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5982 |
|code| |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5983 |
|
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5984 |
code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
3073 | 5985 |
Class packageQuerySignal answer:painter targetClass package do:[ |
5986 |
code readStream fileIn. |
|
5987 |
] |
|
5988 |
||
5989 |
"Modified: / 28-01-2014 / 21:56:06 / cg" |
|
2525
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5990 |
! |
16c3872003d7
gio improvement when clicking on the browse/create aspect
Claus Gittinger <cg@exept.de>
parents:
2523
diff
changeset
|
5991 |
|
1357 | 5992 |
doGenerateAspectSelectorsMethod |
5993 |
"generates aspectSelectors method for the exported aspects" |
|
5994 |
||
2846 | 5995 |
|aspectSelectorsAsString| |
1357 | 5996 |
|
5997 |
self askForSectionModification. |
|
2846 | 5998 |
aspectSelectorsAsString := self painter generateAspectSelectorsMethod. |
5999 |
aspectSelectorsAsString notEmptyOrNil ifTrue:[ |
|
3073 | 6000 |
Class packageQuerySignal answer:painter targetClass package do:[ |
6001 |
(ReadStream on:aspectSelectorsAsString) fileIn. |
|
6002 |
]. |
|
6003 |
]. |
|
6004 |
||
6005 |
"Modified: / 28-01-2014 / 21:56:09 / cg" |
|
1357 | 6006 |
! |
6007 |
||
743 | 6008 |
doGenerateHookMethods |
765 | 6009 |
"generates hook methods for the application class" |
6010 |
||
6011 |
self askForSectionModification. |
|
6012 |
||
3073 | 6013 |
Class packageQuerySignal answer:painter targetClass package do:[ |
6014 |
(ReadStream on:painter generateHookMethods) fileIn. |
|
6015 |
] |
|
6016 |
||
6017 |
"Modified: / 28-01-2014 / 21:56:13 / cg" |
|
765 | 6018 |
! |
6019 |
||
966
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6020 |
doGenerateMenuMethods |
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6021 |
"generates menu stub methods for the application class" |
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6022 |
|
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6023 |
self askForSectionModification. |
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6024 |
|
3073 | 6025 |
Class packageQuerySignal answer:painter targetClass package do:[ |
6026 |
(ReadStream on:painter generateMenuMethods) fileIn. |
|
6027 |
] |
|
6028 |
||
6029 |
"Created: / 23-08-1998 / 16:10:04 / cg" |
|
966
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6030 |
! |
bbea01c1de98
added menu-action code generation
Claus Gittinger <cg@exept.de>
parents:
964
diff
changeset
|
6031 |
|
765 | 6032 |
doInspectSpec |
6033 |
"opens an inspector on the spec of the selected widget" |
|
6034 |
||
6035 |
|spec| |
|
6036 |
||
2198
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
6037 |
(spec := self painter specForSelection) isNil ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
6038 |
treeView isCanvasSelected ifTrue:[ |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
6039 |
spec := treeView canvasSpec. |
804e778590fc
slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents:
2175
diff
changeset
|
6040 |
] |
446 | 6041 |
]. |
765 | 6042 |
spec notNil ifTrue:[ |
2551
9f95bababe1b
fixes to allow for table-view spec to be inline (no class/selector)
Claus Gittinger <cg@exept.de>
parents:
2547
diff
changeset
|
6043 |
spec inspect. |
765 | 6044 |
] |
6045 |
! |
|
6046 |
||
6047 |
doInspectView |
|
6048 |
"opens an inspector on the view of the selected widget" |
|
6049 |
||
6050 |
|selection| |
|
6051 |
||
6052 |
((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6053 |
selection first inspect |
765 | 6054 |
] ifFalse: [ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6055 |
selection inspect |
765 | 6056 |
] |
6057 |
||
446 | 6058 |
! |
6059 |
||
2243 | 6060 |
doInstallAsWebPage |
6061 |
"lets user select a service, page-name and installs the page" |
|
6062 |
||
2258 | 6063 |
|runningServerPorts again serviceOrPort pageName port serviceLinkName service server app| |
6064 |
||
6065 |
runningServerPorts := (HTTPServer runningServers collect:[:s | s port printString]) asOrderedCollection sort. |
|
2243 | 6066 |
serviceOrPort := lastPort ? LastPort ? '8080'. |
6067 |
pageName := lastPage ? LastPage ? 'myPage'. |
|
6068 |
||
6069 |
[ |
|
6070 |
again := false. |
|
6071 |
||
6072 |
aspects at:#serviceOrPortNameChannel put:serviceOrPort printString asValue. |
|
6073 |
aspects at:#pageNameNameChannel put:pageName printString asValue. |
|
2258 | 6074 |
aspects at:#runningServerPorts put:runningServerPorts. |
2243 | 6075 |
|
6076 |
(self openDialogInterface:#dialogSpecForDefiningPortAndPageName) ifFalse:[^ nil]. |
|
6077 |
||
6078 |
port := Integer readFrom:(aspects at:#serviceOrPortNameChannel) value onError:nil. |
|
6079 |
port isNil ifTrue:[ |
|
6080 |
serviceLinkName := (aspects at:#serviceOrPortNameChannel) value. |
|
6081 |
service := HTTPPortalService allSubInstances select:[:s | s linkName = serviceLinkName]. |
|
6082 |
service notEmptyOrNil ifTrue:[ |
|
6083 |
again := false. |
|
6084 |
service := service first. |
|
6085 |
] ifFalse:[ |
|
6086 |
Dialog warn:'No such service' |
|
6087 |
]. |
|
6088 |
] ifFalse:[ |
|
6089 |
server := HTTPServer serverOnPort:port. |
|
6090 |
service := server |
|
6091 |
serviceForLink:'/portal' |
|
6092 |
ifAbsent:[ |
|
6093 |
service := HTTPPortalService new. |
|
6094 |
service linkName:'/portal'. |
|
6095 |
service class unRegisterServiceOn:server. |
|
6096 |
service registerServiceOn:server. |
|
6097 |
]. |
|
6098 |
]. |
|
6099 |
||
6100 |
pageName := (aspects at:#pageNameNameChannel) value. |
|
6101 |
] doWhile:[again]. |
|
6102 |
||
6103 |
lastPage := LastPage := pageName. |
|
6104 |
lastPort := LastPort := port. |
|
6105 |
||
6106 |
app := self specClass new. |
|
2411 | 6107 |
app webLink:pageName. |
2243 | 6108 |
app service:service. |
6109 |
app defineInterface:(self specSelector). |
|
6110 |
app addToService. |
|
6111 |
||
6112 |
"/ self clearModifiedFlag. |
|
6113 |
"/ self helpTool buildAndMergeFromClass:specClassName. |
|
6114 |
self updateInfoLabel |
|
6115 |
||
6116 |
"Modified: / 15-01-2008 / 14:18:53 / cg" |
|
6117 |
! |
|
6118 |
||
713 | 6119 |
doLoad |
765 | 6120 |
"opens a ResourceSelectionBrowser for loading a window spec from a class" |
713 | 6121 |
|
729 | 6122 |
self askForModification ifFalse: [^nil]. |
6123 |
||
713 | 6124 |
self loadFromMessage: |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6125 |
(ResourceSelectionBrowser |
3032 | 6126 |
request: 'Load Window Spec from Class' |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6127 |
onSuperclass: nil |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6128 |
andClass: self specClass |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6129 |
andSelector: specSelector ? #windowSpec |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6130 |
withResourceTypes: #(canvas)) |
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6131 |
|
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6132 |
"Modified: / 31-08-2006 / 10:14:01 / cg" |
713 | 6133 |
! |
6134 |
||
6135 |
doLoadSubspec |
|
765 | 6136 |
"opens a ResourceSelectionBrowser for loading a sub spec from a class" |
713 | 6137 |
|
1976 | 6138 |
|classAndSelector class selector| |
729 | 6139 |
|
765 | 6140 |
self askForSectionModification. |
729 | 6141 |
|
1976 | 6142 |
classAndSelector := ResourceSelectionBrowser |
3032 | 6143 |
request: 'Load Subspec from Class' |
1976 | 6144 |
onSuperclass: nil |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6145 |
andClass: self specClass |
1976 | 6146 |
andSelector: specSelector |
6147 |
withResourceTypes: #(canvas). |
|
6148 |
||
6149 |
classAndSelector isNil ifTrue:[^ self]. |
|
6150 |
class := classAndSelector methodClass. |
|
6151 |
selector := classAndSelector methodSelector. |
|
1983 | 6152 |
(class == specClassName and: [selector == specSelector]) ifTrue: [ |
1976 | 6153 |
self warn: 'Current interface as subspec not allowed!!'. |
6154 |
^ self. |
|
6155 |
]. |
|
6156 |
(class respondsTo:selector) ifTrue:[ |
|
6157 |
self addWidgetOfSpec:(Array with: (UISubSpecification new majorKey: class name; minorKey: selector)) |
|
713 | 6158 |
] |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6159 |
|
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6160 |
"Modified: / 31-08-2006 / 10:13:56 / cg" |
446 | 6161 |
! |
6162 |
||
6163 |
doNew |
|
765 | 6164 |
"removes all widgets, specClass, and specSelector" |
729 | 6165 |
|
6166 |
self askForModification ifFalse: [^nil]. |
|
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6167 |
specClass := specClassName := specSelector := nil. |
572 | 6168 |
self painter removeAll. |
2564 | 6169 |
"/ self halt. |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
6170 |
treeView canvas topView |
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
6171 |
name: self defaultNameOfCanvas; |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
6172 |
label: self defaultNameOfCanvas. |
755 | 6173 |
self helpTool doNew. |
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
6174 |
self treeSelectionChanged. |
785 | 6175 |
treeView selectedNode changed. |
6176 |
self tabModel value: self tabList value first. |
|
729 | 6177 |
self updateInfoLabel. |
2072
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6178 |
|
0b0a24d7b198
class vs. className confusion
Claus Gittinger <cg@exept.de>
parents:
2040
diff
changeset
|
6179 |
"Modified: / 31-08-2006 / 10:14:10 / cg" |
446 | 6180 |
! |
6181 |
||
3256 | 6182 |
doOpenAspectClassChooserFor: aspect |
6183 |
"open a class chooser; when ok, set the aspect to its name |
|
6184 |
sent by embedded ui-slice's '...'-class button (for example, subcanvasSpec)." |
|
6185 |
||
6186 |
| spec className class choice| |
|
6187 |
||
6188 |
spec := painter specForSelection. |
|
6189 |
spec isNil ifTrue:[ self error: 'No spec!!'.]. |
|
6190 |
className := spec perform: aspect. |
|
6191 |
class := self resolveName: className inClass: specClass. |
|
6192 |
choice := Dialog requestClassName:'Choose class' initialAnswer:(class isNil ifTrue:nil ifFalse:[class name]). |
|
6193 |
choice isEmptyOrNil ifTrue:[^ self ]. |
|
6194 |
||
6195 |
spec perform: (aspect asMutator) with:choice. |
|
6196 |
(specTool aspectFor:aspect) value:choice. |
|
6197 |
! |
|
6198 |
||
765 | 6199 |
doOpenWidgetDocumentation |
6200 |
"opens documentation for the selected widget" |
|
6201 |
||
6202 |
|spec document| |
|
6203 |
||
6204 |
(spec := self specForSelection) isNil ifTrue:[ |
|
1940 | 6205 |
"/ treeView isCanvasSelected ifTrue:[ |
6206 |
"/ spec := nil |
|
6207 |
"/ ] |
|
765 | 6208 |
]. |
6209 |
spec notNil ifTrue:[ |
|
1204 | 6210 |
document := 'tools/uipainter/', spec documentFileName,'.html' |
765 | 6211 |
] ifFalse: [ |
1204 | 6212 |
document := 'tools/uipainter/WindowSpec.html' |
765 | 6213 |
]. |
6214 |
HTMLDocumentView openFullOnDocumentationFile: document |
|
6215 |
! |
|
6216 |
||
446 | 6217 |
doPickAView |
765 | 6218 |
"changes the cursor for picking a view and builds a window spec from it" |
6219 |
||
6220 |
|view| |
|
446 | 6221 |
|
729 | 6222 |
self askForModification ifFalse: [^nil]. |
446 | 6223 |
|
6224 |
(view := Screen current viewFromUser) notNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6225 |
view == Screen current rootView ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6226 |
self painter setupFromSpec:(UISpecification fromView:view topView). |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6227 |
] |
729 | 6228 |
]. |
6229 |
||
6230 |
self updateInfoLabel |
|
6231 |
||
446 | 6232 |
! |
6233 |
||
713 | 6234 |
doSave |
765 | 6235 |
"saves the window spec" |
1850
410f98d259b7
kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents:
1827
diff
changeset
|
6236 |
|
2213 | 6237 |
|code painter specClass extentUsed| |
713 | 6238 |
|
765 | 6239 |
self askForSectionModification. |
713 | 6240 |
self hasSpecClassAndSelector ifFalse:[ |
1850
410f98d259b7
kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents:
1827
diff
changeset
|
6241 |
self doDefineClassAndSelector isNil ifTrue:[ |
410f98d259b7
kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents:
1827
diff
changeset
|
6242 |
^ nil |
410f98d259b7
kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents:
1827
diff
changeset
|
6243 |
] |
713 | 6244 |
]. |
2001 | 6245 |
|
6246 |
specClass := self resolveName:specClassName. |
|
6247 |
(specClass notNil and:[ specClass isClass ]) ifFalse:[ |
|
3032 | 6248 |
self warn:('Oops - cannot save. Class not found: ' , specClassName). |
1976 | 6249 |
^ nil |
6250 |
]. |
|
3155 | 6251 |
ApplicationModel forgetDefaultExtentFor:specClass. |
2001 | 6252 |
|
713 | 6253 |
painter := self painter. |
1177 | 6254 |
painter |
2001 | 6255 |
class:specClass |
1976 | 6256 |
superclassName:specSuperclassName |
1341 | 6257 |
selector:specSelector. |
1851
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6258 |
|
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6259 |
"/ Transcript showCR:'generating windowSpec code...'. |
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6260 |
|
2213 | 6261 |
extentUsed := self canvas extent. |
2264 | 6262 |
(extentUsed > (1024 @ 768)) ifTrue:[ |
1851
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6263 |
Dialog |
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6264 |
warn:(resources |
2740 | 6265 |
stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too large for some displays - if required, resize and save again.' |
2213 | 6266 |
with:extentUsed printString allBold) |
1851
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6267 |
]. |
2264 | 6268 |
(self canvas maxExtent notNil |
6269 |
and:[ extentUsed > self canvas maxExtent ]) ifTrue:[ |
|
6270 |
Dialog |
|
6271 |
warn:(resources |
|
6272 |
stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.' |
|
6273 |
with:extentUsed printString allBold) |
|
6274 |
]. |
|
1851
d036350188f5
warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents:
1850
diff
changeset
|
6275 |
|
3222 | 6276 |
code := painter generateWindowSpecMethodSource. |
3073 | 6277 |
Class packageQuerySignal answer:specClass package do:[ |
6278 |
(ReadStream on:code) fileIn. |
|
6279 |
]. |
|
1357 | 6280 |
self doGenerateAspectSelectorsMethod. |
1669 | 6281 |
self helpTool doSave. |
713 | 6282 |
self updateInfoLabel. |
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
6283 |
self clearModified. |
1177 | 6284 |
painter resetModification. |
2001 | 6285 |
(specClass respondsTo:specSelector) ifTrue:[ |
6286 |
self addHistoryEntryForClass:specClass selector:specSelector. |
|
713 | 6287 |
]. |
3073 | 6288 |
|
6289 |
"Modified: / 28-01-2014 / 21:52:32 / cg" |
|
713 | 6290 |
! |
6291 |
||
6292 |
doSaveAs |
|
765 | 6293 |
"opens a ResourceSelectionBrowser for saving the window spec on a class" |
713 | 6294 |
|
1976 | 6295 |
|classAndSelector| |
713 | 6296 |
|
765 | 6297 |
self askForSectionModification. |
2378 | 6298 |
"/ self hasSpecClassAndSelector ifTrue:[ |
6299 |
"/ self askForModification ifFalse:[^ false]. |
|
6300 |
"/ ]. |
|
1976 | 6301 |
|
6302 |
classAndSelector := ResourceSelectionBrowser |
|
3032 | 6303 |
request: 'Save Window Spec in Class' |
1976 | 6304 |
onSuperclass: #Object |
1983 | 6305 |
andClass: (specClassName ? #ApplicationModel) asSymbol |
1976 | 6306 |
andSelector: specSelector ? #windowSpec |
6307 |
withResourceTypes: #(canvas). |
|
6308 |
||
6309 |
classAndSelector isNil ifTrue:[^ false]. |
|
6310 |
||
2007
77cf7ecc9ecf
embedding as special editors
Claus Gittinger <cg@exept.de>
parents:
2001
diff
changeset
|
6311 |
self clearModified. |
1976 | 6312 |
self painter resetModification. |
6313 |
||
2372 | 6314 |
specClass := classAndSelector methodClass. |
6315 |
specClassName := classAndSelector methodClass name. |
|
1976 | 6316 |
specSelector := classAndSelector methodSelector. |
2372 | 6317 |
specSuperclassName := specClass superclass name. |
1976 | 6318 |
self doSave. |
6319 |
^ true |
|
713 | 6320 |
! |
6321 |
||
3032 | 6322 |
doSaveElementSpecAs |
6323 |
"opens a ResourceSelectionBrowser for saving a spec for the selected |
|
6324 |
elements on a class. |
|
6325 |
Useful to save parts for refactoring a spec into |
|
6326 |
subSpecifications, for example when putting parts into a tab" |
|
6327 |
||
6328 |
|spec fullSpec classAndSelector subSpecClass subSpecClassName subSpecSelector code| |
|
6329 |
||
6330 |
self askForSectionModification. |
|
6331 |
||
6332 |
(spec := self painter specForSelection) isNil ifTrue:[ |
|
6333 |
self warn:('Select a single item first'). |
|
6334 |
^ false |
|
6335 |
]. |
|
6336 |
||
6337 |
classAndSelector := ResourceSelectionBrowser |
|
6338 |
request: 'Save Subspec in Class' |
|
6339 |
onSuperclass: #Object |
|
6340 |
andClass: specClassName |
|
6341 |
andSelector: #subSpec |
|
6342 |
withResourceTypes: #(canvas). |
|
6343 |
||
6344 |
classAndSelector isNil ifTrue:[^ false]. |
|
6345 |
||
6346 |
self clearModified. |
|
6347 |
self painter resetModification. |
|
6348 |
||
6349 |
subSpecClass := classAndSelector methodClass. |
|
6350 |
subSpecClassName := classAndSelector methodClass name. |
|
6351 |
subSpecSelector := classAndSelector methodSelector. |
|
6352 |
||
6353 |
subSpecClass := self resolveName:subSpecClassName. |
|
6354 |
(subSpecClass notNil and:[ subSpecClass isClass ]) ifFalse:[ |
|
6355 |
self warn:('Oops - cannot save - class not found: ' , subSpecClassName). |
|
6356 |
^ false |
|
6357 |
]. |
|
6358 |
||
6359 |
spec := painter fullSpecFor:(painter singleSelection). |
|
6360 |
||
6361 |
fullSpec := treeView generateFullSpecForComponents:(Array with:spec) named:subSpecSelector asUppercaseFirst. |
|
6362 |
code := painter generateWindowSpecMethodSourceFor:fullSpec class:subSpecClassName selector:subSpecSelector. |
|
3073 | 6363 |
Class packageQuerySignal answer:subSpecClass package do:[ |
6364 |
(ReadStream on:code) fileIn. |
|
6365 |
]. |
|
3032 | 6366 |
^ true |
3073 | 6367 |
|
6368 |
"Modified: / 28-01-2014 / 21:53:35 / cg" |
|
3032 | 6369 |
! |
6370 |
||
2240
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6371 |
doSelectAspectMethod:aspectSelector |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6372 |
"open a dialog to select an existing aspect method and enter in the field" |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6373 |
|
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6374 |
self doSelectAspectMethod:aspectSelector nameAs:aspectSelector |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6375 |
! |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6376 |
|
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6377 |
doSelectAspectMethod:aspectSelector nameAs:aspectNameShown |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6378 |
"/ |cls spec aspect code| |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6379 |
"/ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6380 |
"/ cls := self specClass. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6381 |
"/ cls isNil ifTrue:[ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6382 |
"/ Dialog information:'No Application Class defined.'. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6383 |
"/ ^ self |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6384 |
"/ ]. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6385 |
"/ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6386 |
"/ spec := painter specForSelection. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6387 |
"/ spec isNil ifTrue:[^ self]. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6388 |
"/ aspect := spec perform:aspectSelector. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6389 |
"/ aspect isNil ifTrue:[ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6390 |
"/ Dialog information:(resources |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6391 |
"/ string:'Please enter a Method name for "%1" first.' |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6392 |
"/ with:(resources string:aspectNameShown) allBold). |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6393 |
"/ ^ self |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6394 |
"/ ]. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6395 |
"/ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6396 |
"/ (cls implements:aspect asSymbol) ifFalse:[ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6397 |
"/ (Dialog confirm:(resources |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6398 |
"/ stringWithCRs:'%1 does not implement %2.\\Create ?' |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6399 |
"/ with:(cls name allBold) |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6400 |
"/ with:aspect allBold)) |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6401 |
"/ ifFalse:[ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6402 |
"/ (Dialog confirm:(resources |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6403 |
"/ stringWithCRs:'Browse implementors of %1 ?' |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6404 |
"/ with:aspect allBold)) |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6405 |
"/ ifTrue:[ |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6406 |
"/ UserPreferences current systemBrowserClass browseImplementorsOf:aspect |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6407 |
"/ ]. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6408 |
"/ ^ self |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6409 |
"/ ]. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6410 |
"/ code := painter |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6411 |
"/ generateAspectMethodFor:aspect |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6412 |
"/ spec:nil |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6413 |
"/ inClass:cls. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6414 |
"/ code readStream fileIn. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6415 |
"/ ]. |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6416 |
"/ UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6417 |
! |
2cf6b94ae9f9
aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents:
2238
diff
changeset
|
6418 |
|
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
6419 |
doSortItems |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
6420 |
"sort the selected items by position" |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
6421 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
6422 |
treeView doSortItems |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
6423 |
! |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
6424 |
|
446 | 6425 |
doStartApplication |
765 | 6426 |
"starts the application on the editing window spec" |
6427 |
||
1177 | 6428 |
|cls application| |
765 | 6429 |
|
6430 |
self hasSpecClassAndSelector ifFalse:[ |
|
1442
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6431 |
self doSave isNil ifTrue: [^nil]. |
765 | 6432 |
] ifTrue: [ |
1442
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6433 |
self askForSectionModification. |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6434 |
(modified or: [self painter isModified or: [self helpTool modified]]) |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6435 |
ifTrue: |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6436 |
[ |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6437 |
((YesNoBox title:'Window Spec was modified!!') |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6438 |
noText:'Cancel'; |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6439 |
yesText:'Save it and start'; |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6440 |
showAtPointer; |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6441 |
accepted) ifFalse: [^nil]. |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6442 |
self doSave isNil ifTrue: [^nil] |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6443 |
] |
446 | 6444 |
]. |
6445 |
||
1983 | 6446 |
cls := self resolveName:specClassName. |
1177 | 6447 |
cls isNil ifTrue:[ |
1983 | 6448 |
self warn:'Oops cannot start application - no class:' , specClassName. |
1442
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6449 |
^ nil |
1177 | 6450 |
]. |
2227 | 6451 |
application := cls new. |
6452 |
(application respondsTo:#openInterface:) ifFalse:[ |
|
1442
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6453 |
(self confirm:('The application does not respond to the ''openInterface:'' message.\(maybe the spec is supposed to be used as subApplication/subCanvas)\\Shall I try to open this as a standAlone dialog ?') withCRs) |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6454 |
ifTrue:[ |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6455 |
SimpleDialog new openSpec:(cls perform:specSelector) withBindings:nil. |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6456 |
]. |
ed108e53c783
allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents:
1439
diff
changeset
|
6457 |
^ self. |
446 | 6458 |
]. |
765 | 6459 |
application openInterface:specSelector |
446 | 6460 |
! |
6461 |
||
222 | 6462 |
doStepDown |
3130 | 6463 |
"moves the selected widget(s) one step down in the hierarchy" |
765 | 6464 |
|
222 | 6465 |
treeView doStepOver:1 |
6466 |
! |
|
6467 |
||
6468 |
doStepIn |
|
765 | 6469 |
"moves the selected widget into the next widget as child" |
6470 |
||
222 | 6471 |
treeView doStepIn |
6472 |
! |
|
6473 |
||
6474 |
doStepOut |
|
765 | 6475 |
"moves the selected widget out of the parent widget" |
6476 |
||
222 | 6477 |
treeView doStepOut |
6478 |
! |
|
6479 |
||
6480 |
doStepUp |
|
3130 | 6481 |
"moves the selected widget(s) one step up in the hierarchy" |
765 | 6482 |
|
222 | 6483 |
treeView doStepOver:-1 |
743 | 6484 |
! |
6485 |
||
6486 |
doWindowSpec |
|
765 | 6487 |
"opens a code view with the contents of the window spec" |
6488 |
||
6489 |
self askForSectionModification. |
|
6490 |
||
6491 |
CodeView |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6492 |
openWith: self painter generateWindowSpecMethodSource |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6493 |
title: 'Window Spec' |
743 | 6494 |
|
222 | 6495 |
! ! |
6496 |
||
3111 | 6497 |
!UIPainter::ApplicationClassQuery class methodsFor:'documentation'! |
6498 |
||
6499 |
documentation |
|
6500 |
"This Query answers the application class, that is currently being edited" |
|
6501 |
! ! |
|
6502 |
||
222 | 6503 |
!UIPainter::TreeView class methodsFor:'documentation'! |
6504 |
||
3053 | 6505 |
documentation |
6506 |
" |
|
6507 |
selection in tree view; only used by the UIPainter |
|
6508 |
||
6509 |
[see also:] |
|
6510 |
SelectionInTreeView |
|
6511 |
SelectionInTree |
|
6512 |
TreeItem |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6513 |
UIPainter |
222 | 6514 |
|
6515 |
[author:] |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6516 |
Claus Atzkern |
222 | 6517 |
" |
6518 |
||
6519 |
||
3053 | 6520 |
! ! |
6521 |
||
6522 |
!UIPainter::TreeView methodsFor:'accessing'! |
|
6523 |
||
6524 |
canvas |
|
6525 |
"returns the canvas (UIPainterView)" |
|
6526 |
||
6527 |
^ model root contents view |
|
6528 |
||
6529 |
||
6530 |
! |
|
6531 |
||
6532 |
canvas:aCanvas |
|
6533 |
"install canvas (UIPainterView)" |
|
765 | 6534 |
|
1396 | 6535 |
self canvas:aCanvas specName:nil |
281 | 6536 |
! |
6537 |
||
3053 | 6538 |
canvas:aCanvas specName:nameOfSpec |
6539 |
"install canvas (UIPainterView)" |
|
6540 |
||
6541 |
|props| |
|
6542 |
||
6543 |
props := UIPainterView::ViewProperty new. |
|
1394
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
6544 |
props view:aCanvas. |
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
6545 |
|
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
6546 |
model root:(TreeItem |
3251 | 6547 |
name:(nameOfSpec ? painter defaultNameOfCanvas) allBold |
2541
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
6548 |
contents:props). |
6241ec9e6a6f
default name of top-level spec
Claus Gittinger <cg@exept.de>
parents:
2540
diff
changeset
|
6549 |
|
1394
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
6550 |
model root expand. |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
6551 |
self enableChannel:(aCanvas enableChannel). |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
6552 |
! |
97a7eeabae40
overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents:
1392
diff
changeset
|
6553 |
|
3053 | 6554 |
canvasSpec |
765 | 6555 |
"returns spec assigned to canvas" |
6556 |
||
1574 | 6557 |
|spec list cls canvas| |
281 | 6558 |
|
1466
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6559 |
spec := self windowSpecClass new. |
1356 | 6560 |
canvas := self canvas. |
6561 |
||
6562 |
spec fromView:(canvas topView) callBack:nil. |
|
6563 |
||
311 | 6564 |
windowSpec notNil ifTrue:[ |
1356 | 6565 |
spec copyValuesFromSpec:windowSpec. |
311 | 6566 |
]. |
1356 | 6567 |
|
6568 |
spec exportedAspects isNil ifTrue:[ |
|
6569 |
( (cls := canvas className) notNil |
|
1357 | 6570 |
and:[(cls := canvas resolveName:cls) notNil] |
1356 | 6571 |
) ifTrue:[ |
1357 | 6572 |
list := cls perform:#aspectSelectors ifNotUnderstood:nil. |
1356 | 6573 |
]. |
1357 | 6574 |
spec setExportedAspectsFrom:list. |
1360 | 6575 |
windowSpec notNil ifTrue:[ |
6576 |
windowSpec exportedAspects:(spec exportedAspects). |
|
6577 |
] |
|
1356 | 6578 |
]. |
6579 |
||
1466
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6580 |
self propertiesDo:[:aProp| |
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6581 |
|propsSpec| |
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6582 |
|
1357 | 6583 |
spec exportedAspectsAddKey:(aProp model) type:nil. |
1466
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6584 |
propsSpec := aProp spec. |
2251
afc2987e67b1
care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents:
2247
diff
changeset
|
6585 |
propsSpec aspectSelectors |
afc2987e67b1
care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents:
2247
diff
changeset
|
6586 |
select:[:a | a isString or:[a isSymbol]] |
afc2987e67b1
care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents:
2247
diff
changeset
|
6587 |
thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:nil]. |
afc2987e67b1
care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents:
2247
diff
changeset
|
6588 |
propsSpec actionSelectors |
afc2987e67b1
care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents:
2247
diff
changeset
|
6589 |
select:[:a | a isString or:[a isSymbol]] |
afc2987e67b1
care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents:
2247
diff
changeset
|
6590 |
thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:#action]. |
1356 | 6591 |
]. |
6592 |
^ spec |
|
282 | 6593 |
! |
6594 |
||
3053 | 6595 |
canvasSpec:aSpec |
6596 |
"update canvas from spec" |
|
6597 |
||
6598 |
|spec| |
|
6599 |
||
6600 |
self setAttributesFromWindowSpec:aSpec. |
|
6601 |
spec := aSpec copy. |
|
6602 |
spec menu:nil. |
|
6603 |
spec flags:nil. |
|
6604 |
||
6605 |
spec setAttributesIn:(self canvas "topView") with:(UIBuilder new isEditing:true). |
|
6606 |
! |
|
6607 |
||
6608 |
exportedAspects |
|
6609 |
"returns spec assigned to canvas" |
|
6610 |
||
6611 |
windowSpec isNil ifTrue:[^ #()]. |
|
6612 |
^ windowSpec exportedAspects ? #() |
|
6613 |
||
6614 |
! |
|
6615 |
||
6616 |
itemOfView:aView |
|
6617 |
"returns item assigned to view or nil" |
|
6618 |
||
6619 |
aView notNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6620 |
self allItemsDo:[:anItem| |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6621 |
(anItem contents view == aView) ifTrue:[^ anItem] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6622 |
] |
282 | 6623 |
]. |
765 | 6624 |
^ nil |
282 | 6625 |
|
6626 |
||
755 | 6627 |
! |
6628 |
||
3053 | 6629 |
lastDrawnMaster |
6630 |
"returns the lastDrawnMaster" |
|
6631 |
||
6632 |
^ lastDrawnMaster |
|
6633 |
||
6634 |
||
6635 |
! |
|
6636 |
||
6637 |
painter |
|
6638 |
^ painter |
|
6639 |
! |
|
6640 |
||
6641 |
painter:something |
|
6642 |
painter := something. |
|
6643 |
! |
|
6644 |
||
6645 |
windowSpecClass |
|
6646 |
"returns the default windowSpecClass (WindowSpec)" |
|
6647 |
||
6648 |
^ windowSpecClass ? WindowSpec |
|
6649 |
! |
|
6650 |
||
6651 |
windowSpecClass:aClass |
|
1466
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6652 |
"set the default windowSpecClass" |
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6653 |
|
3078 | 6654 |
windowSpecClass := aClass |
222 | 6655 |
! ! |
6656 |
||
3053 | 6657 |
!UIPainter::TreeView methodsFor:'accessing-property'! |
6658 |
||
6659 |
propertiesDo:aOneArgBlock |
|
6660 |
"evaluates the argument a block on each property" |
|
6661 |
||
6662 |
self allItemsDo:[:anItem| aOneArgBlock value:(anItem contents)] |
|
6663 |
||
6664 |
||
6665 |
! |
|
6666 |
||
6667 |
propertyDetect:aOneArgBlock |
|
765 | 6668 |
"evaluates the block on each property" |
6669 |
||
222 | 6670 |
self allItemsDo:[:anItem| |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6671 |
(aOneArgBlock value:(anItem contents)) ifTrue:[^ anItem contents] |
222 | 6672 |
]. |
765 | 6673 |
^ nil |
222 | 6674 |
|
6675 |
! |
|
6676 |
||
3053 | 6677 |
propertySelected |
6678 |
"returns current selected property or nil in case of multi selection |
|
6679 |
or empty selection " |
|
6680 |
||
6681 |
|idx| |
|
6682 |
||
6683 |
selection size == 1 ifTrue:[ |
|
6684 |
(idx := selection first) ~~ 1 ifTrue:[ "canvas: not yet supported" |
|
6685 |
^ (listOfNodes at:idx) contents |
|
6686 |
] |
|
6687 |
]. |
|
6688 |
^ nil |
|
6689 |
||
6690 |
! ! |
|
6691 |
||
6692 |
!UIPainter::TreeView methodsFor:'adding & removing'! |
|
6693 |
||
6694 |
addProperty:aProperty |
|
6695 |
"adds a new item" |
|
6696 |
||
6697 |
^ self addProperty:aProperty beforeIndex:nil. |
|
6698 |
! |
|
6699 |
||
6700 |
addProperty:aProperty beforeIndex:anIndex |
|
2389 | 6701 |
"adds a new item" |
6702 |
||
6703 |
|parent treeItem index| |
|
295 | 6704 |
|
1870 | 6705 |
parent := self detectItemCorespondingToView:(aProperty view superView). |
2389 | 6706 |
parent isNil ifTrue:[^ nil ]. |
6707 |
||
6708 |
treeItem := TreeItem new contents:aProperty. |
|
6709 |
index := parent numberOfChildren + 1. |
|
6710 |
||
6711 |
(anIndex notNil and:[anIndex > 0]) ifTrue:[ |
|
6712 |
index := anIndex min:index. |
|
6713 |
]. |
|
6714 |
model add:treeItem beforeIndex:index below:parent. |
|
6715 |
^ treeItem |
|
3053 | 6716 |
! |
6717 |
||
6718 |
removeAll |
|
6719 |
"removes all items other than canvas" |
|
6720 |
||
6721 |
lastDrawnMaster := nil. |
|
6722 |
windowSpec := nil. |
|
6723 |
||
6724 |
self canvas components copy do:[:aView| |
|
2507 | 6725 |
aView destroy |
6726 |
]. |
|
222 | 6727 |
self canvas subViews copy do:[:aView| |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6728 |
"/ care to not destroy the transparent input view |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6729 |
(aView isInputOnly) ifFalse:[aView destroy] |
222 | 6730 |
]. |
3251 | 6731 |
model root name: painter defaultNameOfCanvas allBold. |
774 | 6732 |
model removeAllOtherThanRoot. |
222 | 6733 |
! |
6734 |
||
3053 | 6735 |
removeView:aView |
6736 |
"removes a view" |
|
6737 |
||
6738 |
|item prnt| |
|
6739 |
||
6740 |
((item := self itemOfView:aView) notNil and:[(prnt := item parent) notNil]) ifTrue:[ |
|
6741 |
aView destroy. |
|
6742 |
prnt contents view sizeChanged:nil. |
|
6743 |
model remove:item |
|
6744 |
] |
|
6745 |
||
6746 |
||
6747 |
! ! |
|
6748 |
||
6749 |
!UIPainter::TreeView methodsFor:'building'! |
|
6750 |
||
6751 |
generateFullSpecForComponents:aSpecArray named:specNameSymbol |
|
765 | 6752 |
"generates a full spec from aSpecArray" |
6753 |
||
351 | 6754 |
|fullSpec winSpec| |
311 | 6755 |
|
6756 |
fullSpec := FullSpec new. |
|
1058 | 6757 |
fullSpec name:specNameSymbol. |
311 | 6758 |
|
2213 | 6759 |
fullSpec fromBuilder:(self canvas) |
6760 |
components:(SpecCollection new collection:aSpecArray). |
|
311 | 6761 |
|
2223 | 6762 |
winSpec := fullSpec window. |
6763 |
windowSpec isNil ifTrue:[ |
|
6764 |
"/ kludge: if grid was on, its now present in the windowSpec (which should not) |
|
6765 |
self canvas gridShown ifTrue:[ |
|
6766 |
fullSpec window backgroundColor:nil. |
|
6767 |
]. |
|
6768 |
] ifFalse:[ |
|
2213 | 6769 |
winSpec copyValuesFromSpec:windowSpec. |
311 | 6770 |
]. |
2223 | 6771 |
winSpec name: winSpec label. |
2277
342f25e2c276
more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents:
2273
diff
changeset
|
6772 |
^ fullSpec. |
311 | 6773 |
! |
6774 |
||
3053 | 6775 |
setAttributesFromWindowSpec:aWindowSpec |
6776 |
"sets a window spec from aWindowSpec and applies some attributes |
|
6777 |
to the canvas." |
|
6778 |
||
6779 |
|name canvasView builder| |
|
765 | 6780 |
|
1466
6fecdd5341dc
allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents:
1461
diff
changeset
|
6781 |
windowSpec := (self windowSpecClass) new copyValuesFromSpec:aWindowSpec. |
1172
e22253cb348f
set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents:
1167
diff
changeset
|
6782 |
canvasView := self canvas. |
e22253cb348f
set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents:
1167
diff
changeset
|
6783 |
|
e22253cb348f
set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents:
1167
diff
changeset
|
6784 |
builder := UIBuilder new isEditing:true. |
e22253cb348f
set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents:
1167
diff
changeset
|
6785 |
aWindowSpec setAttributesIn:canvasView with:builder. |
e22253cb348f
set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents:
1167
diff
changeset
|
6786 |
|
1391 | 6787 |
name := aWindowSpec label. |
6788 |
canvasView topView name:name. |
|
6789 |
self canvasNameChanged:name. |
|
1710
4d81ff7b3412
autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents:
1698
diff
changeset
|
6790 |
self application treeSelectionChanged. |
311 | 6791 |
! ! |
6792 |
||
3053 | 6793 |
!UIPainter::TreeView methodsFor:'canvas selection'! |
6794 |
||
6795 |
canvasSelection:aSelection |
|
6796 |
"canvas changed its selection |
|
6797 |
" |
|
6798 |
|sel list size| |
|
6799 |
||
6800 |
((sel := aSelection) isNil or:[sel isCollection]) ifFalse:[ |
|
6801 |
sel := Array with:sel |
|
6802 |
]. |
|
6803 |
||
6804 |
(size := sel size) ~~ 0 ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6805 |
list := OrderedCollection new:size. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6806 |
|
2552 | 6807 |
sel do:[:aView| |
6808 |
|item| |
|
6809 |
||
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6810 |
(item := self itemOfView:aView) notNil ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6811 |
list add:item. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6812 |
model doMakeVisible:item. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6813 |
] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6814 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6815 |
sel := list collect:[:anItem| self indexOfNode:anItem ]. |
774 | 6816 |
]. |
2256
2bd9e855e6ac
code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents:
2251
diff
changeset
|
6817 |
self canvasEventsDisabledDo:[ self selection:sel ]. |
2bd9e855e6ac
code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents:
2251
diff
changeset
|
6818 |
! |
2bd9e855e6ac
code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents:
2251
diff
changeset
|
6819 |
|
3053 | 6820 |
canvasSelectionAdd:aView |
6821 |
"canvas adds a view to current selection |
|
6822 |
" |
|
6823 |
|item index oldSel| |
|
6824 |
||
6825 |
item := self itemOfView:aView. |
|
6826 |
||
6827 |
item notNil ifTrue:[ |
|
6828 |
model doMakeVisible:item. |
|
6829 |
||
6830 |
(index := self indexOfNode:item) ~~ 0 ifTrue:[ |
|
6831 |
oldSel := selection copy. |
|
6832 |
self addToSelection:index. |
|
6833 |
self selectionChangedFrom:oldSel |
|
6834 |
] |
|
6835 |
] |
|
6836 |
! |
|
6837 |
||
6838 |
canvasSelectionRemove:aView |
|
6839 |
"canvas removes a view from current selection |
|
6840 |
" |
|
6841 |
|item index oldSel| |
|
6842 |
||
6843 |
( (item := self itemOfView:aView) notNil |
|
6844 |
and:[(index := self indexOfNode:item) ~~ 0 |
|
6845 |
and:[self isInSelection:index]] |
|
6846 |
) ifTrue:[ |
|
6847 |
oldSel := selection copy. |
|
6848 |
self removeFromSelection:index. |
|
6849 |
self selectionChangedFrom:oldSel. |
|
6850 |
]. |
|
6851 |
! |
|
6852 |
||
6853 |
selectedViews |
|
6854 |
^ self selection |
|
2552 | 6855 |
collect:[:index | |
6856 |
|node view| |
|
6857 |
||
6858 |
node := listOfNodes at:index. |
|
6859 |
view := node contents view. |
|
6860 |
view |
|
6861 |
] |
|
3053 | 6862 |
! ! |
6863 |
||
6864 |
!UIPainter::TreeView methodsFor:'change & update'! |
|
6865 |
||
6866 |
canvasNameChanged:aName |
|
6867 |
"called if identification name assigned to window (canvas) changed |
|
6868 |
" |
|
6869 |
|name node| |
|
6870 |
||
6871 |
node := listOfNodes at:1. |
|
281 | 6872 |
|
6873 |
( aName size ~~ 0 |
|
6874 |
and:[(name := aName string withoutSeparators) size ~~ 0 |
|
6875 |
and:[(self propertyDetect:[:p| p name = name]) isNil |
|
6876 |
and:[node name ~= name]]] |
|
6877 |
) ifTrue:[ |
|
3251 | 6878 |
node name: name allBold. |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6879 |
node changed. |
281 | 6880 |
]. |
6881 |
! |
|
6882 |
||
3053 | 6883 |
layoutChanged |
6884 |
"layout of any component changed; in case of single selection, the |
|
6885 |
application will be informed to update its layout |
|
222 | 6886 |
" |
6887 |
selection size == 1 ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6888 |
self application layoutChanged |
222 | 6889 |
] |
6890 |
||
6891 |
||
6892 |
! |
|
6893 |
||
3053 | 6894 |
propertyChanged:aProperty |
6895 |
"property of view derived from argument a property changed |
|
222 | 6896 |
" |
6897 |
|item idx end| |
|
6898 |
||
6899 |
item := self itemOfView:(aProperty view). |
|
6900 |
||
6901 |
item notNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6902 |
item contents:aProperty. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6903 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6904 |
item name = aProperty name ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6905 |
idx := self firstLineShown. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6906 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6907 |
(end := self lastLineShown) > listOfNodes size ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6908 |
end := listOfNodes size |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6909 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6910 |
item changed. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6911 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6912 |
[idx <= end] whileTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6913 |
(listOfNodes at:idx) == item ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6914 |
self redrawLine:idx. "/ is visible; redraw line |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6915 |
end := 0 |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6916 |
] ifFalse:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6917 |
idx := idx + 1 |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6918 |
] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6919 |
] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6920 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6921 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6922 |
self selectedNode == item ifTrue:[ "/ inform application |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6923 |
self application propertyChanged |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
6924 |
] |
222 | 6925 |
]. |
6926 |
||
6927 |
||
6928 |
! ! |
|
6929 |
||
3053 | 6930 |
!UIPainter::TreeView methodsFor:'drag & drop'! |
6931 |
||
6932 |
canDrop:aDropContext |
|
6933 |
"can drop ? -> delegate to canvas" |
|
6934 |
||
6935 |
^ self canvas canDrop:aDropContext |
|
6936 |
||
6937 |
"Modified: / 13-10-2006 / 16:08:43 / cg" |
|
6938 |
! |
|
6939 |
||
6940 |
canDrop:aDropContext at:aPoint |
|
2114 | 6941 |
"can drop ? -> delegate to canvas" |
6942 |
||
2117 | 6943 |
^ self canvas canDrop:aDropContext at:aPoint |
2114 | 6944 |
|
6945 |
"Created: / 13-10-2006 / 12:35:53 / cg" |
|
2117 | 6946 |
"Modified: / 13-10-2006 / 16:08:46 / cg" |
2114 | 6947 |
! |
6948 |
||
3053 | 6949 |
canDropObjects:aCollectionOfDropObjects |
6950 |
"can drop ? -> delegate to canvas" |
|
6951 |
||
6952 |
^ self canvas canDropObjects:aCollectionOfDropObjects |
|
6953 |
||
6954 |
"Created: / 13-10-2006 / 16:08:31 / cg" |
|
6955 |
! |
|
6956 |
||
6957 |
canDropObjects:aCollectionOfDropObjects at:aPoint |
|
6958 |
"can drop ? -> delegate to canvas" |
|
6959 |
||
6960 |
^ self canvas canDropObjects:aCollectionOfDropObjects at:aPoint |
|
6961 |
||
6962 |
"Created: / 13-10-2006 / 16:08:35 / cg" |
|
6963 |
! |
|
6964 |
||
6965 |
drop:aDropContext |
|
6966 |
"drop objects -> delegate to canvas" |
|
6967 |
||
6968 |
self canvas drop:aDropContext |
|
6969 |
||
6970 |
"Created: / 13-10-2006 / 12:35:59 / cg" |
|
6971 |
"Modified: / 13-10-2006 / 16:09:04 / cg" |
|
6972 |
! |
|
6973 |
||
6974 |
drop:aDropContext at:aPoint |
|
6975 |
"drop objects -> delegate to canvas" |
|
6976 |
||
6977 |
self canvas drop:aDropContext at:nil |
|
6978 |
||
6979 |
"Modified: / 13-10-2006 / 16:09:07 / cg" |
|
6980 |
! |
|
6981 |
||
6982 |
dropObjects:aCollectionOfDropObjects |
|
6983 |
"drop objects -> delegate to canvas" |
|
6984 |
||
6985 |
self canvas dropObjects:aCollectionOfDropObjects |
|
6986 |
||
6987 |
"Created: / 13-10-2006 / 16:08:51 / cg" |
|
6988 |
! |
|
6989 |
||
6990 |
dropObjects:aCollectionOfDropObjects at:aPoint |
|
6991 |
"drop objects -> delegate to canvas" |
|
6992 |
||
6993 |
self canvas dropObjects:aCollectionOfDropObjects at:nil |
|
6994 |
||
6995 |
"Created: / 13-10-2006 / 16:08:56 / cg" |
|
6996 |
! ! |
|
6997 |
||
6998 |
!UIPainter::TreeView methodsFor:'enumerating'! |
|
6999 |
||
7000 |
allItemsDo:aOneArgBlock |
|
7001 |
"evaluates the argument a block on each item other than the canvas" |
|
7002 |
||
7003 |
model root allChildrenDo:aOneArgBlock |
|
7004 |
||
7005 |
||
7006 |
! ! |
|
7007 |
||
7008 |
!UIPainter::TreeView methodsFor:'event handling'! |
|
7009 |
||
7010 |
canvasEventsDisabledDo:aBlock |
|
7011 |
"evaluates the block without raising selection changed notifications to canvas" |
|
7012 |
||
7013 |
|restoreCanvasEvents| |
|
7014 |
||
7015 |
restoreCanvasEvents := canvasEventsDisabled. |
|
7016 |
canvasEventsDisabled := true. |
|
7017 |
aBlock value. |
|
7018 |
canvasEventsDisabled := restoreCanvasEvents. |
|
7019 |
! |
|
7020 |
||
7021 |
doubleClicked |
|
7022 |
"disables collapsing of the root item" |
|
7023 |
||
7024 |
self selectedNode == model root ifFalse:[ |
|
7025 |
super doubleClicked |
|
7026 |
] |
|
7027 |
||
7028 |
||
7029 |
! |
|
7030 |
||
7031 |
redrawLabelAt:x y:yTop index:anIndex |
|
7032 |
"draws a tiny rectangle for indicating the master node (first selected node)" |
|
7033 |
||
7034 |
|dX| |
|
7035 |
||
7036 |
super redrawLabelAt:x y:yTop index:anIndex. |
|
7037 |
||
7038 |
((selection size > 1) and: [selection first == anIndex]) ifTrue:[ |
|
7039 |
dX := textInset - 1. |
|
3386 | 7040 |
gc paint:(Color red). "/ self application painter handleMasterColor. |
7041 |
gc fillRectangleX:(x - dX - 2) y:yTop + ((fontHeight - dX) // 2) |
|
7042 |
width:dX height:dX |
|
3053 | 7043 |
] |
3051 | 7044 |
! ! |
7045 |
||
7046 |
!UIPainter::TreeView methodsFor:'initialization'! |
|
7047 |
||
3053 | 7048 |
iconForNode:aNode |
7049 |
|spec| |
|
7050 |
||
7051 |
spec := aNode contents spec. |
|
7052 |
spec isNil ifTrue: [ |
|
7053 |
^ WindowSpec icon |
|
7054 |
] ifFalse:[ |
|
7055 |
^ spec icon |
|
7056 |
] |
|
7057 |
! |
|
7058 |
||
7059 |
initialize |
|
7060 |
"initialize the tree view; multiple select and tree item actions" |
|
7061 |
||
7062 |
super initialize. |
|
7063 |
||
7064 |
self multipleSelectOk:true. |
|
7065 |
canvasEventsDisabled := false. |
|
7066 |
self showDirectoryIndicator: true. |
|
7067 |
self showDirectoryIndicatorForRoot: false. |
|
7068 |
||
7069 |
self model |
|
7070 |
iconAction:[:aNode| self iconForNode:aNode]; |
|
7071 |
labelAction: [:aNode | self labelForNode:aNode]. |
|
7072 |
! |
|
7073 |
||
7074 |
labelForNode:aNode |
|
7075 |
|spec| |
|
7076 |
||
7077 |
spec := aNode contents spec. |
|
7078 |
spec notNil ifTrue: [ |
|
7079 |
^ self nameForSpecInList:spec |
|
7080 |
] ifFalse:[ |
|
7081 |
^ aNode name |
|
7082 |
] |
|
222 | 7083 |
! ! |
7084 |
||
3051 | 7085 |
!UIPainter::TreeView methodsFor:'private'! |
7086 |
||
3053 | 7087 |
nameForSpecInList:aSpec |
7088 |
"returns the tree item label for aSpec" |
|
7089 |
||
7090 |
|aspect aspectPrefix nameString viewClassString| |
|
7091 |
||
7092 |
nameString := aSpec name ? ''. |
|
7093 |
viewClassString := '[',aSpec viewClass name,']' . |
|
7094 |
||
7095 |
aspect := aSpec nameOfMainAspect. |
|
2230 | 7096 |
aspect notNil ifTrue:[ |
2854 | 7097 |
aspectPrefix := '(',aspect allBold ,') ' |
7098 |
] ifFalse:[ |
|
7099 |
aspectPrefix := ''. |
|
7100 |
]. |
|
7101 |
||
7102 |
^ aspectPrefix, nameString, ': ', viewClassString |
|
7103 |
||
7104 |
"Modified: / 17-08-2011 / 09:10:31 / cg" |
|
222 | 7105 |
! |
7106 |
||
3053 | 7107 |
selectionChangedFrom:oldSelection |
222 | 7108 |
"selection has changed. update master selection and raise notification |
7109 |
to canvas in case of enabled cvs events |
|
7110 |
" |
|
282 | 7111 |
|sel size| |
222 | 7112 |
|
7113 |
super selectionChangedFrom:oldSelection. |
|
282 | 7114 |
size := selection size. |
222 | 7115 |
|
2256
2bd9e855e6ac
code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents:
2251
diff
changeset
|
7116 |
canvasEventsDisabled ifFalse:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7117 |
(size ~~ 0 and:[size ~~ 1 or:[selection first ~~ 1]]) ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7118 |
sel := OrderedCollection new. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7119 |
|
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7120 |
selection do:[:i| |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7121 |
i ~~ 1 ifTrue:[sel add:(listOfNodes at:i) contents view] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7122 |
] |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7123 |
]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7124 |
self canvas updateSelectionFromModel:sel |
778 | 7125 |
]. |
713 | 7126 |
size = 1 ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7127 |
oldSelection size > 1 ifTrue: [ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7128 |
(listOfNodes at:lastDrawnMaster) retrieveLabel. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7129 |
self redrawLine: lastDrawnMaster. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7130 |
lastDrawnMaster := selection first |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7131 |
] |
713 | 7132 |
]. |
7133 |
size > 1 ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7134 |
selection first ~~ lastDrawnMaster ifTrue: [ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7135 |
(listOfNodes at:selection first) retrieveLabel. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7136 |
lastDrawnMaster notNil ifTrue: [(listOfNodes at:lastDrawnMaster) retrieveLabel]. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7137 |
self redrawLine: lastDrawnMaster. |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7138 |
self redrawLine: (lastDrawnMaster := selection first) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7139 |
] |
785 | 7140 |
] |
713 | 7141 |
ifFalse: [ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7142 |
lastDrawnMaster := nil |
785 | 7143 |
] |
3053 | 7144 |
! ! |
7145 |
||
7146 |
!UIPainter::TreeView methodsFor:'queries'! |
|
7147 |
||
7148 |
canChangeOrderInContainer |
|
7149 |
"returns true if any selection exists and all widgets in the selection |
|
7150 |
can change their layout through to a move or align operation" |
|
565 | 7151 |
|
3130 | 7152 |
"/ old code (only allow if a single item is selected): |
7153 |
"/ |
|
7154 |
"/ ^(selection size == 1) and: |
|
7155 |
"/ [(selection at: 1) ~~ 1 and: |
|
7156 |
"/ [self selectedNode parent children size > 1]] |
|
7157 |
||
7158 |
^ self selectedNodes |
|
7159 |
conform:[:eachSelectedNode | |
|
7160 |
|parent| |
|
7161 |
||
7162 |
(parent := eachSelectedNode parent) notNil |
|
7163 |
and:[parent children size > 1] |
|
7164 |
]. |
|
565 | 7165 |
! |
7166 |
||
3053 | 7167 |
canExchangeSelectionLayouts |
7168 |
"returns true if the selections size is exactly 2 |
|
7169 |
and all widgets in the selection |
|
7170 |
can change their layout through to a move or align operation" |
|
7171 |
||
7172 |
selection size == 2 ifFalse:[ |
|
7173 |
^ false |
|
7174 |
]. |
|
7175 |
^ self canMoveOrAlignSelection |
|
7176 |
! |
|
7177 |
||
7178 |
canMoveOrAlignSelection |
|
282 | 7179 |
"returns true if any selection exists and all widgets in the selection |
765 | 7180 |
can change their layout through to a move or align operation" |
282 | 7181 |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7182 |
selection isEmptyOrNil ifTrue:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7183 |
^ false |
282 | 7184 |
]. |
7185 |
||
7186 |
selection do:[:i| |
|
2361
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7187 |
|node view| |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7188 |
|
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7189 |
i == 1 ifTrue:[ |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7190 |
"/ the tree node for the canvas itself. |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7191 |
^ false |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7192 |
]. |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7193 |
node := listOfNodes at:i. |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7194 |
view := node contents view. |
ae171f5bc002
can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents:
2357
diff
changeset
|
7195 |
(self canvas canChangeLayoutOfView:view) ifFalse:[ |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7196 |
^ false |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7197 |
] |
282 | 7198 |
]. |
7199 |
^ true |
|
7200 |
! |
|
7201 |
||
3053 | 7202 |
canMoveSelectionIntoContainer |
765 | 7203 |
"returns true in case that one widget is selected and can change its container |
2280
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7204 |
widget to an element below" |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7205 |
|
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7206 |
|item oldParentItem newParentItem idx| |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7207 |
|
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7208 |
item := self selectedNode. |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7209 |
(item notNil and:[(oldParentItem := item parent) notNil]) ifTrue:[ |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7210 |
idx := (oldParentItem indexOfChild:item) + 1. |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7211 |
newParentItem := oldParentItem children detect:[:eachChild| |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7212 |
eachChild contents spec class supportsSubComponents |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7213 |
] startingAt:idx ifNone:nil. |
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7214 |
^ newParentItem notNil. |
222 | 7215 |
]. |
2280
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7216 |
|
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7217 |
^ false |
3053 | 7218 |
! |
7219 |
||
7220 |
canMoveSelectionOutOfContainer |
|
7221 |
"returns true in case that one widget is selected which is contained within |
|
765 | 7222 |
another widget" |
7223 |
||
222 | 7224 |
|item prnt| |
7225 |
||
7226 |
( (item := self selectedNode) isNil |
|
7227 |
or:[(prnt := item parent) isNil |
|
7228 |
or:[prnt parent isNil]] |
|
7229 |
) ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7230 |
^ false |
222 | 7231 |
]. |
765 | 7232 |
^ true |
222 | 7233 |
! |
7234 |
||
3053 | 7235 |
canResizeSelectedWidget |
7236 |
"returns true in case of one widget selected and is contained |
|
7237 |
within a widget which allows to resize sub components" |
|
765 | 7238 |
|
7239 |
|selectedNode| |
|
7240 |
||
7241 |
(selectedNode := self selectedNode) notNil ifTrue:[ |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7242 |
(selectedNode := selectedNode parent) notNil ifTrue:[ |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7243 |
^ (selectedNode parent isNil or:[selectedNode contents spec class canResizeSubComponents]) |
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7244 |
] |
301 | 7245 |
]. |
7246 |
^ false |
|
7247 |
! |
|
7248 |
||
3053 | 7249 |
canResizeSelection |
7250 |
"returns true if all selected widgets can be resized" |
|
7251 |
||
7252 |
selection isEmptyOrNil ifTrue:[ ^ false ]. |
|
7253 |
^ self canvas canResize:(self selectedViews) |
|
7254 |
! |
|
7255 |
||
3361 | 7256 |
hasMultipleSelectionOtherThanCanvas |
7257 |
"returns true in case that any selection other than the canvas exists" |
|
7258 |
||
7259 |
^ selection size > 0 and:[ (selection count:[:anyindex | anyindex ~~ 1]) > 1] |
|
7260 |
! |
|
7261 |
||
3053 | 7262 |
hasOneSelectionOtherThanCanvas |
7263 |
"returns true in case that one selection exists other than the canvas" |
|
7264 |
||
7265 |
^ selection size == 1 and:[selection first ~~ 1] |
|
7266 |
! |
|
7267 |
||
3361 | 7268 |
hasSelectionOtherThanCanvas |
7269 |
"returns true in case that any selection other than the canvas exists" |
|
7270 |
||
7271 |
^ selection size > 0 and:[selection contains:[:anyindex | anyindex ~~ 1]] |
|
7272 |
! |
|
7273 |
||
3053 | 7274 |
isCanvasSelected |
7275 |
"returns true in case of a single selection and the |
|
7276 |
selection is the canvas (index 1)" |
|
7277 |
||
7278 |
^ selection size == 1 and:[self isInSelection:1] |
|
7279 |
! ! |
|
7280 |
||
7281 |
!UIPainter::TreeView methodsFor:'searching'! |
|
7282 |
||
7283 |
detectItemCorespondingToView:aView |
|
3444 | 7284 |
"detects the item corresponding to the view. The item of the view or the first |
3053 | 7285 |
subview providing the item is returned. If no property is detected nil is |
7286 |
returned" |
|
7287 |
||
7288 |
|view item| |
|
7289 |
||
7290 |
(view := aView) isNil ifTrue:[ ^ nil ]. |
|
7291 |
||
7292 |
[(item := self itemOfView:view) isNil] whileTrue:[ |
|
7293 |
(view := view superView) isNil ifTrue:[^ listOfNodes at:1] |
|
7294 |
]. |
|
7295 |
^ item |
|
3444 | 7296 |
|
7297 |
"Modified (comment): / 11-05-2017 / 12:42:31 / mawalch" |
|
3053 | 7298 |
! ! |
7299 |
||
7300 |
!UIPainter::TreeView methodsFor:'user interaction'! |
|
7301 |
||
7302 |
askForSelectionChangeAllowed |
|
1621
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
7303 |
selectConditionBlock notNil ifTrue:[ |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
7304 |
^ selectConditionBlock value:nil |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
7305 |
]. |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
7306 |
^ true |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
7307 |
! |
112670159075
cg: check if selection change is allowed BEFORE changing the
tm
parents:
1608
diff
changeset
|
7308 |
|
3053 | 7309 |
doChangeParentOfSelectedItemTo:newParentItem |
7310 |
||
7311 |
|canvas| |
|
7312 |
||
7313 |
newParentItem isNil ifTrue:[ |
|
7314 |
^ self |
|
7315 |
]. |
|
7316 |
self askForSelectionChangeAllowed ifFalse:[^ self]. |
|
7317 |
self setSelection:nil. |
|
7318 |
||
7319 |
canvas := self canvas. |
|
7320 |
canvas deleteSelection. |
|
7321 |
canvas setSelection:(newParentItem contents view) withRedraw:false. |
|
7322 |
canvas pasteWithLayout. |
|
7323 |
! |
|
7324 |
||
7325 |
doSortItems |
|
7326 |
"sort items by their top-left position" |
|
7327 |
||
7328 |
|selectedItems parent sortedItems newChildren itemList parentView| |
|
7329 |
||
7330 |
self askForSelectionChangeAllowed ifFalse:[^ self]. |
|
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7331 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7332 |
selectedItems := self selectedNodes. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7333 |
selectedItems size <= 1 ifTrue:[^ self]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7334 |
parent := selectedItems first parent. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7335 |
(parent isNil or:[(selectedItems conform:[:e| e parent == parent]) not]) ifTrue:[^ self]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7336 |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
7337 |
sortedItems := selectedItems sort:[:a :b| |
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
7338 |
a contents view origin isLeftOrAbove:(b contents view origin)]. |
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7339 |
itemList := selectedItems asIdentitySet. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7340 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7341 |
newChildren := parent children collect:[:eachChild| |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7342 |
(itemList includes:eachChild) ifTrue:[ |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7343 |
sortedItems removeFirst. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7344 |
] ifFalse:[ |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7345 |
eachChild. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7346 |
]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7347 |
]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7348 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7349 |
self setSelection:nil. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7350 |
model remove:parent children. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7351 |
model add:newChildren beforeIndex:1 below:parent. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7352 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7353 |
parentView := parent contents view. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7354 |
|
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7355 |
self canvas hideSelection. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7356 |
newChildren keysAndValuesDo:[:idx :eachItem| |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7357 |
parentView changeSequenceOrderFor:eachItem contents view to:idx. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7358 |
]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7359 |
parentView specClass isLayoutContainer ifFalse:[ |
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
7360 |
parentView components notEmptyOrNil ifTrue:[ self halt ]. |
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7361 |
parentView subViews do:[:v| v raise ]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7362 |
]. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7363 |
self canvas showSelection. |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7364 |
|
2500
3e2feb544801
cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents:
2479
diff
changeset
|
7365 |
self selectNodes:itemList asOrderedCollection. |
2310
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7366 |
! |
ac9be9035f2c
Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents:
2296
diff
changeset
|
7367 |
|
3130 | 7368 |
doStep:item over:anIndex |
7369 |
"moves a single child 'anIndex' forward or backward in list of children. |
|
7370 |
positive index: move down; negative index: move up" |
|
7371 |
||
7372 |
|idx size parentItem parentItemsView itemsView canvas prevSelection| |
|
7373 |
||
7374 |
self askForSelectionChangeAllowed ifFalse:[^ self]. |
|
7375 |
||
7376 |
( item isNil |
|
7377 |
or:[(parentItem := item parent) isNil |
|
7378 |
or:[(size := parentItem children size) < 2 |
|
7379 |
or:[(idx := parentItem indexOfChild:item) == 0]]] |
|
7380 |
) ifTrue:[ |
|
7381 |
^ self |
|
7382 |
]. |
|
7383 |
||
7384 |
idx := idx + anIndex. |
|
7385 |
||
7386 |
idx < 1 ifTrue:[idx := size] |
|
7387 |
ifFalse:[idx > size ifTrue:[idx := 1]]. |
|
7388 |
||
7389 |
prevSelection := self selectedNodes. |
|
7390 |
self setSelection:nil. |
|
7391 |
||
7392 |
model remove:item. |
|
7393 |
model add:item beforeIndex:idx below:parentItem. |
|
7394 |
||
7395 |
idx := parentItem indexOfChild:item. |
|
7396 |
itemsView := item contents view. |
|
7397 |
parentItemsView := parentItem contents view. |
|
7398 |
||
7399 |
canvas := self canvas. |
|
7400 |
canvas hideSelection. |
|
7401 |
||
7402 |
itemsView isView ifFalse:[ |
|
7403 |
"/ a component - has its own collection (and therefore indexing) - sigh |
|
7404 |
idx := idx - ((1 to:idx-1) count:[:i | (parentItem children at:i) contents view isView]). |
|
7405 |
parentItemsView changeSequenceOrderFor:itemsView to:idx. |
|
7406 |
] ifTrue:[ |
|
7407 |
"/ a view - has its own collection (and therefore indexing) - sigh |
|
7408 |
idx := idx - ((1 to:idx-1) count:[:i | (parentItem children at:i) contents view isView not]). |
|
7409 |
parentItemsView changeSequenceOrderFor:itemsView to:idx. |
|
7410 |
]. |
|
7411 |
||
7412 |
parentItemsView specClass isLayoutContainer ifFalse:[ |
|
7413 |
"/ spVw components notEmptyOrNil ifTrue:[ self halt ]. |
|
7414 |
parentItemsView subViews do:[:v| v raise ]. |
|
7415 |
]. |
|
7416 |
self selectNodes:prevSelection. |
|
7417 |
canvas showSelection. |
|
7418 |
! |
|
7419 |
||
3053 | 7420 |
doStepIn |
7421 |
"move the currently selected widget into the next available container below" |
|
7422 |
||
7423 |
|item oldParentItem newParentItem idx| |
|
7424 |
||
7425 |
item := self selectedNode. |
|
7426 |
(item notNil and:[(oldParentItem := item parent) notNil]) ifTrue:[ |
|
7427 |
idx := (oldParentItem indexOfChild:item) + 1. |
|
7428 |
newParentItem := oldParentItem children |
|
7429 |
detect:[:eachChild | eachChild contents spec class supportsSubComponents] |
|
7430 |
startingAt:idx |
|
7431 |
ifNone:nil. |
|
7432 |
newParentItem notNil ifTrue:[ |
|
7433 |
self doChangeParentOfSelectedItemTo:newParentItem |
|
2280
d9a56ee79c70
changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents:
2277
diff
changeset
|
7434 |
]. |
3053 | 7435 |
] |
7436 |
! |
|
7437 |
||
7438 |
doStepOut |
|
7439 |
|item| |
|
7440 |
||
7441 |
item := self selectedNode. |
|
7442 |
(item notNil and:[(item := item parent) notNil]) ifTrue:[ |
|
7443 |
self doChangeParentOfSelectedItemTo:(item parent) |
|
7444 |
]. |
|
7445 |
! |
|
7446 |
||
7447 |
doStepOver:anIndex |
|
7448 |
"moves child 'anIndex' forward or backward in list of children" |
|
7449 |
||
7450 |
|item idx size parentItem parentItemsView itemsView canvas| |
|
7451 |
||
7452 |
self askForSelectionChangeAllowed ifFalse:[^ self]. |
|
7453 |
||
3130 | 7454 |
anIndex < 0 ifTrue:[ |
7455 |
"/ moving up |
|
7456 |
self selectedNodes do:[:eachNode | |
|
7457 |
self doStep:eachNode over:anIndex. |
|
7458 |
]. |
|
7459 |
] ifFalse:[ |
|
7460 |
"/ moving down |
|
7461 |
self selectedNodes reverseDo:[:eachNode | |
|
7462 |
self doStep:eachNode over:anIndex. |
|
7463 |
]. |
|
7464 |
]. |
|
7465 |
^ self. |
|
7466 |
||
3053 | 7467 |
( (item := self selectedNode) isNil |
7468 |
or:[(parentItem := item parent) isNil |
|
7469 |
or:[(size := parentItem children size) < 2 |
|
7470 |
or:[(idx := parentItem indexOfChild:item) == 0]]] |
|
7471 |
) ifTrue:[ |
|
7472 |
^ self |
|
7473 |
]. |
|
7474 |
||
7475 |
idx := idx + anIndex. |
|
7476 |
||
7477 |
idx < 1 ifTrue:[idx := size] |
|
7478 |
ifFalse:[idx > size ifTrue:[idx := 1]]. |
|
282 | 7479 |
|
774 | 7480 |
self setSelection:nil. |
3053 | 7481 |
model remove:item. |
7482 |
model add:item beforeIndex:idx below:parentItem. |
|
7483 |
||
7484 |
idx := parentItem indexOfChild:item. |
|
7485 |
itemsView := item contents view. |
|
7486 |
parentItemsView := parentItem contents view. |
|
7487 |
||
7488 |
canvas := self canvas. |
|
7489 |
canvas hideSelection. |
|
7490 |
||
7491 |
itemsView isView ifFalse:[ |
|
7492 |
"/ a component - has its own collection (and therefore indexing) - sigh |
|
7493 |
idx := idx - ((1 to:idx-1) count:[:i | (parentItem children at:i) contents view isView]). |
|
7494 |
parentItemsView changeSequenceOrderFor:itemsView to:idx. |
|
7495 |
] ifTrue:[ |
|
7496 |
"/ a view - has its own collection (and therefore indexing) - sigh |
|
7497 |
idx := idx - ((1 to:idx-1) count:[:i | (parentItem children at:i) contents view isView not]). |
|
7498 |
parentItemsView changeSequenceOrderFor:itemsView to:idx. |
|
7499 |
]. |
|
7500 |
||
7501 |
parentItemsView specClass isLayoutContainer ifFalse:[ |
|
7502 |
"/ spVw components notEmptyOrNil ifTrue:[ self halt ]. |
|
7503 |
parentItemsView subViews do:[:v| v raise ]. |
|
7504 |
]. |
|
7505 |
canvas showSelection. |
|
7506 |
self selectNode:item. |
|
222 | 7507 |
! ! |
7508 |
||
60 | 7509 |
!UIPainter class methodsFor:'documentation'! |
7510 |
||
7511 |
version |
|
7512 |
^ '$Header$' |
|
2615
347a0b26e210
changed: #doBrowseAspectMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2568
diff
changeset
|
7513 |
! |
347a0b26e210
changed: #doBrowseAspectMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2568
diff
changeset
|
7514 |
|
347a0b26e210
changed: #doBrowseAspectMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2568
diff
changeset
|
7515 |
version_CVS |
347a0b26e210
changed: #doBrowseAspectMethod:nameAs:
Claus Gittinger <cg@exept.de>
parents:
2568
diff
changeset
|
7516 |
^ '$Header$' |
60 | 7517 |
! ! |
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7518 |
|
2947 | 7519 |
|
2217
b54632779619
Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents:
2213
diff
changeset
|
7520 |
UIPainter initialize! |