Packages March 2017

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: System-eem.933.mcz
by commits＠source.squeak.org 16 Mar '17

16 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.933.mcz ==================== Summary ==================== Name: System-eem.933 Author: eem Time: 16 March 2017, 11:13:21.423056 am UUID: e31159b6-b5e7-435f-9362-f3f146523ed3 Ancestors: System-ul.932 Add new primitive error codes used in BitBlt primitives to the primitiveErrorTable. =============== Diff against System-ul.932 =============== Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 60. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: BoxedFloat64. newArray at: 11 put: (self globals at: #MethodContext ifAbsent: [self globals at: #Context]). newArray at: 12 put: nil. "was BlockContext." newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. Cog inlines table into machine code at: prim so do not regenerate it. This is nil in Spur, which has immediate Characters." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" newArray at: 32 put: nil. "was the prototype Float" newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" newArray at: 34 put: nil. "was the prototype Point" newArray at: 35 put: #cannotInterpret:. newArray at: 36 put: nil. "was the prototype MethodContext" newArray at: 37 put: BlockClosure. newArray at: 38 put: nil. "was the prototype BlockContext" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" newArray at: 51 put: #attemptToAssign:withIndex:. newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' + #'object is pinned' #'primitive write beyond end of object' + #'object moved' #'object not pinned' #'callback error'). - #'object is pinned' #'primitive write beyond end of object'). "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." newArray at: 56 put: nil. "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. "59 reserved for Sista counter tripped message" newArray at: 59 put: #conditionalBranchCounterTrippedOn:. "60 reserved for Sista class trap message" newArray at: 60 put: #classTrapFor:. "Now replace the interpreter's reference in one atomic operation" self specialObjectsArray becomeForward: newArray! Item was changed: + (PackageInfo named: 'System') postscript: '"Re-create the specialObjectsArray to reflect the new primitive error codes." + (Smalltalk primitiveErrorTable includes: #''callback error'') ifFalse: + [Smalltalk recreateSpecialObjectsArray]'! - (PackageInfo named: 'System') postscript: '"Re-create all themes." - SqueakTheme create apply. - SqueakTheme createClassic; createDuller. - SolarizedTheme createDark; createLight. - MonokaiTheme createDark. - CommunityTheme createDark.'!

1 0

The Trunk: SUnitGUI-eem.66.mcz
by commits＠source.squeak.org 15 Mar '17

15 Mar '17

Eliot Miranda uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-eem.66.mcz ==================== Summary ==================== Name: SUnitGUI-eem.66 Author: eem Time: 15 March 2017, 9:06:24.485173 am UUID: d784d744-8f17-4d16-a2a9-25a399bed280 Ancestors: SUnitGUI-jr.65 Fix Browse in the TestRunner. The old code always set classIndex to zero when updating the selected classes, which disables browseClass. =============== Diff against SUnitGUI-jr.65 =============== Item was changed: ----- Method: TestRunner>>updateClasses (in category 'updating') ----- updateClasses | classesForCategories | classesForCategories := self findClassesForCategories: categoriesSelected. classes := classesForCategories asArray sort: [ :a :b | self sortClass: a before: b ]. - classIndex := 0. classesSelected := classesSelected isNil ifTrue: [ classesForCategories ] ifFalse: [ classesSelected select: [ :each | classesForCategories includes: each ] ]. + classIndex isInteger ifTrue: + [(classesSelected includes: (classes at: classIndex ifAbsent: [])) ifFalse: + [classIndex := 0]]. self changed: #classList; changed: #classSelected; changed: #hasRunnable.!

1 0

The Trunk: EToys-edc.286.mcz
by commits＠source.squeak.org 15 Mar '17

15 Mar '17

Edgar J. De Cleene uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-edc.286.mcz ==================== Summary ==================== Name: EToys-edc.286 Author: edc Time: 15 March 2017, 9:36:21.814758 am UUID: 9ff55c1b-04d4-41c4-a900-d63a0f16d1e5 Ancestors: EToys-edc.285 If you click the Scripting button of objects Window , have another deprecated issue. Think this fix it =============== Diff against EToys-edc.285 =============== Item was changed: ----- Method: StandardScriptingSystem>>borderColor (in category '*Etoys-Squeakland-tile colors') ----- borderColor + ^ (UserInterfaceTheme current get: #borderColor for: #MenuMorph) ifNil: [(Color r: 0.2 g: 0.3 b: 0.9)]! - ^ Preferences menuBorderColor!

1 0

The Trunk: Morphic-edc.1328.mcz
by commits＠source.squeak.org 15 Mar '17

15 Mar '17

Edgar J. De Cleene uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-edc.1328.mcz ==================== Summary ==================== Name: Morphic-edc.1328 Author: edc Time: 15 March 2017, 8:02:17.749741 am UUID: 2d4e7ff8-d420-4e0d-9db6-6bd157eafe56 Ancestors: Morphic-klc.1327 Change deprecated Utilities emptyScrapsBook to ScrapBook default emptyScrapBoo =============== Diff against Morphic-klc.1327 =============== Item was changed: ----- Method: MorphicProject>>exportSegmentWithChangeSet:fileName:directory:withoutInteraction: (in category 'file in/out') ----- exportSegmentWithChangeSet: aChangeSetOrNil fileName: aFileName directory: aDirectory withoutInteraction: noInteraction "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. Whatdo we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder collector fd mgr stacks | "Files out a changeSet first, so that a project can contain its own classes" world ifNil: [^ false]. world presenter ifNil: [^ false]. + ScrapBook default emptyScrapBook. - Utilities emptyScrapsBook. world cleanUpReferences. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ noInteraction ifTrue: [^ false]. self error: 'Still holding onto Global flaps']. world releaseSqueakPages. Smalltalk at: #ScriptEditorMorph ifPresent: [:s | s writingUniversalTiles: (self projectParameterAt: #universalTiles ifAbsent: [false])]. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" revertSeg := self parameterAt: #revertToMe. self removeParameter: #revertToMe. roots := OrderedCollection new. roots add: self; add: world; add: transcript; add: aChangeSetOrNil; add: thumbnail; add: world activeHand. "; addAll: classList; addAll: (classList collect: [:cls | cls class])" roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" fd := aDirectory directoryNamed: self resourceDirectoryName. fd assureExistence. "Clean up resource references before writing out" mgr := self resourceManager. self resourceManager: nil. ResourceCollector current: ResourceCollector new. ResourceCollector current localDirectory: fd. ResourceCollector current baseUrl: self resourceUrl. ResourceCollector current initializeFrom: mgr. ProgressNotification signal: '2:findingResources' extra: '(collecting resources...)' translated. "Must activate old world because this is run at #armsLength. Otherwise references to ActiveWorld, ActiveHand, or ActiveEvent will not be captured correctly if referenced from blocks or user code." world becomeActiveDuring:[ is := ImageSegment new copySmartRootsExport: roots asArray. "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)" ]. self resourceManager: mgr. collector := ResourceCollector current. ResourceCollector current: nil. ProgressNotification signal: '2:foundResources' extra: ''. is state = #tooBig ifTrue: [ collector replaceAll. ^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' translated withCRs]. str isEmpty ifFalse: [ ans := UIManager default chooseFrom: { 'Do not write file' translated. 'Write file anyway' translated. 'Debug' translated. } title: str. ans = 1 ifTrue: [ revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. collector replaceAll. ^ false]. ans = 3 ifTrue: [ collector replaceAll. self halt: 'Segment not written' translated]]. stacks := is findStacks. is writeForExportWithSources: aFileName inDirectory: fd changeSet: aChangeSetOrNil. SecurityManager default signFile: aFileName directory: fd. "Compress all files and update check sums" collector forgetObsolete. self storeResourceList: collector in: fd. self storeHtmlPageIn: fd. self storeManifestFileIn: fd. self writeStackText: stacks in: fd registerIn: collector. "local proj.005.myStack.t" self compressFilesIn: fd to: aFileName in: aDirectory resources: collector. "also deletes the resource directory" "Now update everything that we know about" mgr updateResourcesFrom: collector. revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. holder. collector replaceAll. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true !

1 0

The Trunk: MorphicExtras-dtl.204.mcz
by commits＠source.squeak.org 15 Mar '17

15 Mar '17

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-dtl.204.mcz ==================== Summary ==================== Name: MorphicExtras-dtl.204 Author: dtl Time: 14 March 2017, 10:16:50.397965 pm UUID: 7c2e53a7-51da-4f94-9483-073363d7d779 Ancestors: MorphicExtras-ul.203, MorphicExtras-hjh.202 Merge MorphicExtras-hjh.202 =============== Diff against MorphicExtras-ul.203 =============== Item was changed: ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') ----- initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | anIndex aButton | self baseDictionary: aDictionary. target := aTarget. coexistWithOriginal := true. self extent: 210 @ 210. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. aButton := (IconicButton new) borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-50 @ 6 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-24 @ 4 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (24 @ 4 extent: aButton extent)). self addMorph: ((UpdatingStringMorph new) contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat; setBalloonText: 'The name of the current graphic'; yourself) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (10 @ 40 corner: -10 @ 60)). self addMorph: ((Morph new) extent: 100 @ 4; color: Color black) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (0 @ 60 corner: 0 @ 64)). formDisplayMorph := (Thumbnail new) extent: 100 @ 100; useInterpolation: true; maxWidth: 3000 minHeight: 100; yourself. + formDisplayMorph layoutFrame: + (LayoutFrame fractions: (0 @ 0 extent: 0@0) + offsets: (8 @ 72 corner: 108 @ 172)). + self addMorph: formDisplayMorph. - self addMorph: formDisplayMorph - fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0) - offsets: (8 @ 72 corner: 108 @ 172)). self minimumExtent: 116@180. target ifNotNil: [(anIndex := formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex := anIndex]]. self updateThumbnail!

1 0

The Trunk: MorphicExtras-hjh.202.mcz
by commits＠source.squeak.org 15 Mar '17

15 Mar '17

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-hjh.202.mcz ==================== Summary ==================== Name: MorphicExtras-hjh.202 Author: hjh Time: 24 January 2017, 9:18:04.266965 pm UUID: 790dbeec-ba66-4070-b51f-a0225aef4a9f Ancestors: MorphicExtras-cmm.201 Maintain aspect ratio in thumbnail display of imported graphic =============== Diff against MorphicExtras-cmm.201 =============== Item was changed: ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') ----- initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | anIndex aButton | self baseDictionary: aDictionary. target := aTarget. coexistWithOriginal := true. self extent: 210 @ 210. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. aButton := (IconicButton new) borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-50 @ 6 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-24 @ 4 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (24 @ 4 extent: aButton extent)). self addMorph: ((UpdatingStringMorph new) contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat; setBalloonText: 'The name of the current graphic'; yourself) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (10 @ 40 corner: -10 @ 60)). self addMorph: ((Morph new) extent: 100 @ 4; color: Color black) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (0 @ 60 corner: 0 @ 64)). formDisplayMorph := (Thumbnail new) extent: 100 @ 100; useInterpolation: true; maxWidth: 3000 minHeight: 100; yourself. + formDisplayMorph layoutFrame: + (LayoutFrame fractions: (0 @ 0 extent: 0@0) + offsets: (8 @ 72 corner: 108 @ 172)). + self addMorph: formDisplayMorph. - self addMorph: formDisplayMorph - fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0) - offsets: (8 @ 72 corner: 108 @ 172)). self minimumExtent: 116@180. target ifNotNil: [(anIndex := formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex := anIndex]]. self updateThumbnail!

1 0

The Trunk: EToys-edc.285.mcz
by commits＠source.squeak.org 15 Mar '17

15 Mar '17

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-edc.285.mcz ==================== Summary ==================== Name: EToys-edc.285 Author: edc Time: 14 March 2017, 3:43:43.893237 pm UUID: d4b68d27-e1a7-4a81-a9da-2b255a2e63aa Ancestors: EToys-topa.284 If you selecgted save Project in Projects menu, debug rise due deprecated method, thik this sove the issue =============== Diff against EToys-topa.284 =============== Item was changed: ----- Method: StandardScriptingSystem>>baseColor (in category '*Etoys-Squeakland-tile colors') ----- baseColor + + ^ self userInterfaceTheme baseColor ifNil: [Color transparent]! - ^ Preferences menuTitleColor!

1 0

The Trunk: Morphic-klc.1327.mcz
by commits＠source.squeak.org 14 Mar '17

14 Mar '17

Ken Causey uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-klc.1327.mcz ==================== Summary ==================== Name: Morphic-klc.1327 Author: klc Time: 14 March 2017, 11:33:10.111015 am UUID: 40f5883d-42b0-4641-b8f6-95f89cb173b4 Ancestors: Morphic-ul.1326 Update URL in Morph comment from GA Tech Swiki hosting to current wiki.squeak.org. =============== Diff against Morphic-ul.1326 =============== Item was changed: Object subclass: #Morph instanceVariableNames: 'bounds owner submorphs fullBounds color extension' classVariableNames: 'IndicateKeyboardFocus PreferredCornerRadius UseSoftDropShadow' poolDictionaries: '' category: 'Morphic-Kernel'! + !Morph commentStamp: 'klc 3/14/2017 11:30' prior: 0! + A Morph (from the Greek "shape" or "form") is an interactive graphical object. General information on the Morphic system can be found at http://wiki.squeak.org/squeak/30. - !Morph commentStamp: 'efc 2/26/2003 20:01' prior: 0! - A Morph (from the Greek "shape" or "form") is an interactive graphical object. General information on the Morphic system can be found at http://minnow.cc.gatech.edu/squeak/30. Morphs exist in a tree, rooted at a World (generally a PasteUpMorph). The morphs owned by a morph are its submorphs. Morphs are drawn recursively; if a Morph has no owner it never gets drawn. To hide a Morph and its submorphs, set its #visible property to false using the #visible: method. The World (screen) coordinate system is used for most coordinates, but can be changed if there is a TransformMorph somewhere in the owner chain. My instance variables have accessor methods (e.g., #bounds, #bounds:). Most users should use the accessor methods instead of using the instance variables directly. Structure: instance var Type Description bounds Rectangle A Rectangle indicating my position and a size that will enclose me. owner Morph My parent Morph, or nil for the top-level Morph, which is a or nil world, typically a PasteUpMorph. submorphs Array My child Morphs. fullBounds Rectangle A Rectangle minimally enclosing me and my submorphs. color Color My primary color. Subclasses can use this in different ways. extension MorphExtension Allows extra properties to be stored without adding a or nil storage burden to all morphs. By default, Morphs do not position their submorphs. Morphs may position their submorphs directly or use a LayoutPolicy to automatically control their submorph positioning. Although Morph has some support for BorderStyle, most users should use BorderedMorph if they want borders.!

1 0

The Trunk: EToys-topa.284.mcz
by commits＠source.squeak.org 14 Mar '17

14 Mar '17

Tobias Pape uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-topa.284.mcz ==================== Summary ==================== Name: EToys-topa.284 Author: topa Time: 14 March 2017, 5:12:34.993671 pm UUID: c4bc7ada-4cdd-445f-97d5-a0a2c16fcd19 Ancestors: EToys-ul.283 A Pragma pref for popup arrows =============== Diff against EToys-ul.283 =============== Item was changed: RectangleMorph subclass: #TileMorph instanceVariableNames: 'type slotName literal operatorOrExpression actualObject downArrow upArrow suffixArrow typeColor lastArrowTick nArrowTicks operatorReadoutString possessive retractArrow vocabulary vocabularySymbol' + classVariableNames: 'DownPicture EqualityOperators RetractPicture SuffixArrowAllowance SuffixPicture UpArrowAllowance UpPicture UpdatingOperators UsePopUpArrows' - classVariableNames: 'DownPicture EqualityOperators RetractPicture SuffixArrowAllowance SuffixPicture UpArrowAllowance UpPicture UpdatingOperators' poolDictionaries: '' category: 'Etoys-Scripting Tiles'! !TileMorph commentStamp: '<historical>' prior: 0! A tile with up, down and suffix arrows. To install new Forms for the arrows, just nil out UpPicture, DownPicture, or SuffixPicture. Create actors with the picture you want and write it out with these file names: 'tile inc arrow.morph' 'tile dec arrow.morph' 'tile suffix arrow.morph'. Make sure that file is in the same directory as the image. Open an EToy.! Item was added: + ----- Method: TileMorph class>>usePopUpArrows (in category 'preferences') ----- + usePopUpArrows + + <preference: 'Use pop-up arrows for tiles' + category: 'scripting' + description: 'If true, uses pop-up arrows in tiles ' + type: #Boolean> + ^ UsePopUpArrows ifNil: [UsePopUpArrows := false].! Item was added: + ----- Method: TileMorph class>>usePopUpArrows: (in category 'preferences') ----- + usePopUpArrows: aBoolean + + UsePopUpArrows := aBoolean.! Item was changed: ----- Method: TileMorph>>showPopArrows (in category '*Etoys-Squeakland-arrows popup') ----- showPopArrows | vpanel hpanel | + self class usePopUpArrows - Preferences usePopUpArrows ifFalse: [^ self]. self hidePopArrows. self isPopArrowNeeded ifFalse: [^ self]. vpanel := self buildVPopArrows. hpanel := self buildHPopArrows. self activeHand setProperty: #popArrows toValue: {self. vpanel. hpanel}. self layoutChanged!

1 0

The Trunk: Monticello-eem.666.mcz
by commits＠source.squeak.org 14 Mar '17

14 Mar '17

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.666.mcz ==================== Summary ==================== Name: Monticello-eem.666 Author: eem Time: 13 March 2017, 7:16:29.454362 pm UUID: f527e844-d0de-4339-b0cd-f4052cf67d38 Ancestors: Monticello-ul.665 Remove an unnecessary block in MCRepositoryInspector>>versionList. Fix a bug in MCCacheRepository>>versionInfoForFileNamed: (it has a cache, but no infoCache). =============== Diff against Monticello-ul.665 =============== Item was changed: ----- Method: MCCacheRepository>>versionInfoForFileNamed: (in category 'as yet unclassified') ----- versionInfoForFileNamed: aString + ^ cache at: aString ifAbsentPut: [self versionReaderForFileNamed: aString do: [:r | r info]]! - ^ self infoCache at: aString ifAbsentPut: [self versionReaderForFileNamed: aString do: [:r | r info]]! Item was changed: ----- Method: MCRepositoryInspector>>versionList (in category 'morphic ui') ----- versionList | result | result := selectedPackage + ifNil: [ self versionNamesForNoPackageSelection ] + ifNotNil: [ self versionNamesForSelectedPackage ]. - ifNil: [ self versionNamesForNoPackageSelection ] - ifNotNil: [ self versionNamesForSelectedPackage ]. (self orderSpecs at: order) value ifNotNil: + [ : sortBlock | + result sort: sortBlock ]. + ^result collect: - [ : sortBlock | result sort: - [ : a : b | sortBlock - value: a - value: b ] ]. - ^ result collect: [ : each | self versionHighlight: each ]!

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2017