Packages November 2017

packages@lists.squeakfoundation.org

1 participants
117 discussions

The Trunk: System-dtl.978.mcz
by commits＠source.squeak.org 17 Nov '17

17 Nov '17

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.978.mcz ==================== Summary ==================== Name: System-dtl.978 Author: dtl Time: 16 November 2017, 7:58:19.05618 pm UUID: 8f5f2399-537c-49b1-9daa-ae1864d08a1c Ancestors: System-dtl.977 enterAsActiveSubprojectWithin: is currently meaningful only for Morphic projects, so move it from Project to MorphicProject. Original method stamp preserved. =============== Diff against System-dtl.977 =============== Item was removed: - ----- Method: Project>>enterAsActiveSubprojectWithin: (in category 'enter') ----- - enterAsActiveSubprojectWithin: enclosingWorld - - "Install my ChangeSet, Transcript, and scheduled views as current globals. - - If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case. - If saveForRevert is true, save the ImageSegment of the project being left. - If revertFlag is true, make stubs for the world of the project being left. - If revertWithoutAsking is true in the project being left, then always revert." - - "Experimental mods for initial multi-project work: - 1. assume in morphic (this eliminated need for <showZoom>) - 2. assume <saveForRevert> is false (usual case) - removed <old> - 3. assume <revertFlag> is false - 4. assume <revertWithoutAsking> is false - <forceRevert> now auto false <seg> n.u. - 5. no zooming - 6. assume <projectsSentToDisk> false - could be dangerous here - 7. assume no isolation problems (isolationHead ==) - 8. no closing scripts - " - - self isCurrentProject ifTrue: [^ self]. - - "guards ifNotNil: [ - guards := guards reject: [:obj | obj isNil]. - guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]] - ]." - - "CurrentProject makeThumbnail." - "--> Display bestGuessOfCurrentWorld triggerClosingScripts." - CurrentProject displayDepth: Display depth. - - displayDepth == nil ifTrue: [displayDepth := Display depth]. - "Display newDepthNoRestore: displayDepth." - - "(world hasProperty: #letTheMusicPlay) - ifTrue: [world removeProperty: #letTheMusicPlay] - ifFalse: [Smalltalk at: #ScorePlayer ifPresent: [:playerClass | - playerClass allSubInstancesDo: [:player | player pause]]]." - - "returningFlag - ifTrue: [nextProject := CurrentProject] - ifFalse: [previousProject := CurrentProject]." - - "CurrentProject saveState." - "CurrentProject := self." - "Smalltalk newChanges: changeSet." - "TranscriptStream newTranscript: transcript." - "Sensor flushKeyboard." - "recorderOrNil := Display pauseMorphicEventRecorder." - - "Display changeMorphicWorldTo: world." "Signifies Morphic" - world - installAsActiveSubprojectIn: enclosingWorld - titled: self name. - - "recorderOrNil ifNotNil: [recorderOrNil resumeIn: world]." - world triggerOpeningScripts. - self removeParameter: #exportState. - "self spawnNewProcessAndTerminateOld: true"!

1 0

The Trunk: Morphic-dtl.1367.mcz
by commits＠source.squeak.org 17 Nov '17

17 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1367.mcz ==================== Summary ==================== Name: Morphic-dtl.1367 Author: dtl Time: 16 November 2017, 7:56:42.140175 pm UUID: 3aa19889-422e-41c5-93d0-73bbcfaf7c00 Ancestors: Morphic-dtl.1366 enterAsActiveSubprojectWithin: is currently meaningful only for Morphic projects, so move it from Project to MorphicProject. Original method stamp preserved. =============== Diff against Morphic-dtl.1366 =============== Item was added: + ----- Method: MorphicProject>>enterAsActiveSubprojectWithin: (in category 'enter') ----- + enterAsActiveSubprojectWithin: enclosingWorld + + "Install my ChangeSet, Transcript, and scheduled views as current globals. + + If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case. + If saveForRevert is true, save the ImageSegment of the project being left. + If revertFlag is true, make stubs for the world of the project being left. + If revertWithoutAsking is true in the project being left, then always revert." + + "Experimental mods for initial multi-project work: + 1. assume in morphic (this eliminated need for <showZoom>) + 2. assume <saveForRevert> is false (usual case) - removed <old> + 3. assume <revertFlag> is false + 4. assume <revertWithoutAsking> is false - <forceRevert> now auto false <seg> n.u. + 5. no zooming + 6. assume <projectsSentToDisk> false - could be dangerous here + 7. assume no isolation problems (isolationHead ==) + 8. no closing scripts + " + + self isCurrentProject ifTrue: [^ self]. + + "guards ifNotNil: [ + guards := guards reject: [:obj | obj isNil]. + guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]] + ]." + + "CurrentProject makeThumbnail." + "--> Display bestGuessOfCurrentWorld triggerClosingScripts." + CurrentProject displayDepth: Display depth. + + displayDepth == nil ifTrue: [displayDepth := Display depth]. + "Display newDepthNoRestore: displayDepth." + + "(world hasProperty: #letTheMusicPlay) + ifTrue: [world removeProperty: #letTheMusicPlay] + ifFalse: [Smalltalk at: #ScorePlayer ifPresent: [:playerClass | + playerClass allSubInstancesDo: [:player | player pause]]]." + + "returningFlag + ifTrue: [nextProject := CurrentProject] + ifFalse: [previousProject := CurrentProject]." + + "CurrentProject saveState." + "CurrentProject := self." + "Smalltalk newChanges: changeSet." + "TranscriptStream newTranscript: transcript." + "Sensor flushKeyboard." + "recorderOrNil := Display pauseMorphicEventRecorder." + + "Display changeMorphicWorldTo: world." "Signifies Morphic" + world + installAsActiveSubprojectIn: enclosingWorld + titled: self name. + + "recorderOrNil ifNotNil: [recorderOrNil resumeIn: world]." + world triggerOpeningScripts. + self removeParameter: #exportState. + "self spawnNewProcessAndTerminateOld: true"!

1 0

The Trunk: Morphic-dtl.1366.mcz
by commits＠source.squeak.org 16 Nov '17

16 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1366.mcz ==================== Summary ==================== Name: Morphic-dtl.1366 Author: dtl Time: 15 November 2017, 9:08:25.260401 pm UUID: e8c69c1d-a8e7-43d5-ab72-50c1f87eaf22 Ancestors: Morphic-dtl.1365 Update from Bob, resolves a related issue. To: squeak-dev(a)lists.squeakfoundation.org From: Bob Arning <arning315(a)comcast.net> Date: Wed, 15 Nov 2017 20:40:28 -0500 Subject: Re: [squeak-dev] ActiveWorld and World globals I did encounter an emergency evaluator after posting the first code. My fix for that one is attached. =============== Diff against Morphic-dtl.1365 =============== Item was changed: ----- Method: WorldState>>displayWorld:submorphs: (in category 'update cycle') ----- displayWorld: aWorld submorphs: submorphs "Update this world's display." | deferredUpdateMode handsToDraw allDamage handDamageRects worldDamageRects | submorphs do: [:m | m fullBounds]. "force re-layout if needed" self checkIfUpdateNeeded ifFalse: [^ self]. "display is already up-to-date" deferredUpdateMode := self doDeferredUpdatingFor: aWorld. deferredUpdateMode ifFalse: [self assuredCanvas]. + worldDamageRects := self drawWorld: aWorld submorphs: submorphs invalidAreasOn: self assuredCanvas. "repair world's damage on canvas" - worldDamageRects := self drawWorld: aWorld submorphs: submorphs invalidAreasOn: canvas. "repair world's damage on canvas" "self handsDo:[:h| h noticeDamageRects: worldDamageRects]." handsToDraw := self selectHandsToDrawForDamage: worldDamageRects. handDamageRects := handsToDraw collect: [:h | h savePatchFrom: canvas]. allDamage := worldDamageRects, handDamageRects. handsToDraw reverseDo: [:h | canvas fullDrawMorph: h]. "draw hands onto world canvas" "*make this true to flash damaged areas for testing*" Preferences debugShowDamage ifTrue: [aWorld flashRects: allDamage color: Color black]. canvas finish: allDamage. "quickly copy altered rects of canvas to Display:" deferredUpdateMode ifTrue: [self forceDamageToScreen: allDamage] ifFalse: [canvas showAt: aWorld viewBox origin invalidRects: allDamage]. handsToDraw do: [:h | h restoreSavedPatchOn: canvas]. "restore world canvas under hands" Display deferUpdates: false; forceDisplayUpdate. !

1 0

The Trunk: Morphic-dtl.1365.mcz
by commits＠source.squeak.org 16 Nov '17

16 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1365.mcz ==================== Summary ==================== Name: Morphic-dtl.1365 Author: dtl Time: 15 November 2017, 8:20:53.783219 pm UUID: ffd8c20a-fb70-44c5-93c5-cad0f8dcda3d Ancestors: Morphic-dtl.1364 Initial rehabilitation of worlds in worlds. Changes are in Morphic and System packages. To: squeak-dev(a)lists.squeakfoundation.org From: Bob Arning <arning315(a)comcast.net> Date: Tue, 14 Nov 2017 08:14:07 -0500 Subject: Re: [squeak-dev] ActiveWorld and World globals Here is a start (squeak 5.1). Not extensively tested, but a FileList in a world in the World was operational. 'From Squeak5.1 of 23 August 2016 [latest update: #16548] on 14 November 2017 at 8:11:28 am'! "Change Set: fixProjectView Date: 14 November 2017 Author: Bob Arning squeak 5.1... reinstate 'ENTER ACTIVE' option in menu for ProjectViewMorph "! =============== Diff against Morphic-dtl.1364 =============== Item was added: + ----- Method: PasteUpMorph>>installAsActiveSubprojectIn:at:titled: (in category 'WiW support') ----- + installAsActiveSubprojectIn: enclosingWorld at: newBounds titled: aString + | window howToOpen tm boundsForWorld | + howToOpen := self embeddedProjectDisplayMode. + "#scaled may be the only one that works at the moment" + submorphs do: [:ss | ss owner isNil ifTrue: [ss privateOwner: self]]. + "Transcript that was in outPointers and then got deleted." + boundsForWorld := howToOpen == #naked ifTrue: [newBounds] ifFalse: [bounds]. + worldState canvas: nil. + worldState viewBox: boundsForWorld. + self bounds: boundsForWorld. + + "self viewBox: Display boundingBox." + "worldState handsDo: [:h | h initForEvents]." + self installFlaps. + + "SystemWindow noteTopWindowIn: self." + "self displayWorldSafely." + howToOpen == #naked ifTrue: [enclosingWorld addMorphFront: self]. + howToOpen == #window + ifTrue: + [window := (SystemWindow labelled: aString) model: self. + window addMorph: self frame: (0 @ 0 extent: 1.0 @ 1.0). + window openInWorld: enclosingWorld]. + howToOpen == #frame + ifTrue: + [window := (AlignmentMorphBob1 new) + minWidth: 100; + minHeight: 100; + borderWidth: 8; + borderColor: Color green; + bounds: newBounds. + window addMorph: self. + window openInWorld: enclosingWorld]. + howToOpen == #scaled + ifTrue: + [self position: 0 @ 0. + window := (EmbeddedWorldBorderMorph new) + minWidth: 100; + minHeight: 100; + borderWidth: 8; + borderColor: Color green; + bounds: newBounds. + tm := BOBTransformationMorph new. + window addMorph: tm. + tm addMorph: self. + window openInWorld: enclosingWorld. + tm changeWorldBoundsToShow: bounds. + self arrangeToStartSteppingIn: enclosingWorld + "tm scale: (tm width / self width min: tm height / self height) asFloat."]! Item was added: + ----- Method: PasteUpMorph>>installAsActiveSubprojectIn:titled: (in category 'WiW support') ----- + installAsActiveSubprojectIn: enclosingWorld titled: aString + + | opt newWidth | + + opt := self optimumExtentFromAuthor. + (opt x > (enclosingWorld width * 0.7) or: + [opt y > (enclosingWorld height * 0.7)]) ifTrue: [ + newWidth := enclosingWorld width // 2. + opt := newWidth @ (opt y * newWidth / opt x) truncated + ]. + ^self + installAsActiveSubprojectIn: enclosingWorld + at: (enclosingWorld topLeft + (enclosingWorld extent - opt // 2) extent: opt) + titled: aString! Item was added: + ----- Method: ProjectViewMorph>>enterAsActiveSubproject (in category 'events') ----- + enterAsActiveSubproject + "Enter my project." + + project class == DiskProxy + ifTrue: + ["When target is not in yet" + + [self enterWhenNotPresent "will bring it in"] on: ProjectEntryNotification + do: [:ex | ^ex projectToEnter enterAsActiveSubprojectWithin: self world]. + project class == DiskProxy ifTrue: [self error: 'Could not find view']]. + (owner isSystemWindow) ifTrue: [project setViewSize: self extent]. + self showMouseState: 3. + project enterAsActiveSubprojectWithin: self world! Item was changed: ----- Method: ProjectViewMorph>>showMenuForProjectView (in category 'events') ----- showMenuForProjectView | menu | (menu := MenuMorph new) add: 'enter this project' translated action: [^ self enter]; + + add: 'ENTER ACTIVE' translated + action: [self setProperty: #wasOpenedAsSubproject toValue: true. + ^ self enterAsActiveSubproject]; add: 'PUBLISH (also saves a local copy)' translated action: [^ project storeOnServerShowProgressOn: self forgetURL: false]; add: 'PUBLISH to a different server' translated action: [project forgetExistingURL. ^ project storeOnServerShowProgressOn: self forgetURL: true]; add: 'see if server version is more recent' translated action: [^ self checkForNewerVersionAndLoad]; addLine; add: 'expunge this project' translated action: [^ self expungeProject]. menu title: ('Project Named \"{1}"' translated withCRs format: {project name}). menu invokeModal.!

1 0

The Trunk: System-dtl.977.mcz
by commits＠source.squeak.org 16 Nov '17

16 Nov '17

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.977.mcz ==================== Summary ==================== Name: System-dtl.977 Author: dtl Time: 15 November 2017, 8:22:41.646862 pm UUID: 3d7fa082-cd00-4df2-8574-19b747bb5784 Ancestors: System-dtl.976 Initial rehabilitation of worlds in worlds. Changes are in Morphic and System packages. To: squeak-dev(a)lists.squeakfoundation.org From: Bob Arning <arning315(a)comcast.net> Date: Tue, 14 Nov 2017 08:14:07 -0500 Subject: Re: [squeak-dev] ActiveWorld and World globals Here is a start (squeak 5.1). Not extensively tested, but a FileList in a world in the World was operational. 'From Squeak5.1 of 23 August 2016 [latest update: #16548] on 14 November 2017 at 8:11:28 am'! "Change Set: fixProjectView Date: 14 November 2017 Author: Bob Arning squeak 5.1... reinstate 'ENTER ACTIVE' option in menu for ProjectViewMorph "! =============== Diff against System-dtl.976 =============== Item was added: + ----- Method: Project>>enterAsActiveSubprojectWithin: (in category 'enter') ----- + enterAsActiveSubprojectWithin: enclosingWorld + + "Install my ChangeSet, Transcript, and scheduled views as current globals. + + If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case. + If saveForRevert is true, save the ImageSegment of the project being left. + If revertFlag is true, make stubs for the world of the project being left. + If revertWithoutAsking is true in the project being left, then always revert." + + "Experimental mods for initial multi-project work: + 1. assume in morphic (this eliminated need for <showZoom>) + 2. assume <saveForRevert> is false (usual case) - removed <old> + 3. assume <revertFlag> is false + 4. assume <revertWithoutAsking> is false - <forceRevert> now auto false <seg> n.u. + 5. no zooming + 6. assume <projectsSentToDisk> false - could be dangerous here + 7. assume no isolation problems (isolationHead ==) + 8. no closing scripts + " + + self isCurrentProject ifTrue: [^ self]. + + "guards ifNotNil: [ + guards := guards reject: [:obj | obj isNil]. + guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]] + ]." + + "CurrentProject makeThumbnail." + "--> Display bestGuessOfCurrentWorld triggerClosingScripts." + CurrentProject displayDepth: Display depth. + + displayDepth == nil ifTrue: [displayDepth := Display depth]. + "Display newDepthNoRestore: displayDepth." + + "(world hasProperty: #letTheMusicPlay) + ifTrue: [world removeProperty: #letTheMusicPlay] + ifFalse: [Smalltalk at: #ScorePlayer ifPresent: [:playerClass | + playerClass allSubInstancesDo: [:player | player pause]]]." + + "returningFlag + ifTrue: [nextProject := CurrentProject] + ifFalse: [previousProject := CurrentProject]." + + "CurrentProject saveState." + "CurrentProject := self." + "Smalltalk newChanges: changeSet." + "TranscriptStream newTranscript: transcript." + "Sensor flushKeyboard." + "recorderOrNil := Display pauseMorphicEventRecorder." + + "Display changeMorphicWorldTo: world." "Signifies Morphic" + world + installAsActiveSubprojectIn: enclosingWorld + titled: self name. + + "recorderOrNil ifNotNil: [recorderOrNil resumeIn: world]." + world triggerOpeningScripts. + self removeParameter: #exportState. + "self spawnNewProcessAndTerminateOld: true"!

1 0

The Trunk: System-dtl.976.mcz
by commits＠source.squeak.org 16 Nov '17

16 Nov '17

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.976.mcz ==================== Summary ==================== Name: System-dtl.976 Author: dtl Time: 15 November 2017, 8:01:35.111626 pm UUID: cde703e1-3df1-4d6a-bde9-df95a3215ab6 Ancestors: System-eem.975 Remove unnecessary references to global World. =============== Diff against System-eem.975 =============== Item was changed: ----- Method: AutoStart class>>startUp: (in category 'initialization') ----- startUp: resuming "The image is either being newly started (resuming is true), or it's just been snapshotted. If this has just been a snapshot, skip all the startup stuff." | startupParameters launchers | self active ifTrue: [^self]. self active: true. resuming ifFalse: [^self]. HTTPClient determineIfRunningInBrowser. startupParameters := Smalltalk namedArguments. (startupParameters includesKey: 'apiSupported' asUppercase ) ifTrue: [ HTTPClient browserSupportsAPI: ((startupParameters at: 'apiSupported' asUppercase) asUppercase = 'TRUE'). HTTPClient isRunningInBrowser ifFalse: [HTTPClient isRunningInBrowser: true]]. + Project current world ifNotNil: [:w | w install. w firstHand position: 100 @ 100 ]. - World ifNotNil: [:w | w install. w firstHand position: 100 @ 100 ]. "Some images might not have the UpdateStream package." ((self respondsTo: #checkForUpdates) and: [self checkForUpdates]) ifTrue: [^self]. self checkForPluginUpdate. launchers := self installedLaunchers collect: [:launcher | launcher new]. launchers do: [:launcher | launcher parameters: startupParameters]. launchers do: [:launcher | Project current addDeferredUIMessage: [launcher startUp]]! Item was changed: ----- Method: ExternalDropHandler class>>defaultImageHandler (in category 'private') ----- defaultImageHandler ^ExternalDropHandler type: 'image/' extension: nil action: [:stream :pasteUp :event | | image sketch | stream binary. image := Form fromBinaryStream: stream contents asByteArray readStream. Project current resourceManager addResource: image url: (FileDirectory urlForFileNamed: stream name) asString. + sketch := Project current world drawingClass withForm: image. - sketch := World drawingClass withForm: image. pasteUp addMorph: sketch centeredNear: event position. image := sketch := nil]! Item was changed: ----- Method: Preferences class>>classicTilesSettingToggled (in category 'updating - system') ----- classicTilesSettingToggled "The current value of the largeTiles flag has changed; now react" Smalltalk isMorphic ifTrue: [Preferences universalTiles ifFalse: [self inform: 'note that this will only have a noticeable effect if the universalTiles preference is set to true, which it currently is not' translated] ifTrue: + [Project current world recreateScripts]]! - [World recreateScripts]]! Item was changed: ----- Method: Preferences class>>largeTilesSettingToggled (in category 'updating - system') ----- largeTilesSettingToggled "The current value of the largeTiles flag has changed; now react" Smalltalk isMorphic ifTrue: [Preferences universalTiles ifFalse: [self inform: 'note that this will only have a noticeable effect if the universalTiles preference is set to true, which it currently is not' translated] ifTrue: + [Project current world recreateScripts]]! - [World recreateScripts]]! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'initialization - save/load') ----- storePreferencesIn: aFileName | stream prefsSnapshot | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. prefsSnapshot := preferencesDictionary copy. prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. stream nextPut: prefsSnapshot. stream nextPut: (Smalltalk isMorphic + ifTrue:[Project current world fillStyle] - ifTrue:[World fillStyle] ifFalse:[self desktopColor]). stream close! Item was changed: ----- Method: Preferences class>>universalTilesSettingToggled (in category 'updating - system') ----- universalTilesSettingToggled "The current value of the universalTiles flag has changed; now react" (self preferenceAt: #universalTiles ifAbsent: [^ self]) localToProject ifFalse: [^ self inform: 'This is troubling -- you may regret having done that, because the change will apply to *all projects*, including pre-existing ones. Unfortunately this check is done after the damage is done, so you may be hosed. Fortunately, however, you can simply reverse your choice right now and perhaps no deep damage will have been done.']. self universalTiles "User just switched project to classic tiles" ifFalse: [self inform: 'CAUTION -- if you had any scripted objects in this project that already used universal tiles, there is no reasonable way to go back to classic tiles. Recommended course of action in that case: just toggle this preference right back to true.'] ifTrue: [Preferences capitalizedReferences ifFalse: [Preferences enable: #capitalizedReferences. self inform: 'Note that the "capitalizedReferences" flag has now been automatically set to true for you, since this is required for the use of universal tiles.']. + Project current isMorphic ifTrue: + [Project current world recreateScripts]]! - World isMorph ifTrue: - [World recreateScripts]]! Item was changed: ----- Method: ResourceManager>>formChangedReminder (in category 'private') ----- formChangedReminder + ^[Project current world newResourceLoaded].! - ^[World newResourceLoaded].! Item was changed: ----- Method: SARInstaller>>openGraphicsFile: (in category 'client services') ----- openGraphicsFile: memberOrName | member morph | member := self memberNamed: memberOrName. member ifNil: [ ^self errorNoSuchMember: memberOrName ]. + morph := (Project current world drawingClass fromStream: member contentStream binary). - morph := (World drawingClass fromStream: member contentStream binary). morph ifNotNil: [ morph openInWorld ]. self installed: member.!

1 0

The Trunk: Files-tpr.173.mcz
by commits＠source.squeak.org 16 Nov '17

16 Nov '17

tim Rowledge uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-tpr.173.mcz ==================== Summary ==================== Name: Files-tpr.173 Author: tpr Time: 15 November 2017, 3:10:56.694097 pm UUID: 08650899-ae87-4c7d-8e87-258416826dc5 Ancestors: Files-ul.172 Add fileEntries and directoryEntries to return the actual entry objects; useful in some places wher fileNames/directoryNames + more processing might otherwise get used. =============== Diff against Files-ul.172 =============== Item was added: + ----- Method: FileDirectory>>directoryEntries (in category 'enumeration') ----- + directoryEntries + "Return a collection of full entries for the subdirectories of this directory." + "FileDirectory default directoryEntries" + + ^Array streamContents: [ :stream | + self entriesDo: [ :entry | + entry isDirectory ifTrue: [ + stream nextPut: entry ]]]! Item was added: + ----- Method: FileDirectory>>fileEntries (in category 'enumeration') ----- + fileEntries + "Return a collection of the full entries for the files (but not directories) in this directory." + "FileDirectory default fileEntries" + + ^Array streamContents: [ :stream | + self entriesDo: [ :entry | + entry isDirectory ifFalse: [ + stream nextPut: entry ]]]!

1 0

The Trunk: Morphic-dtl.1364.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1364.mcz ==================== Summary ==================== Name: Morphic-dtl.1364 Author: dtl Time: 15 November 2017, 8:04:47.876242 am UUID: 2e7a474a-a9eb-45ba-8d25-798ec766be78 Ancestors: Morphic-dtl.1363 >From last commit, fix class side reference to world, and revert change to Morph>>deleted until it can be addressed properly. =============== Diff against Morphic-dtl.1363 =============== Item was changed: ----- Method: Morph>>delete (in category 'submorphs-add/remove') ----- delete "Remove the receiver as a submorph of its owner and make its new owner be nil." | aWorld | self removeHalo. self isInWorld ifTrue: [ self disableSubmorphFocusForHand: self activeHand. self activeHand releaseKeyboardFocus: self; releaseMouseFocus: self]. "Preserve world reference for player notificaiton. See below." + aWorld := self world ifNil: [World]. - aWorld := self world ifNil: [self world]. owner ifNotNil:[ self privateDelete. self player ifNotNil: [:player | player noteDeletionOf: self fromWorld: aWorld]].! Item was changed: ----- Method: PluggableButtonMorph class>>roundedButtonCorners: (in category 'preferences') ----- roundedButtonCorners: aBoolean + | world | RoundedButtonCorners := aBoolean. + world := Project current world. + world invalidRect: world bounds from: world.! - World invalidRect: self world bounds from: self world.!

1 0

The Trunk: GetText-dtl.43.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-dtl.43.mcz ==================== Summary ==================== Name: GetText-dtl.43 Author: dtl Time: 14 November 2017, 10:50:26.259467 pm UUID: 3de4bc20-be7d-4303-8a28-46be0055b23a Ancestors: GetText-ul.42 Remove unnecessary references to global World. =============== Diff against GetText-ul.42 =============== Item was changed: ----- Method: LanguageEditor class>>ensureVisibilityOfWindow: (in category 'private') ----- ensureVisibilityOfWindow: aWindow "private - activate the window" + | world | + world := Project current world. - | | aWindow expand. aWindow comeToFront. "" aWindow + right: (aWindow right min: world right). - right: (aWindow right min: World right). aWindow + bottom: (aWindow bottom min: world bottom). - bottom: (aWindow bottom min: World bottom). aWindow + left: (aWindow left max: world left). - left: (aWindow left max: World left). aWindow + top: (aWindow top max: world top). - top: (aWindow top max: World top). "" aWindow flash; flash! Item was changed: ----- Method: LanguageEditor class>>openOn: (in category 'instance creation') ----- openOn: aLanguage "open an instance on aLanguage" | editor | + Project current world submorphs - World submorphs do: [:each | "" ((each isKindOf: LanguageEditor) and: [each translator == aLanguage]) ifTrue: ["" self ensureVisibilityOfWindow: each. ^ self]]. "" editor := self on: aLanguage. editor ifNotNil:[^editor openInWorld]!

1 0

The Trunk: Graphics-dtl.384.mcz
by commits＠source.squeak.org 15 Nov '17

15 Nov '17

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-dtl.384.mcz ==================== Summary ==================== Name: Graphics-dtl.384 Author: dtl Time: 14 November 2017, 10:45:54.935133 pm UUID: 09eeccf5-ae5f-45f7-91ae-72430a337370 Ancestors: Graphics-raa.383 Remove unnecessary references to global World. =============== Diff against Graphics-raa.383 =============== Item was changed: ----- Method: Form>>displayResourceFormOn: (in category 'displaying') ----- displayResourceFormOn: aForm "a special display method for blowing up resource thumbnails" | engine tx cmap blitter | self extent = aForm extent ifTrue:[^self displayOn: aForm]. engine := Smalltalk at: #B3DRenderEngine ifPresent: [:engineClass | engineClass defaultForPlatformOn: aForm]. engine ifNil:[ "We've got no bilinear interpolation. Use WarpBlt instead" (WarpBlt toForm: aForm) sourceForm: self destRect: aForm boundingBox; combinationRule: 3; cellSize: 2; warpBits. ^self ]. tx := self asTexture. (blitter := BitBlt toForm: tx) sourceForm: self; destRect: aForm boundingBox; sourceOrigin: 0@0; combinationRule: Form paint. "map transparency to current World background color" + (Project current world color respondsTo: #pixelWordForDepth:) ifTrue: [ - (World color respondsTo: #pixelWordForDepth:) ifTrue: [ cmap := Bitmap new: (self depth <= 8 ifTrue: [1 << self depth] ifFalse: [4096]). + cmap at: 1 put: (tx pixelWordFor: Project current world color). - cmap at: 1 put: (tx pixelWordFor: World color). blitter colorMap: cmap. ]. blitter copyBits. engine viewport: aForm boundingBox. engine material: ((Smalltalk at: #B3DMaterial) new emission: Color white). engine texture: tx. engine render: ((Smalltalk at: #B3DIndexedQuadMesh) new plainTextureRect). engine finish. "the above, using bilinear interpolation doesn't leave transparent pixel values intact" (WarpBlt toForm: aForm) sourceForm: self destRect: aForm boundingBox; combinationRule: Form and; colorMap: (Color maskingMap: self depth); warpBits.! Item was changed: ----- Method: TextStyle class>>replaceFontsIn:with: (in category 'mime file in/out') ----- replaceFontsIn: oldFontArray with: newStyle " TextStyle replaceFontsIn: (TextStyle looseFontsFromFamily: #Accuny) with: (TextStyle named: #Accuny) " "Try to find corresponding fonts in newStyle and substitute them for the fonts in oldFontArray" newStyle fontArray do: [ :newFont | newFont releaseCachedState ]. oldFontArray do: [ :oldFont | | newFont | oldFont reset. newFont := (newStyle fontOfPointSize: oldFont pointSize) emphasis: oldFont emphasis. oldFont becomeForward: newFont ]. Smalltalk at: #StringMorph ifPresent:[:cls| cls allSubInstancesDo: [ :s | s layoutChanged]]. Smalltalk at: #TextMorph ifPresent:[:cls| cls allSubInstancesDo: [ :s | s layoutChanged]]. Smalltalk at: #SystemWindow ifPresent:[:cls| cls allInstancesDo: [ :w | [ w update: #relabel ] on: Error do: [ :ex | ] ]]. + Project current world ifNotNil: [ :w | w changed ].! - World ifNotNil: [ :w | w changed ].!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2017