'From etoys2.3 of 28 November 2007 [latest update: #1850] on 19 December 2007 at 10:20:38 pm'! "Change Set: NoNoHaloMorph-yo Date: 19 December 2007 Author: Yoshiki Ohshima Remove the uses of NoHaloMorph, as the Morph now have dynamic property for it. SugarBar now uses eToyFriendly to see if it should show handles for its submorphs and itself."! !Morph class methodsFor: 'instance creation' stamp: 'yo 12/19/2007 21:30'! inARow: aCollectionOfMorphs "Answer an instance of the receiver, a row morph, with the given collection as its submorphs, and transparent in color. Interpret the symbol #spacer in the incoming list as a request for a variable transparent spacer." | row | row _ self new. row layoutPolicy: TableLayout new. row listDirection: #leftToRight; vResizing: #shrinkWrap; hResizing: #spaceFill; layoutInset: 0; cellPositioning: #center; borderWidth: 0; color: Color transparent. aCollectionOfMorphs do: [ :each | | toAdd | toAdd := each == #spacer ifTrue: [AlignmentMorph newVariableTransparentSpacer] ifFalse: [each]. row addMorphBack: toAdd]. ^ row ! ! !StandardScriptingSystem methodsFor: 'utilities' stamp: 'yo 12/19/2007 22:10'! customizeForEToyUsers: aBoolean "If aBoolean is true, set things up for etoy users. If it's false, unset some of those things. Some things are set when switching into etoy mode but not reversed when switching out of etoy mode." #( (allowEtoyUserCustomEvents no reverse) (balloonHelpEnabled yes dontReverse) (debugHaloHandle no reverse) (modalColorPickers yes dontReverse) (oliveHandleForScriptedObjects no dontReverse) (uniqueNamesInHalos yes reverse) (useUndo yes dontReverse) (infiniteUndo no dontReverse) (warnIfNoChangesFile no reverse) (warnIfNoSourcesFile no reverse)) do: [:trip | (aBoolean or: [trip third == #reverse]) ifTrue: [Preferences enableOrDisable: trip first asPer: ((trip second == #yes) & aBoolean) | ((trip second == #no) & aBoolean not)]]. SugarNavigatorBar current ifNotNilDo: [:e | e wantsHaloForSubmorphs: aBoolean not]. ! ! !SugarButton methodsFor: 'initialization' stamp: 'yo 12/19/2007 21:59'! initialize super initialize. highLightColor _ Color black. self setProperty: #wantsHaloFromClick toValue: false. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/19/2007 22:19'! addButtons super addButtons. self wantsHaloForSubmorphs: Preferences eToyFriendly not. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/19/2007 21:31'! inARow: aCollectionOfMorphs "Answer a row morph with the given collection as its submorphs. Interpret the symbol #spacer in the incoming list as a request for a variable transparent spacer." ^ (Morph inARow: aCollectionOfMorphs) setProperty: #wantsHaloFromClick toValue: false. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/19/2007 22:18'! initialize super initialize. self layoutInset: 75@0; hResizing: #rigid; vResizing: #rigid; cellPositioning: #topLeft. self cornerStyle: #square. self resistsRemoval: true. self beSticky. self makeGray. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/19/2007 22:06'! wantsHaloForSubmorphs: aBoolean self allMorphsDo: [:m | m setProperty: #wantsHaloFromClick toValue: aBoolean]. ! ! !SugarNavigatorBar methodsFor: 'buttons creation' stamp: 'yo 12/19/2007 21:31'! spacer: w ^ Morph new extent: w@0; setProperty: #wantsHaloFromClick toValue: false; yourself ! ! SugarNavigatorBar removeSelector: #wantsHalo! SugarNavigatorBar removeSelector: #wantsHaloFromClick! SugarButton removeSelector: #wantsHalo! SugarButton removeSelector: #wantsHaloFromClick! "Postscript: " Flaps disableGlobalFlaps: false. Flaps enableEToyFlaps. !