Karl
This is the change I made to the SugarBar
Name: Sugar-kfr.15
Author: kfr
Time: 7 October 2012, 10:57:19 am
UUID: 94e5ad36-4eea-fd4d-a56f-cb4eaeb32714
Ancestors: Sugar-bf.14
Make accidental mishaps with the navigator bar less likely
=============== Diff against Sugar-bf.14 ===============
Item was changed:
----- Method: SugarNavTab>>addCustomMenuItems:hand: (in category 'menu') -----
addCustomMenuItems: aMenu hand: aHandMorph
"Add further items to the menu as appropriate"
aMenu addLine.
+ "aMenu addUpdating: #edgeString action: #setEdgeToAdhereTo."
+ "aMenu add: 'destroy this flap' translated action: #destroyFlap." "we do not want accidental removal"
- aMenu addUpdating: #edgeString action: #setEdgeToAdhereTo.
- aMenu add: 'destroy this flap' translated action: #destroyFlap.
aMenu addLine.
aMenu add: 'use default green look' translated action: #makeGreen.
aMenu add: 'use default gray look' translated action: #makeGray.
aMenu add: 'color...' translated target: self action: #changeColor.
aMenu add: 'highlight color...' translated target: self action: #changeHighlightColor.
aMenu add: 'height...' translated target: self action: #changeNaviHeight.
!
Item was added:
+ ----- Method: SugarNavTab>>okayToBrownDragEasily (in category 'accessing') -----
+ okayToBrownDragEasily
+
+
+ ^ false!
Item was added:
+ ----- Method: SugarNavTab>>okayToResizeEasily (in category 'accessing') -----
+ okayToResizeEasily
+ "Answer whether the receiver would be glad to offer a grow handle."
+
+ ^ false!
Item was added:
+ ----- Method: SugarNavTab>>okayToRotateEasily (in category 'accessing') -----
+ okayToRotateEasily
+ "Answer whether it is appropriate for a rotation handle to be shown for the receiver. "
+
+ ^ false!
Item was added:
+ ----- Method: SugarNavTab>>wantsHaloHandleWithSelector:inHalo: (in category 'menu') -----
+ wantsHaloHandleWithSelector: aSelector inHalo: aHaloMorph
+ "Answer whether the receiver would like to offer the halo handle with the given selector (e.g. #addCollapseHandle:)"
+
+ (#(addDupHandle: addMakeSiblingHandle: addCollapseHandle: ) includes: aSelector) ifTrue:
+ [^ false].
+
+ ^ super wantsHaloHandleWithSelector: aSelector inHalo: aHaloMorph
+ !