equal
deleted
inserted
replaced
2323 "returns the aspect for aKey" |
2323 "returns the aspect for aKey" |
2324 |
2324 |
2325 ^aspects at:aKey ifAbsent:[ super aspectFor:aKey ] |
2325 ^aspects at:aKey ifAbsent:[ super aspectFor:aKey ] |
2326 ! |
2326 ! |
2327 |
2327 |
2328 autoAcceptOnSelectionChange |
|
2329 ^ builder valueAspectFor:#autoAcceptOnSelectionChange initialValue:true |
|
2330 ! |
|
2331 |
|
2332 canChangeOrderInContainer |
2328 canChangeOrderInContainer |
2333 "returns a boolean value holder which is true if the widget order can be changed |
2329 "returns a boolean value holder which is true if the widget order can be changed |
2334 within their container" |
2330 within their container" |
2335 |
2331 |
2336 ^ builder booleanValueAspectFor:#canChangeOrderInContainer |
2332 ^ builder booleanValueAspectFor:#canChangeOrderInContainer |
3280 ! |
3276 ! |
3281 |
3277 |
3282 painter |
3278 painter |
3283 "returns the canvas view" |
3279 "returns the canvas view" |
3284 |
3280 |
3285 ^ painter. |
3281 ^ painter. |
3286 ^ treeView canvas |
3282 "/ ^ treeView canvas |
|
3283 |
|
3284 "Modified: / 05-09-2006 / 18:36:32 / cg" |
3287 ! |
3285 ! |
3288 |
3286 |
3289 specTool |
3287 specTool |
3290 "returns the spec tool" |
3288 "returns the spec tool" |
3291 |
3289 |
3385 ]. |
3383 ]. |
3386 spec := property spec copy. |
3384 spec := property spec copy. |
3387 ] |
3385 ] |
3388 ]. |
3386 ]. |
3389 ^ Array with:spec with:view |
3387 ^ Array with:spec with:view |
3390 ! |
|
3391 |
|
3392 selectionChangeAllowed:newSelection |
|
3393 self isModified ifFalse:[^ true]. |
|
3394 |
|
3395 self autoAcceptOnSelectionChange value ifTrue:[ |
|
3396 self accept |
|
3397 ] ifFalse:[ |
|
3398 self askForUnsavedModifications ifFalse:[^ false]. |
|
3399 ]. |
|
3400 ^ true |
|
3401 ! |
3388 ! |
3402 |
3389 |
3403 tabSelection |
3390 tabSelection |
3404 "returns the label of the current section in the notebook" |
3391 "returns the label of the current section in the notebook" |
3405 |
3392 |
3890 addWidgetOfSpec: aSpec |
3877 addWidgetOfSpec: aSpec |
3891 "adds a widget from aSpec to the current widget" |
3878 "adds a widget from aSpec to the current widget" |
3892 |
3879 |
3893 |newSel| |
3880 |newSel| |
3894 |
3881 |
3895 (newSel := self pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
3882 (newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
3896 ifTrue: |
3883 ifTrue:[ |
3897 [ |
3884 painter select: newSel |
3898 self select: newSel |
3885 ] ifFalse:[ |
3899 ] |
|
3900 ifFalse: |
|
3901 [ |
|
3902 ((treeView selection size = 0) or: [treeView selectedNode isNil]) |
3886 ((treeView selection size = 0) or: [treeView selectedNode isNil]) |
3903 ifTrue: |
3887 ifTrue:[ |
3904 [ |
|
3905 treeView selection: #(1). |
3888 treeView selection: #(1). |
3906 ] |
3889 ] ifFalse:[ |
3907 ifFalse: |
|
3908 [ |
|
3909 treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
3890 treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
3910 ]. |
3891 ]. |
3911 self addWidgetOfSpec: aSpec |
3892 self addWidgetOfSpec: aSpec |
3912 ] |
3893 ] |
3913 |
3894 |
3914 "Modified: / 30.10.2001 / 13:22:25 / cg" |
3895 "Modified: / 05-09-2006 / 18:37:12 / cg" |
3915 ! |
3896 ! |
3916 |
3897 |
3917 cancel |
3898 cancel |
3918 "cancels all modifications done to the attributes of the current section; |
3899 "cancels all modifications done to the attributes of the current section; |
3919 reread the old attributes" |
3900 reread the old attributes" |