equal
deleted
inserted
replaced
2351 ^specClass printString, ' >> ', specSelector |
2351 ^specClass printString, ' >> ', specSelector |
2352 |
2352 |
2353 "Modified: / 20.6.1998 / 16:49:16 / cg" |
2353 "Modified: / 20.6.1998 / 16:49:16 / cg" |
2354 ! ! |
2354 ! ! |
2355 |
2355 |
|
2356 !UIPainter methodsFor:'menus - dynamic'! |
|
2357 |
|
2358 menuEdit |
|
2359 |m i| |
|
2360 |
|
2361 m := self class menuEdit. |
|
2362 m := m decodeAsLiteralArray. |
|
2363 i := m detectItem:[:item | item nameKey == #undo] ifNone:nil. |
|
2364 i notNil ifTrue:[ |
|
2365 i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')') |
|
2366 ]. |
|
2367 m findGuiResourcesIn:self. |
|
2368 ^ m |
|
2369 |
|
2370 "Created: / 30.10.2001 / 13:29:04 / cg" |
|
2371 "Modified: / 30.10.2001 / 13:47:19 / cg" |
|
2372 ! ! |
|
2373 |
2356 !UIPainter methodsFor:'private'! |
2374 !UIPainter methodsFor:'private'! |
2357 |
2375 |
2358 askForModification |
2376 askForModification |
2359 "asks for window spec modification" |
2377 "asks for window spec modification" |
2360 |
2378 |
3127 ! |
3145 ! |
3128 |
3146 |
3129 addWidgetOfSpec: aSpec |
3147 addWidgetOfSpec: aSpec |
3130 "adds a widget from aSpec to the current widget" |
3148 "adds a widget from aSpec to the current widget" |
3131 |
3149 |
3132 |newSel| |
3150 |newSel| |
|
3151 |
3133 (newSel := self pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
3152 (newSel := self pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
3134 ifTrue: |
3153 ifTrue: |
3135 [ |
3154 [ |
3136 self select: newSel |
3155 self select: newSel |
3137 ] |
3156 ] |
3138 ifFalse: |
3157 ifFalse: |
3139 [ |
3158 [ |
3140 ((treeView selection size = 0) or: [treeView selectedNode isNil]) |
3159 ((treeView selection size = 0) or: [treeView selectedNode isNil]) |
3141 ifTrue: |
3160 ifTrue: |
3142 [ |
3161 [ |
3143 treeView selection: #(1). |
3162 treeView selection: #(1). |
3144 ] |
3163 ] |
3145 ifFalse: |
3164 ifFalse: |
3146 [ |
3165 [ |
3147 treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
3166 treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
3148 ]. |
3167 ]. |
3149 self addWidgetOfSpec: aSpec |
3168 self addWidgetOfSpec: aSpec |
3150 ] |
3169 ] |
3151 |
3170 |
|
3171 "Modified: / 30.10.2001 / 13:22:25 / cg" |
3152 ! |
3172 ! |
3153 |
3173 |
3154 cancel |
3174 cancel |
3155 "cancels all modifications done to the attributes of the current section; |
3175 "cancels all modifications done to the attributes of the current section; |
3156 reread the old attributes" |
3176 reread the old attributes" |