etoys-dev May 2010

etoys-dev@lists.squeakfoundation.org

19 participants
192 discussions

Etoys: Monticello-bf.391.mcz
by commits＠source.squeak.org 05 May '10

05 May '10

Bert Freudenberg uploaded a new version of Monticello to project Etoys: http://source.squeak.org/etoys/Monticello-bf.391.mcz ==================== Summary ==================== Name: Monticello-bf.391 Author: bf Time: 4 May 2010, 7:36:59 pm UUID: a3fb7108-2ede-49bf-906e-50412bd2d538 Ancestors: Monticello-bf.390 - add MCAncestry>>findAncestor: =============== Diff against Monticello-bf.390 =============== Item was added: + ----- Method: MCAncestry>>findAncestor: (in category 'ancestry') ----- + findAncestor: aVersionInfo + self breadthFirstAncestorsDo: [:each | + each = aVersionInfo ifTrue: [^each]]. + ^nil + ! Item was changed: Object subclass: #MethodAddition instanceVariableNames: 'text category changeStamp requestor logSource myClass methodAndNode selector compiledMethod priorMethodOrNil' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Loading'! !MethodAddition commentStamp: 'rej 2/25/2007 19:30' prior: 0! + I represent the addition of a method to a class. I can produce the CompiledMethod, install it, and then notify the system that the method has been added. This allows Monticello to implement atomic addition. A loader can compile all classes and methods first and then install all methods only after they have been all compiled, and in a way that executes little code.! - I represent the addition of a method to a class. I can produce the CompiledMethod, install it, and then notify the system that the method has been added. This allows Monticello to implement atomic addition. A loader can compile all classes and methods first and then install all methods only after they have been all compiled, and in a way that executes little code.œ! Item was removed: - (PackageInfo named: 'Monticello') preamble: ''!

1 0

Etoys: System-bf.9.mcz
by commits＠source.squeak.org 05 May '10

05 May '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.9.mcz ==================== Summary ==================== Name: System-bf.9 Author: bf Time: 4 May 2010, 4:38:59 pm UUID: 85182371-2794-4f9e-b355-3afb835496e0 Ancestors: System-bf.8 - add InternalTranslator class>>discardAllTranslations =============== Diff against System-bf.8 =============== Item was added: + ----- Method: InternalTranslator classSide>>discardAllTranslations (in category 'class initialization') ----- + discardAllTranslations + AllKnownPhrases := nil. + self resetCaches.!

1 0

Etoys: Etoys-bf.4.mcz
by commits＠source.squeak.org 05 May '10

05 May '10

Bert Freudenberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-bf.4.mcz ==================== Summary ==================== Name: Etoys-bf.4 Author: bf Time: 4 May 2010, 8:50:56 am UUID: b09fda78-6ad1-404c-9925-191081312efb Ancestors: Etoys-bf.3 - protect references in Player scripts when recompiling =============== Diff against Etoys-bf.3 =============== Item was added: + ----- Method: Player classSide>>compileAllFrom: (in category 'other') ----- + compileAllFrom: oldClass + "protect script references" + scripts isEmptyOrNil + ifTrue: [^super compileAllFrom: oldClass]. + ProjectLoading worldLoading: (self myProject ifNotNilDo: [:p | p world]). + [super compileAllFrom: oldClass] + ensure: [ProjectLoading worldLoading: nil].! Item was added: + ----- Method: Player classSide>>myProject (in category 'other') ----- + myProject + "Find the project I was defined in, or nil" + self isSystemDefined ifTrue: [^nil]. + Project allProjects do: [:prj | + prj world presenter allExtantPlayers do: [:plr | + plr class == self ifTrue: [^prj]]]. + ^nil + !

1 0

Etoys: System-bf.8.mcz
by commits＠source.squeak.org 05 May '10

05 May '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.8.mcz ==================== Summary ==================== Name: System-bf.8 Author: bf Time: 4 May 2010, 4:32:42 pm UUID: 49577188-3425-4e79-90ad-59ade2a40710 Ancestors: System-bf.7 - protect references in Player scripts when recompiling =============== Diff against System-bf.7 =============== Item was added: + ----- Method: ScriptParser>>parse:class:noPattern:context:notifying:ifFail: (in category 'as yet unclassified') ----- + parse: sourceStream class: class noPattern: noPattern context: ctxt notifying: req ifFail: aBlock + "Answer a MethodNode for the argument, sourceStream, that is the root of + a parse tree. Parsing is done with respect to the argument, class, to find + instance, class, and pool variables; and with respect to the argument, + ctxt, to find temporary variables. Errors in parsing are reported to the + argument, req, if not nil; otherwise aBlock is evaluated. The argument + noPattern is a Boolean that is true if the the sourceStream does not + contain a method header (i.e., for DoIts)." + + "Copied from superclass, use ScriptEncoder and give it a referenceWorld. This assumes worldLoading has been set to the right world this player belongs to. --bf 5/4/2010" + + | methNode repeatNeeded myStream parser s p | + (req notNil and: [RequestAlternateSyntaxSetting signal and: [(sourceStream isKindOf: FileStream) not]]) + ifTrue: [parser _ self as: DialectParser] + ifFalse: [parser _ self]. + myStream _ sourceStream. + [repeatNeeded _ false. + p _ myStream position. + s _ myStream upToEnd. + myStream position: p. + parser init: myStream notifying: req failBlock: [^ aBlock value]. + doitFlag _ noPattern. + failBlock_ aBlock. + [methNode _ parser method: noPattern context: ctxt + encoder: (ScriptEncoder new init: class context: ctxt notifying: parser; + referenceObject: ActiveWorld referenceWorld )] + on: ParserRemovedUnusedTemps + do: + [ :ex | repeatNeeded _ (requestor isKindOf: TextMorphEditor) not. + myStream _ ReadStream on: requestor text string. + ex resume]. + repeatNeeded] whileTrue. + encoder _ failBlock _ requestor _ parseNode _ nil. "break cycles & mitigate refct overflow" + methNode sourceText: s. + ^ methNode! Item was added: + ----- Method: ScriptCompiler>>compile:in:notifying:ifFail: (in category 'as yet unclassified') ----- + compile: textOrStream in: aClass notifying: aRequestor ifFail: failBlock + + self parserClass: ScriptParser. + ^super compile: textOrStream in: aClass notifying: aRequestor ifFail: failBlock!

1 0

Etoys: Rome-PluginCanvas-bf.38.mcz
by commits＠source.squeak.org 05 May '10

05 May '10

Bert Freudenberg uploaded a new version of Rome-PluginCanvas to project Etoys: http://source.squeak.org/etoys/Rome-PluginCanvas-bf.38.mcz ==================== Summary ==================== Name: Rome-PluginCanvas-bf.38 Author: bf Time: 4 May 2010, 4:17:14 pm UUID: 05306a38-bacc-422a-ab53-f3c0b9c8986c Ancestors: Rome-PluginCanvas-bf.37 - add dummy inst vars to RomePluginCanvas (some compiled versions of the Mac plugin expect 13 inst vars, even though they are unused) =============== Diff against Rome-PluginCanvas-bf.37 =============== Item was changed: RomeCanvas subclass: #RomePluginCanvas + instanceVariableNames: 'handle target flags strokeColor stack font fontSize fontMatrix i9 i10 i11 i12 i13' - instanceVariableNames: 'handle target flags strokeColor stack font fontSize fontMatrix' classVariableNames: 'ComposingCanvas DrawingCanvas FlagFill FlagStroke PangoAvailable Registry' poolDictionaries: '' category: 'Rome-PluginCanvas'! !RomePluginCanvas commentStamp: '<historical>' prior: 0! INST VAR ORDER IS KNOWN TO PLUGIN!! DO NOT REARRANGE!! handle: index in plugin's contexts array, nil if closed target: RomePluginTargetForm flags: bits 0 to 7 = stroke alpha (0 = no stroke) bit 8 = do fill + strokeColor: rgb of stroke color (10 bits per component) + ============= + The rest of the inst vars are not actuallt used by the plugin, but it was compiled to expect at least 8 inst vars. The i9 - i13 inst vars are padding because some versions of the plugin were compiled to expect at least 13 inst vars.! - strokeColor: rgb of stroke color (10 bits per component)!

1 0

Etoys: Connectors-bf.187.mcz
by commits＠source.squeak.org 04 May '10

04 May '10

Bert Freudenberg uploaded a new version of Connectors to project Etoys: http://source.squeak.org/etoys/Connectors-bf.187.mcz ==================== Summary ==================== Name: Connectors-bf.187 Author: bf Time: 4 May 2010, 2:06:54 pm UUID: 0d4098c3-f017-4764-b558-654317afb5d5 Ancestors: Connectors-bf.186 - move flaps methods back into the connectors package =============== Diff against Connectors-bf.186 =============== Item was added: + ----- Method: Flaps class>>newFSMConnectorsFlap (in category '*connectors-shapes-flaps') ----- + newFSMConnectorsFlap + "Answer a newly-created flap which adheres to the left edge of the screen and which holds prototypes of Connectors parts relevant to FSM diagrams." + "Flaps newFSMConnectorsFlap openInWorld; setToPopOutOnDragOver: false." + | aFlapTab aStrip | + aStrip _ self preferredConnectorsFlapBinClass newPartsBinWithOrientation: #leftToRight andColor: (Color blue muchLighter alpha: 0.8) from: self quadsDefiningFSMConnectorsFlap buttonClass: self preferredConnectorsButtonClass. + aStrip submorphs third + actionSelector: #startWiringLabeled: ; + arguments: { 'event' }. + + aFlapTab _ FlapTab new referent: aStrip beSticky. + aFlapTab setName: 'FSM' edge: #bottom color: (Color blue muchLighter). + aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. + + aStrip beFlap: true. + aStrip extent: (self currentWorld width @ 78). + aStrip color: (Color blue muchLighter alpha: 0.8). + aStrip submorphsDo: [ :ea | ea updateImage ]. + ^ aFlapTab + ! Item was added: + ----- Method: Flaps class>>preferredConnectorsButtonClass (in category '*connectors-shapes-flaps') ----- + preferredConnectorsButtonClass + ^Smalltalk at: #NCMakerButton ifAbsent: [ IconicButton ]! Item was added: + ----- Method: Flaps class>>newClassDiagramConnectorsFlap (in category '*connectors-shapes-flaps') ----- + newClassDiagramConnectorsFlap + "Answer a newly-created flap which adheres to the left edge of the screen and which holds prototypes of Connectors parts relevant to UML class diagrams." + + " + Flaps newClassDiagramConnectorsFlap openInWorld; setToPopOutOnDragOver: false. + " + + | aFlapTab aStrip | + aStrip _ self preferredConnectorsFlapBinClass + newPartsBinWithOrientation: #leftToRight andColor: (Color blue muchLighter alpha: 0.3) from: self quadsDefiningClassDiagramConnectorsFlap buttonClass: self preferredConnectorsButtonClass. + + aFlapTab _ FlapTab new referent: aStrip beSticky. + aFlapTab setName: 'Class Diagrams' translated edge: #bottom color: Color blue muchLighter. + aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. + + aStrip beFlap: true. + aStrip extent: (self currentWorld width @ 78). + aStrip submorphsDo: [ :ea | ea updateImage ]. + ^aFlapTab + ! Item was added: + ----- Method: Flaps class>>quadsDefiningConnectorsFlap (in category '*connectors-shapes-flaps') ----- + quadsDefiningConnectorsFlap + "Answer a structure defining the items on the default Connectors flap" + + ^ #( + (NCLabelMorph newStandAlone 'Label' 'A label') + (NCSmartLabelMorph newStandAlone 'Smart Label' 'A label that positions itself') + (NCAAConnectorMorph newStandAlone 'Connector' 'A basic connector') + (NCAAConnectorMorph newWithArrow 'ConnectorArrow' 'A basic connector with an arrowhead') + (NCAAConnectorMorph newCurvyConnector 'Curvy Connector' 'A basic curved connector') + (NCAAConnectorMorph newCurvyArrow 'Curvy ConnectorArrow' 'A basic curved connector with an arrowhead') + (NCGrabbableDisplayTextMorph authoringPrototype 'Title' 'Display text that you can move') + (NCTextRectangleMorph new 'Text Rectangle' 'A rectangle with text, or a button') + (NCButtonBar newStandAlone 'ButtonBar' 'A buttonBar for customizing') + (NCMakerButton newStandAlone 'Maker Button' 'A handy Morph-generating button') + (NCBasicShapeMorph newStandAlone 'Basic Shape' 'A simple shape with a context menu') + (Flaps newNCPartsBinFlap 'New Button Flap' 'A new button flap') + (NCAttachmentPointAdjusterWindow newStandAlone 'AP Adjuster' 'This lets you adjust the attachment points on a dropped Morph') + ) translatedNoop + ! Item was added: + ----- Method: Flaps class>>preferredConnectorsFlapBinClass (in category '*connectors-shapes-flaps') ----- + preferredConnectorsFlapBinClass + ^Smalltalk at: #NCPartsBin ifAbsent: [ PartsBin ]! Item was added: + ----- Method: Flaps class>>newNCPartsBinFlap (in category '*connectors-shapes-flaps') ----- + newNCPartsBinFlap + "Answer a newly-created flap which adheres to the left edge of the screen." + "Flaps newNCPartsBinFlap openInWorld; setToPopOutOnDragOver: false." + + | aFlapTab aStrip | + aStrip _ self preferredConnectorsFlapBinClass + newPartsBinWithOrientation: #topToBottom andColor: (Color orange muchLighter alpha: 0.8) from: #() buttonClass: self preferredConnectorsButtonClass. + + aFlapTab _ FlapTab new referent: aStrip beSticky. + aFlapTab setName: 'My Flap' translated edge: #left color: Color orange lighter. + aFlapTab position: (self currentWorld width - aFlapTab width) @ ((Display height - aFlapTab height) * 2 // 3). + aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. + + aStrip extent: (120 @ self currentWorld height). + aStrip beFlap: true. + aStrip color: (Color orange muchLighter alpha: 0.8). + + ^ aFlapTab + ! Item was added: + ----- Method: Flaps class>>quadsDefiningFSMConnectorsFlap (in category '*connectors-shapes-flaps') ----- + quadsDefiningFSMConnectorsFlap + "Answer a structure defining the items on the default FSM flap" + "Flaps newFSMConnectorsFlap openInWorld; setToPopOutOnDragOver: false." + + ^ #( + (NCLabelMorph newStandAlone 'Label' 'A label') + (NCSmartLabelMorph newStandAlone 'Smart Label' 'A label that positions itself') + (NCAAConnectorMorph newStateTransition 'State Transition' 'A state transition for UML State Diagrams') + (NCTextRectangleMorph newStateSymbol 'State' 'A UML State shape') + (NCCompositeStateMorph newCompositeState 'Composite State' 'A UML composite state shape') + (NCScrolledCompositeStateMorph newStandAlone 'Scrolled State' 'A UML State shape with scrollbars') + (NCEllipseMorph newStartState 'Start State' 'A UML start state shape') + (NCEllipseMorph newEndState 'End State' 'A UML end state shape') + "(NCButtonBar newFSMToolbar 'FSM ButtonBar' 'A buttonBar for State Machine drawings')" + ) translatedNoop! Item was added: + ----- Method: Flaps class>>quadsDefiningClassDiagramConnectorsFlap (in category '*connectors-shapes-flaps') ----- + quadsDefiningClassDiagramConnectorsFlap + "Answer a structure defining the items on the default Class Diagram flap" + "Flaps newClassDiagramConnectorsFlap openInWorld; setToPopOutOnDragOver: false." + + ^ #( + (NCLabelMorph newStandAlone 'Label' 'A label') + (NCSmartLabelMorph newStandAlone 'Smart Label' 'A label that positions itself') + (NCAAConnectorMorph newDirectionalAssociation 'Association' 'A class association for UML Class Diagrams') + (NCAAConnectorMorph newAssociation 'Association' 'A class association for UML Class Diagrams') + (NCAAConnectorMorph newGeneralizationRelationship 'Generalization' 'An inheritance (generalization) connection for UML Class Diagrams') + (NCAAConnectorMorph newImplementationRelationship 'Implementation' 'An implementation relationship for UML Class Diagrams') + (NCTextRectangleMorph newUMLClassSymbol 'Class' 'A UML class symbol') + (NCTextRectangleMorph newUMLClassSymbolWithTwoBlocks 'Class2' 'A UML class symbol') + (NCTextRectangleMorph newUMLClassSymbolWithThreeBlocks 'Class3' 'A UML class symbol') + (NCCompositeStateMorph newUMLPackage 'UML Package' 'A UML package shape') + (NCNoteMorph newStandAlone 'Note' 'An annotation') + )! Item was added: + ----- Method: Flaps class>>newConnectorsFlap (in category '*connectors-shapes-flaps') ----- + newConnectorsFlap + "Answer a newly-created flap which adheres to the left edge of the screen and which holds prototypes of Connectors parts." + "Flaps newConnectorsFlap openInWorld; setToPopOutOnDragOver: false." + + | aFlapTab aStrip | + aStrip _ self preferredConnectorsFlapBinClass + newPartsBinWithOrientation: #leftToRight andColor: (Color blue muchLighter alpha: 0.8) from: self quadsDefiningConnectorsFlap buttonClass: self preferredConnectorsButtonClass. + + aFlapTab _ FlapTab new referent: aStrip beSticky. + aFlapTab setName: 'Connectors' translated edge: #bottom color: Color blue muchLighter. + aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. + + aStrip beFlap: true. + aStrip extent: (self currentWorld width @ 78). + aStrip submorphsDo: [ :ea | ea updateImage ]. + ^ aFlapTab + !

1 0

Etoys: Network-bf.3.mcz
by commits＠source.squeak.org 04 May '10

04 May '10

Bert Freudenberg uploaded a new version of Network to project Etoys: http://source.squeak.org/etoys/Network-bf.3.mcz ==================== Summary ==================== Name: Network-bf.3 Author: bf Time: 4 May 2010, 1:54:55 pm UUID: 66494029-022e-4ec2-8ef7-ba0a32998aab Ancestors: Network-bf.2 - fix typo introduced in Network-bf.2 =============== Diff against Network-bf.2 =============== Item was changed: ----- Method: ServerDirectory>>putUpdate: (in category 'updates') ----- putUpdate: fileStrm "Put this file out as an Update on the servers of my group. Each version of the system may have its own set of update files, or they may all share the same files. 'updates.list' holds the master list. Each update is a fileIn whose name begins with a number. See Utilities class readServerUpdatesThrough:saveLocally:updateImage:. When two sets of updates are stored on the same directory, one of them has a * in its serverUrls description. When that is true, the first word of the description is put on the front of 'updates.list', and that index file is used." | myServers updateStrm newName response localName seq indexPrefix listContents version versIndex lastNum stripped | localName _ fileStrm localName. fileStrm size = 0 ifTrue: [^ self inform: 'That file has zero bytes!! May have a new name.']. (fileStrm contentsOfEntireFile includes: Character linefeed) ifTrue: [self notifyWithLabel: 'That file contains linefeeds. Proceed if... you know that this is okay (e.g. the file contains raw binary data).']. fileStrm reset. (self checkNames: {localName}) ifFalse: [^ nil]. "illegal characters" response _ (PopUpMenu labels: 'Install update\Cancel update' withCRs) startUpWithCaption: 'Do you really want to broadcast the file "', localName, '" as an update for every user of "', SystemVersion current version, '" who updates from server group "', self groupName, '"?'. response = 1 ifFalse: [^ nil]. "abort" self openGroup. indexPrefix _ (self groupName includes: $*) ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" ifFalse: ['']. "normal" myServers _ self checkServersWithPrefix: indexPrefix andParseListInto: [:x | listContents _ x]. myServers size = 0 ifTrue: [self closeGroup. ^ self]. version _ SystemVersion current version. versIndex _ (listContents collect: [:pair | pair first]) indexOf: version. versIndex = 0 ifTrue: [self inform: 'There is no section in updates.list for your version'. self closeGroup. ^ nil]. "abort" "A few affirmations..." versIndex < listContents size ifTrue: [(self confirm: 'This system, ', version , ' is not the latest version.\Make update for an older version?' withCRs) ifFalse: [self closeGroup. ^ nil]]. "abort" (listContents at: versIndex) last isEmpty ifTrue: [(self confirm: 'Please confirm that you mean to issue the first update for ' , version , '\(otherwise something is wrong).' withCRs) ifFalse: [self closeGroup. ^ nil]]. "We now determine next update number to be max of entire index" lastNum _ listContents inject: 0 into: [:max :pair | pair last isEmpty ifTrue: [max] ifFalse: [max max: pair last last initialIntegerOrNil]]. "Save old copy of updates.list on local disk" FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. Utilities writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). "append name to updates with new sequence number" seq _ (lastNum + 1) printString padded: #left to: 4 with: $0. "strip off any old seq number" stripped _ localName copyFrom: (localName findFirst: [:c | c isDigit not]) to: localName size. newName _ seq , stripped. listContents at: versIndex put: {version. (listContents at: versIndex) last copyWith: newName}. "Write a new copy on all servers..." updateStrm _ ReadStream on: (String streamContents: [:s | Utilities writeList: listContents toStream: s]). myServers do: [:aServer | fileStrm reset. "reopen" aServer putFile: fileStrm named: newName retry: true. updateStrm reset. aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. Transcript show: 'Update ', newName, ' succeeded on server ', aServer moniker; cr]. self closeGroup. Transcript cr; show: 'Be sure to test your new update!!'; cr. "rename the file locally (may fail)" fileStrm close. (fileStrm isKindOf: StandardFileStream) + ifTrue: [fileStrm directory rename: localName toBe: newName]. - ifTrue: [directory rename: localName toBe: newName]. !

1 0

Translation support
by Ricardo Moran 04 May '10

04 May '10

Hi guys, I'm starting to work on the translation support for GSoC and since I know nothing of how it is implemented and I'm already delayed in the timeline I wanted to ask you if you have any pointers on what/where should I look. Thanks in advance! Richo

6 23

Redundant strings in image
by Bert Freudenberg 03 May '10

03 May '10

It's astonishing to me how many copies we have of some strings in the new dev image. They add up to more than 3 MB wasted space! See for yourself: ===================== | f strings sorted count wasted | strings := Bag new. String allSubInstances do: [:s | strings add: s] displayingProgress: 'counting ...'. sorted := SortedCollection sortBlock: [:a :b | a first >= b first]. wasted := 0. strings asSet asArray do: [:s | count := strings occurrencesOf: s. count > 1 ifTrue: [ wasted := wasted + (count - 1 * s byteSize). sorted add: {count*s byteSize. count. s}]] displayingProgress: 'sorting ...'. f := FileStream newFileNamed: 'bla.txt'. [sorted do: [:each | f nextPutAll: '==============='; cr. each do: [:elem | f nextPutAll: elem asString] separatedBy: [f space]. f cr] displayingProgress: 'writing ...'. ] ensure: [f close]. wasted asStringWithCommas ===================== In comparison, the Etoys 4.0 release image had "only" 600 KB wasted by this. Any idea where those strings could come from? - Bert -

2 4

Etoys: Etoys-bf.3.mcz
by commits＠source.squeak.org 03 May '10

03 May '10

Bert Freudenberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-bf.3.mcz ==================== Summary ==================== Name: Etoys-bf.3 Author: bf Time: 3 May 2010, 12:00:49 pm UUID: 07d78cbc-14c0-42f1-9ff7-f2b62d065d43 Ancestors: Etoys-bf.2 - remove unused EToySystem class =============== Diff against Etoys-bf.2 =============== Item was removed: - ----- Method: EToySystem classSide>>cleanupsForRelease (in category 'development support') ----- - cleanupsForRelease - "Miscellaneous space cleanups to do before a release." - "EToySystem cleanupsForRelease" - - Socket deadServer: ''. "Don't reveal any specific server name" - HandMorph initialize. "free cached ColorChart" - PaintBoxMorph initialize. "forces Prototype to let go of extra things it might hold" - Smalltalk removeKey: #AA ifAbsent: []. - Smalltalk removeKey: #BB ifAbsent: []. - Smalltalk removeKey: #CC ifAbsent: []. - Smalltalk removeKey: #DD ifAbsent: []. - Smalltalk removeKey: #Temp ifAbsent: []. - - ScriptingSystem reclaimSpace. - Smalltalk cleanOutUndeclared. - Smalltalk reclaimDependents. - Smalltalk forgetDoIts. - Smalltalk removeEmptyMessageCategories. - Symbol rehash. - ! Item was removed: - ----- Method: EToySystem classSide>>fixComicCharacters (in category 'misc') ----- - fixComicCharacters - "EToySystem fixComicCharacters" - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $_ put: - (Form - extent: 9@16 - depth: 1 - fromArray: #( 0 0 0 134217728 402653184 805306368 2139095040 4278190080 2139095040 805306368 402653184 134217728 0 0 0 0) - offset: 0@0). - - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $1 put: - (Form - extent: 5@16 - depth: 1 - fromArray: #( 0 0 0 0 1610612736 3758096384 3758096384 1610612736 1610612736 1610612736 1610612736 4026531840 4026531840 0 0 0) - offset: 0@0). - - - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $2 put: - (Form - extent: 6@16 - depth: 1 - fromArray: #( 0 0 0 0 1879048192 4160749568 2550136832 939524096 1879048192 3758096384 3221225472 4160749568 4160749568 0 0 0) - offset: 0@0). - - - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $4 put: - (Form - extent: 7@16 - depth: 1 - fromArray: #( 0 0 0 0 134217728 402653184 402653184 939524096 1476395008 4227858432 4227858432 402653184 402653184 0 0 0) - offset: 0@0). - - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $j put: - (Form - extent: 4@16 - depth: 1 - fromArray: #( 0 0 0 0 1610612736 1610612736 0 1610612736 1610612736 1610612736 1610612736 1610612736 1610612736 1610612736 3758096384 3221225472) - offset: 0@0). - - ! Item was removed: - StandardScriptingSystem subclass: #EToySystem - instanceVariableNames: '' - classVariableNames: 'EToyVersion EToyVersionDate' - poolDictionaries: '' - category: 'Etoys-Experimental'! - - !EToySystem commentStamp: '<historical>' prior: 0! - A global object holding onto properties and code of the overall E-toy system of the moment. Its code is entirely held on the class side; the class is never instantiated.! Item was removed: - ----- Method: EToySystem classSide>>loadJanForms (in category 'development support') ----- - loadJanForms - "EToySystem loadJanForms" - - | aReferenceStream newFormDict | - aReferenceStream _ ReferenceStream fileNamed: 'JanForms'. - newFormDict _ aReferenceStream next. - aReferenceStream close. - newFormDict associationsDo: - [:assoc | Imports default importImage: assoc value named: assoc key]! Item was removed: - ----- Method: EToySystem classSide>>prepareRelease (in category 'stripped') ----- - prepareRelease - self codeStrippedOut: '2.3External'! Item was removed: - ----- Method: EToySystem classSide>>stripMethodsForExternalRelease (in category 'development support') ----- - stripMethodsForExternalRelease - "EToySystem stripMethodsForExternalRelease" - - SmalltalkImage current stripMethods: self methodsToStripForExternalRelease messageCode: '2.3External'! Item was removed: - ----- Method: EToySystem classSide>>previewEToysOn: (in category 'stripped') ----- - previewEToysOn: arg1 - self codeStrippedOut: '2.3External'! Item was removed: - ----- Method: EToySystem classSide>>methodsToStripForExternalRelease (in category 'external release') ----- - methodsToStripForExternalRelease - "Answer a list of triplets #(className, class/instance, methodName) of methods to be stripped in an external release." - ^ #( - (EToySystem class prepareRelease) - (EToySystem class previewEToysOn:) - )!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2010