Tim Felgentreff uploaded a new version of EToysIMPORT to project Etoys Inbox:
http://source.squeak.org/etoysinbox/EToysIMPORT-tfel.11.mcz
==================== Summary ====================
Name: EToysIMPORT-tfel.11
Author: tfel
Time: 28 July 2016, 5:50:38.233262 pm
UUID: 35bfd324-500b-c543-98a4-fa8cb300e84e
Ancestors: EToysIMPORT-tfel.10
another override for flaps
=============== Diff against EToysIMPORT-tfel.10 ===============
Item was added:
+ ----- Method: Flaps class>>addAndEnableEToyFlaps (in category '*EToysIMPORT-predefined flaps') -----
+ addAndEnableEToyFlaps
+ "Initialize the standard default out-of-box set of global flaps. This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed."
+
+ ^ self addAndEnableEToyFlapsWithPreviousEntries: nil.
+ !
Item was changed:
----- Method: Flaps class>>addAndEnableEToyFlapsWithPreviousEntries: (in category '*EToysIMPORT-predefined flaps') -----
addAndEnableEToyFlapsWithPreviousEntries: aCollection
"Initialize the standard default out-of-box set of global flaps. This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed."
| aSuppliesFlap |
SharedFlapTabs
ifNotNil: [^ self].
SharedFlapTabs _ OrderedCollection new.
aSuppliesFlap _ self newSuppliesFlapFromQuads: self quadsDefiningPlugInSuppliesFlap positioning: #right withPreviousEntries: aCollection.
aSuppliesFlap referent setNameTo: 'Supplies Flap' translated. "Per request from Kim Rose, 7/19/02"
SharedFlapTabs add: aSuppliesFlap. "The #center designation doesn't quite work at the moment"
Preferences sugarNavigator
ifTrue: [SharedFlapTabs add: self newSugarNavigatorFlap]
ifFalse: [SharedFlapTabs add: self newNavigatorFlap].
self enableGlobalFlapWithID: 'Supplies' translated.
Preferences sugarNavigator
ifTrue:
[self enableGlobalFlapWithID: 'Sugar Navigator Flap' translated.
(self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNilDo:
+ [:navTab |
+ aSuppliesFlap sugarNavTab: navTab.
+ SugarNavigatorBar current hideNavBar; showNavBar]]
- [:navTab | aSuppliesFlap sugarNavTab: navTab]]
ifFalse: [self enableGlobalFlapWithID: 'Navigator' translated].
SharedFlapsAllowed _ true.
Project current flapsSuppressed: false.
^ SharedFlapTabs
"Flaps addAndEnableEToyFlaps"!
Tim Felgentreff uploaded a new version of EToysIMPORT to project Etoys Inbox:
http://source.squeak.org/etoysinbox/EToysIMPORT-tfel.9.mcz
==================== Summary ====================
Name: EToysIMPORT-tfel.9
Author: tfel
Time: 28 July 2016, 3:39:53.296874 pm
UUID: 6b3f54f8-8db1-4743-8327-0ca7f508cb50
Ancestors: EToysIMPORT-tfel.8
add this override to make biggerCursors work (might be useful to add to Squeak trunk)
=============== Diff against EToysIMPORT-tfel.8 ===============
Item was added:
+ ----- Method: Cursor class>>currentCursor: (in category '*EToysIMPORT-override-current cursor') -----
+ currentCursor: aCursor
+ "Make the instance of cursor, aCursor, be the current cursor. Display it.
+ Create an error if the argument is not a Cursor."
+
+ (aCursor isKindOf: self)
+ ifTrue: [CurrentCursor _ aCursor.
+ Preferences biggerCursors
+ ifTrue: [[^aCursor asBigCursor beCursor]
+ on: Error do: ["fall through"]].
+ aCursor beCursor]
+ ifFalse: [self error: 'The new cursor must be an instance of class Cursor']!
Tim Felgentreff uploaded a new version of EToysIMPORT to project Etoys Inbox:
http://source.squeak.org/etoysinbox/EToysIMPORT-tfel.9.mcz
==================== Summary ====================
Name: EToysIMPORT-tfel.9
Author: tfel
Time: 28 July 2016, 3:39:53.296874 pm
UUID: 6b3f54f8-8db1-4743-8327-0ca7f508cb50
Ancestors: EToysIMPORT-tfel.8
add this override to make biggerCursors work (might be useful to add to Squeak trunk)
=============== Diff against EToysIMPORT-tfel.8 ===============
Item was added:
+ ----- Method: Cursor class>>currentCursor: (in category '*EToysIMPORT-override-current cursor') -----
+ currentCursor: aCursor
+ "Make the instance of cursor, aCursor, be the current cursor. Display it.
+ Create an error if the argument is not a Cursor."
+
+ (aCursor isKindOf: self)
+ ifTrue: [CurrentCursor _ aCursor.
+ Preferences biggerCursors
+ ifTrue: [[^aCursor asBigCursor beCursor]
+ on: Error do: ["fall through"]].
+ aCursor beCursor]
+ ifFalse: [self error: 'The new cursor must be an instance of class Cursor']!