Packages August 2019

packages@lists.squeakfoundation.org

1 participants
150 discussions

The Trunk: 60Deprecated-mt.43.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.43.mcz ==================== Summary ==================== Name: 60Deprecated-mt.43 Author: mt Time: 19 August 2019, 5:55:23.557665 pm UUID: 1f9da617-a35d-bb42-aabc-931e7bb96753 Ancestors: 60Deprecated-mt.42 Deprecates and old Etoys way to change the extent of the host window. =============== Diff against 60Deprecated-mt.42 =============== Item was added: + ----- Method: DisplayScreen class>>hostWindowSize: (in category '*60Deprecated') ----- + hostWindowSize: aPoint + self deprecated: 'Use ', #hostWindowExtent:. + self primitiveWindowSize: self hostWindowIndex width: aPoint x heigth: aPoint y + !

1 0

The Trunk: 51Deprecated-ct.55.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-ct.55.mcz ==================== Summary ==================== Name: 51Deprecated-ct.55 Author: ct Time: 15 August 2019, 5:40:12.950735 pm UUID: b38691b1-fb52-6344-b640-8c59bec7545f Ancestors: 51Deprecated-ct.54 Mark further methods as deprecated (and check their senders) =============== Diff against 51Deprecated-ct.54 =============== Item was changed: ----- Method: DisplayScreen class>>depth:width:height:fullscreen: (in category '*51Deprecated') ----- depth: depthInteger width: widthInteger height: heightInteger fullscreen: aBoolean "Force Squeak's window (if there's one) into a new size and depth." "DisplayScreen depth: 8 width: 1024 height: 768 fullscreen: false" <primitive: 92> + self deprecated: 'Use ', #(hostWindowExtent: fullScreenOn fullScreenOff) asCommaStringAnd. self primitiveFailed! Item was added: + ----- Method: DisplayScreen class>>hostWindowSize: (in category '*51Deprecated') ----- + hostWindowSize: aPoint + self deprecated: 'Use ', #hostWindowExtent:. + self primitiveWindowSize: self hostWindowIndex width: aPoint x heigth: aPoint y + ! Item was changed: ----- Method: DockingBarMorph>>useRoundedCorners (in category '*51Deprecated') ----- useRoundedCorners + self deprecated. self cornerStyle: #rounded! Item was changed: ----- Method: DockingBarMorph>>useSquareCorners (in category '*51Deprecated') ----- useSquareCorners + self deprecated. self cornerStyle: #square! Item was changed: ----- Method: DummyUIManager>>restoreDisplay (in category '*51Deprecated') ----- + restoreDisplay + + self deprecated.! - restoreDisplay! Item was changed: ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category '*51Deprecated') ----- registerStandardExternalDropHandlers "ExternalDropHandler registerStandardExternalDropHandlers" + self deprecated. self registeredHandlers add: ( ExternalDropHandler type: 'image/' extension: nil action: [:stream :pasteUp :event | pasteUp addMorph: (Project current world drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])! Item was changed: ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category '*51Deprecated') ----- setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp + self deprecated: 'Use ', #setType:buttons:position:keyValue:hand:stamp:. self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp! Item was changed: ----- Method: MVCProject>>pauseSoundPlayers (in category '*51Deprecated') ----- pauseSoundPlayers "Pause sound players, subject to preference settings" + self deprecated. Smalltalk at: #ScorePlayer ifPresent:[:playerClass| playerClass allSubInstancesDo: [:player | player pause]]! Item was changed: ----- Method: NewParagraph>>insertionPointColor (in category '*51Deprecated') ----- insertionPointColor + self deprecated. self focused ifFalse: [^ Color transparent]. ^ Display depth <= 2 ifTrue: [Color black] ifFalse: [Preferences insertionPointColor]! Item was changed: ----- Method: Object>>dragAnimationFor:transferMorph: (in category '*51Deprecated') ----- dragAnimationFor: item transferMorph: transferMorph + "Default do nothing" + self deprecated.! - "Default do nothing"! Item was changed: ----- Method: PluggableButtonMorph>>useRoundedCorners (in category '*51Deprecated') ----- useRoundedCorners + self deprecated. self cornerStyle: #rounded! Item was changed: ----- Method: PluggableButtonMorph>>useSquareCorners (in category '*51Deprecated') ----- useSquareCorners + self deprecated. self cornerStyle: #square! Item was changed: ----- Method: Project class>>interruptName: (in category '*51Deprecated') ----- interruptName: labelString "Create a Notifier on the active scheduling process with the given label." + self deprecated: 'Send this message to Project current'. - self flag: #toRemove. "after restarting the user interrupt watcher process" ^ self current interruptName: labelString ! Item was changed: ----- Method: Project class>>spawnNewProcess (in category '*51Deprecated') ----- spawnNewProcess "Meaningful only for a Morphic project, but retained here to protect for possible references from e.g. image segments" + self deprecated: 'Send this message to Project current'. self current spawnNewProcess! Item was changed: ----- Method: Project class>>spawnNewProcessAndTerminateOld: (in category '*51Deprecated') ----- spawnNewProcessAndTerminateOld: terminate "Meaningful only for a Morphic project, but retained here to protect for possible references from e.g. image segments" + self deprecated: 'Send this message to Project current'. ^ self current spawnNewProcessAndTerminateOld: terminate ! Item was changed: ----- Method: Project class>>spawnNewProcessIfThisIsUI: (in category '*51Deprecated') ----- spawnNewProcessIfThisIsUI: suspendedProcess "Meaningful only for a Morphic project, but retained here to protect for possible references from e.g. image segments" + self deprecated: 'Send this message to Project current'. self current spawnNewProcessIfThisIsUI: suspendedProcess ! Item was changed: ----- Method: ScrollBar class>>createArrowOfDirection:in: (in category '*51Deprecated') ----- createArrowOfDirection: aSymbol in: aRectangle "PRIVATE - create an arrow bounded in aRectangle" | arrow vertices | + self deprecated: 'See ArrowImagesCache'. vertices := Preferences alternativeButtonsInScrollBars ifTrue: [self verticesForComplexArrow: aRectangle] ifFalse: [self verticesForSimpleArrow: aRectangle]. "" arrow := PolygonMorph vertices: vertices color: Color transparent borderWidth: 0 borderColor: Color black. "" arrow bounds: (arrow bounds insetBy: (aRectangle width / 6) rounded). "" Preferences alternativeButtonsInScrollBars ifTrue: [arrow rotationDegrees: 45]. "" aSymbol == #right ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 90]. aSymbol == #bottom ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 180]. aSymbol == #left ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 270]. "" ^arrow! Item was changed: ----- Method: ScrollBar class>>createBoxIn: (in category '*51Deprecated') ----- createBoxIn: aRectangle "PRIVATE - create an box bounded in aRectangle" | box | + self deprecated: 'See ArrowImagesCache'. box := RectangleMorph new. box extent: (aRectangle scaleBy: 1 / 2) extent rounded; borderWidth: 0. "" ^ box! Item was changed: ----- Method: ScrollBar class>>updateScrollBarButtonAspect:color: (in category '*51Deprecated') ----- updateScrollBarButtonAspect: aMorph color: aColor "update aMorph with aColor" | fill direction | + self deprecated. aMorph isNil ifTrue: [^ self]. "" aMorph color: aColor. self gradientScrollBar ifFalse: [^ self]. "" fill := GradientFillStyle ramp: { 0.0 -> aColor twiceLighter twiceLighter. 1.0 -> aColor twiceDarker}. "" direction := ((aMorph width min: aMorph height) + ((aMorph width - aMorph height) abs * 0.3)) rounded. "" fill origin: aMorph topLeft + (direction // 8). fill direction: direction @ direction. fill radial: true. "" aMorph fillStyle: fill! Item was changed: ----- Method: ScrollBar class>>updateScrollBarButtonsAspect:color: (in category '*51Deprecated') ----- updateScrollBarButtonsAspect: aCollection color: aColor "update aCollection of morphs with aColor" + self deprecated. - aCollection do: [:each | self updateScrollBarButtonAspect: each color: aColor]! Item was changed: ----- Method: ScrollBar class>>verticesForComplexArrow: (in category '*51Deprecated') ----- verticesForComplexArrow: aRectangle "PRIVATE - answer a collection of vertices to draw a complex arrow" | vertices aux | + self deprecated: 'See ArrowImagesCache'. vertices := OrderedCollection new. "" vertices add: aRectangle bottomLeft. vertices add: aRectangle topLeft. vertices add: aRectangle topRight. "" aux := (aRectangle width / 3) rounded. vertices add: aRectangle topRight + (0 @ aux). vertices add: aRectangle topLeft + aux. vertices add: aRectangle bottomLeft + (aux @ 0). "" ^ vertices! Item was changed: ----- Method: ScrollBar class>>verticesForSimpleArrow: (in category '*51Deprecated') ----- verticesForSimpleArrow: aRectangle "PRIVATE - answer a collection of vertices to draw a simple arrow" | vertices | + self deprecated: 'See ArrowImagesCache'. vertices := OrderedCollection new. "" vertices add: aRectangle bottomLeft. vertices add: aRectangle center x @ (aRectangle top + (aRectangle width / 8)). vertices add: aRectangle bottomRight. "" ^ vertices! Item was changed: ----- Method: ScrollBar>>scrollDown (in category '*51Deprecated') ----- scrollDown + self deprecated: 'Use ', #doScrollDown. - self flag: #obsolete. downButton eventHandler: nil. downButton on: #mouseDown send: #scrollDownInit to: self. downButton on: #mouseUp send: #finishedScrolling to: self. ^self scrollDownInit! Item was changed: ----- Method: ScrollBar>>scrollUp (in category '*51Deprecated') ----- scrollUp + self deprecated: 'Use ', #doScrollUp. - self flag: #obsolete. upButton eventHandler: nil. upButton on: #mouseDown send: #scrollUpInit to: self. upButton on: #mouseUp send: #finishedScrolling to: self. ^self scrollUpInit! Item was changed: ----- Method: StandardFileStream>>asHtml (in category '*51Deprecated-Files-Kernel') ----- asHtml "Convert me in to an HtmlFileStream. 4/11/96 tk" + self deprecated: 'Use self as: HtmlFileStream'. ^ self as: HtmlFileStream ! Item was changed: ----- Method: SystemWindow>>setLabelFont: (in category '*51Deprecated') ----- setLabelFont: aFont + self deprecated. label ifNil: [^ self]. label font: aFont. ! Item was changed: ----- Method: TheWorldMenu>>inspectWorldModel (in category '*51Deprecated-Tools') ----- inspectWorldModel + self deprecated. myWorld model inspect.! Item was changed: ----- Method: Time class>>primLocalMicrosecondClock (in category '*51Deprecated-primitives') ----- primLocalMicrosecondClock "Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC." <primitive: 241> + self deprecated. ^0! Item was changed: ----- Method: Time class>>primMicrosecondClock (in category '*51Deprecated-primitives') ----- primMicrosecondClock "Answer the number of microseconds since the microsecond clock was last reset or rolled over. Answer zero if the primitive fails." <primitive: 'primitiveMicrosecondClock'> + self deprecated. ^ 0! Item was changed: ----- Method: Time class>>primMillisecondClock (in category '*51Deprecated-primitives') ----- primMillisecondClock "Primitive. Answer the number of milliseconds since the millisecond clock was last reset or rolled over. Answer zero if the primitive fails. Optional. See Object documentation whatIsAPrimitive." <primitive: 135> + self deprecated. ^ 0! Item was changed: ----- Method: Time class>>primMillisecondClockMask (in category '*51Deprecated-primitives') ----- primMillisecondClockMask "Answer the mask value used for millisecond clock rollover in the virtual machine, or nil if the VM cannot support the request." <primitive: 'primitiveMillisecondClockMask'> + self deprecated. ^nil! Item was changed: ----- Method: Time class>>primSecondsClock (in category '*51Deprecated-primitives') ----- primSecondsClock "Answer the number of seconds since 00:00 on the morning of January 1, 1901 (a 32-bit unsigned number). Essential. See Object documentation whatIsAPrimitive. " <primitive: 137> + self deprecated. self primitiveFailed! Item was changed: ----- Method: Time class>>primUTCMicrosecondClock (in category '*51Deprecated-primitives') ----- primUTCMicrosecondClock "Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." <primitive: 240> + self deprecated. ^0! Item was changed: ----- Method: Time class>>secondsWhenClockTicks (in category '*51Deprecated-primitives') ----- secondsWhenClockTicks "waits for the moment when a new second begins" | lastSecond delay | + self deprecated: 'DIY based on Time now'. + - delay := Delay forMilliseconds: 1. lastSecond := self primSecondsClock. [ lastSecond = self primSecondsClock ] whileTrue: [ delay wait ]. ^ lastSecond + 1! Item was changed: ----- Method: WorldState>>handleFatalDrawingError: (in category '*51Deprecated-Morphic') ----- handleFatalDrawingError: errMsg "Handle a fatal drawing error." + self deprecated: 'Send this message to Project current'. - self flag: #toRemove. "Implementation moved to Project, but are there external packages with senders?" Project current handleFatalDrawingError: errMsg !

1 0

The Trunk: 51Deprecated-mt.56.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.56.mcz ==================== Summary ==================== Name: 51Deprecated-mt.56 Author: mt Time: 19 August 2019, 5:51:18.317665 pm UUID: 70764cda-d8ec-4148-8c08-59da54efabf9 Ancestors: 51Deprecated-mt.55, 51Deprecated-ct.55 Merges 51Deprecated-ct.55. Don't be too harsh with deprecations in Time class for now. Just use a #flag:. =============== Diff against 51Deprecated-mt.55 =============== Item was changed: ----- Method: DockingBarMorph>>useRoundedCorners (in category '*51Deprecated') ----- useRoundedCorners + self deprecated. self cornerStyle: #rounded! Item was changed: ----- Method: DockingBarMorph>>useSquareCorners (in category '*51Deprecated') ----- useSquareCorners + self deprecated. self cornerStyle: #square! Item was changed: ----- Method: DummyUIManager>>restoreDisplay (in category '*51Deprecated') ----- + restoreDisplay + + self deprecated.! - restoreDisplay! Item was changed: ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category '*51Deprecated') ----- registerStandardExternalDropHandlers "ExternalDropHandler registerStandardExternalDropHandlers" + self deprecated. self registeredHandlers add: ( ExternalDropHandler type: 'image/' extension: nil action: [:stream :pasteUp :event | pasteUp addMorph: (Project current world drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])! Item was changed: ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category '*51Deprecated') ----- setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp + self deprecated: 'Use ', #setType:buttons:position:keyValue:hand:stamp:. self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp! Item was changed: ----- Method: MVCProject>>pauseSoundPlayers (in category '*51Deprecated') ----- pauseSoundPlayers "Pause sound players, subject to preference settings" + self deprecated. Smalltalk at: #ScorePlayer ifPresent:[:playerClass| playerClass allSubInstancesDo: [:player | player pause]]! Item was changed: ----- Method: NewParagraph>>insertionPointColor (in category '*51Deprecated') ----- insertionPointColor + self deprecated. self focused ifFalse: [^ Color transparent]. ^ Display depth <= 2 ifTrue: [Color black] ifFalse: [Preferences insertionPointColor]! Item was changed: ----- Method: Object>>dragAnimationFor:transferMorph: (in category '*51Deprecated') ----- dragAnimationFor: item transferMorph: transferMorph + "Default do nothing" + self deprecated.! - "Default do nothing"! Item was changed: ----- Method: PluggableButtonMorph>>useRoundedCorners (in category '*51Deprecated') ----- useRoundedCorners + self deprecated. self cornerStyle: #rounded! Item was changed: ----- Method: PluggableButtonMorph>>useSquareCorners (in category '*51Deprecated') ----- useSquareCorners + self deprecated. self cornerStyle: #square! Item was changed: ----- Method: Project class>>interruptName: (in category '*51Deprecated') ----- interruptName: labelString "Create a Notifier on the active scheduling process with the given label." + self deprecated: 'Send this message to Project current'. - self flag: #toRemove. "after restarting the user interrupt watcher process" ^ self current interruptName: labelString ! Item was changed: ----- Method: Project class>>spawnNewProcess (in category '*51Deprecated') ----- spawnNewProcess "Meaningful only for a Morphic project, but retained here to protect for possible references from e.g. image segments" + self deprecated: 'Send this message to Project current'. self current spawnNewProcess! Item was changed: ----- Method: Project class>>spawnNewProcessAndTerminateOld: (in category '*51Deprecated') ----- spawnNewProcessAndTerminateOld: terminate "Meaningful only for a Morphic project, but retained here to protect for possible references from e.g. image segments" + self deprecated: 'Send this message to Project current'. ^ self current spawnNewProcessAndTerminateOld: terminate ! Item was changed: ----- Method: Project class>>spawnNewProcessIfThisIsUI: (in category '*51Deprecated') ----- spawnNewProcessIfThisIsUI: suspendedProcess "Meaningful only for a Morphic project, but retained here to protect for possible references from e.g. image segments" + self deprecated: 'Send this message to Project current'. self current spawnNewProcessIfThisIsUI: suspendedProcess ! Item was changed: ----- Method: ScrollBar class>>createArrowOfDirection:in: (in category '*51Deprecated') ----- createArrowOfDirection: aSymbol in: aRectangle "PRIVATE - create an arrow bounded in aRectangle" | arrow vertices | + self deprecated: 'See ArrowImagesCache'. vertices := Preferences alternativeButtonsInScrollBars ifTrue: [self verticesForComplexArrow: aRectangle] ifFalse: [self verticesForSimpleArrow: aRectangle]. "" arrow := PolygonMorph vertices: vertices color: Color transparent borderWidth: 0 borderColor: Color black. "" arrow bounds: (arrow bounds insetBy: (aRectangle width / 6) rounded). "" Preferences alternativeButtonsInScrollBars ifTrue: [arrow rotationDegrees: 45]. "" aSymbol == #right ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 90]. aSymbol == #bottom ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 180]. aSymbol == #left ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 270]. "" ^arrow! Item was changed: ----- Method: ScrollBar class>>createBoxIn: (in category '*51Deprecated') ----- createBoxIn: aRectangle "PRIVATE - create an box bounded in aRectangle" | box | + self deprecated: 'See ArrowImagesCache'. box := RectangleMorph new. box extent: (aRectangle scaleBy: 1 / 2) extent rounded; borderWidth: 0. "" ^ box! Item was changed: ----- Method: ScrollBar class>>updateScrollBarButtonAspect:color: (in category '*51Deprecated') ----- updateScrollBarButtonAspect: aMorph color: aColor "update aMorph with aColor" | fill direction | + self deprecated. aMorph isNil ifTrue: [^ self]. "" aMorph color: aColor. self gradientScrollBar ifFalse: [^ self]. "" fill := GradientFillStyle ramp: { 0.0 -> aColor twiceLighter twiceLighter. 1.0 -> aColor twiceDarker}. "" direction := ((aMorph width min: aMorph height) + ((aMorph width - aMorph height) abs * 0.3)) rounded. "" fill origin: aMorph topLeft + (direction // 8). fill direction: direction @ direction. fill radial: true. "" aMorph fillStyle: fill! Item was changed: ----- Method: ScrollBar class>>updateScrollBarButtonsAspect:color: (in category '*51Deprecated') ----- updateScrollBarButtonsAspect: aCollection color: aColor "update aCollection of morphs with aColor" + self deprecated. - aCollection do: [:each | self updateScrollBarButtonAspect: each color: aColor]! Item was changed: ----- Method: ScrollBar class>>verticesForComplexArrow: (in category '*51Deprecated') ----- verticesForComplexArrow: aRectangle "PRIVATE - answer a collection of vertices to draw a complex arrow" | vertices aux | + self deprecated: 'See ArrowImagesCache'. vertices := OrderedCollection new. "" vertices add: aRectangle bottomLeft. vertices add: aRectangle topLeft. vertices add: aRectangle topRight. "" aux := (aRectangle width / 3) rounded. vertices add: aRectangle topRight + (0 @ aux). vertices add: aRectangle topLeft + aux. vertices add: aRectangle bottomLeft + (aux @ 0). "" ^ vertices! Item was changed: ----- Method: ScrollBar class>>verticesForSimpleArrow: (in category '*51Deprecated') ----- verticesForSimpleArrow: aRectangle "PRIVATE - answer a collection of vertices to draw a simple arrow" | vertices | + self deprecated: 'See ArrowImagesCache'. vertices := OrderedCollection new. "" vertices add: aRectangle bottomLeft. vertices add: aRectangle center x @ (aRectangle top + (aRectangle width / 8)). vertices add: aRectangle bottomRight. "" ^ vertices! Item was changed: ----- Method: ScrollBar>>scrollDown (in category '*51Deprecated') ----- scrollDown + self deprecated: 'Use ', #doScrollDown. - self flag: #obsolete. downButton eventHandler: nil. downButton on: #mouseDown send: #scrollDownInit to: self. downButton on: #mouseUp send: #finishedScrolling to: self. ^self scrollDownInit! Item was changed: ----- Method: ScrollBar>>scrollUp (in category '*51Deprecated') ----- scrollUp + self deprecated: 'Use ', #doScrollUp. - self flag: #obsolete. upButton eventHandler: nil. upButton on: #mouseDown send: #scrollUpInit to: self. upButton on: #mouseUp send: #finishedScrolling to: self. ^self scrollUpInit! Item was changed: ----- Method: StandardFileStream>>asHtml (in category '*51Deprecated-Files-Kernel') ----- asHtml "Convert me in to an HtmlFileStream. 4/11/96 tk" + self deprecated: 'Use self as: HtmlFileStream'. ^ self as: HtmlFileStream ! Item was changed: ----- Method: SystemWindow>>setLabelFont: (in category '*51Deprecated') ----- setLabelFont: aFont + self deprecated. label ifNil: [^ self]. label font: aFont. ! Item was changed: ----- Method: TheWorldMenu>>inspectWorldModel (in category '*51Deprecated-Tools') ----- inspectWorldModel + self deprecated. myWorld model inspect.! Item was changed: ----- Method: Time class>>primLocalMicrosecondClock (in category '*51Deprecated-primitives') ----- primLocalMicrosecondClock "Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC." <primitive: 241> + self flag: #deprecated. ^0! Item was changed: ----- Method: Time class>>primMicrosecondClock (in category '*51Deprecated-primitives') ----- primMicrosecondClock "Answer the number of microseconds since the microsecond clock was last reset or rolled over. Answer zero if the primitive fails." <primitive: 'primitiveMicrosecondClock'> + self flag: #deprecated. ^ 0! Item was changed: ----- Method: Time class>>primMillisecondClock (in category '*51Deprecated-primitives') ----- primMillisecondClock "Primitive. Answer the number of milliseconds since the millisecond clock was last reset or rolled over. Answer zero if the primitive fails. Optional. See Object documentation whatIsAPrimitive." <primitive: 135> + self flag: #deprecated. ^ 0! Item was changed: ----- Method: Time class>>primMillisecondClockMask (in category '*51Deprecated-primitives') ----- primMillisecondClockMask "Answer the mask value used for millisecond clock rollover in the virtual machine, or nil if the VM cannot support the request." <primitive: 'primitiveMillisecondClockMask'> + self flag: #deprecated. ^nil! Item was changed: ----- Method: Time class>>primSecondsClock (in category '*51Deprecated-primitives') ----- primSecondsClock "Answer the number of seconds since 00:00 on the morning of January 1, 1901 (a 32-bit unsigned number). Essential. See Object documentation whatIsAPrimitive. " <primitive: 137> + self flag: #deprecated. self primitiveFailed! Item was changed: ----- Method: Time class>>primUTCMicrosecondClock (in category '*51Deprecated-primitives') ----- primUTCMicrosecondClock "Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868." <primitive: 240> + self flag: #deprecated. ^0! Item was changed: ----- Method: Time class>>secondsWhenClockTicks (in category '*51Deprecated-primitives') ----- secondsWhenClockTicks "waits for the moment when a new second begins" | lastSecond delay | + self flag: #deprecated. "DIY based on Time now" + - delay := Delay forMilliseconds: 1. lastSecond := self primSecondsClock. [ lastSecond = self primSecondsClock ] whileTrue: [ delay wait ]. ^ lastSecond + 1! Item was changed: ----- Method: WorldState>>handleFatalDrawingError: (in category '*51Deprecated-Morphic') ----- handleFatalDrawingError: errMsg "Handle a fatal drawing error." + self deprecated: 'Send this message to Project current'. - self flag: #toRemove. "Implementation moved to Project, but are there external packages with senders?" Project current handleFatalDrawingError: errMsg !

1 0

The Trunk: EToys-mt.350.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.350.mcz ==================== Summary ==================== Name: EToys-mt.350 Author: mt Time: 19 August 2019, 5:49:26.328665 pm UUID: 677ffb61-8b7f-0744-96e4-ba14d7b36ac2 Ancestors: EToys-mt.349 Deprecation. =============== Diff against EToys-mt.349 =============== Item was removed: - ----- Method: DisplayScreen class>>hostWindowSize: (in category '*Etoys-Squeakland-host window access') ----- - hostWindowSize: aPoint - self primitiveWindowSize: self hostWindowIndex width: aPoint x heigth: aPoint y - !

1 0

The Trunk: Graphics-mt.410.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.410.mcz ==================== Summary ==================== Name: Graphics-mt.410 Author: mt Time: 19 August 2019, 5:35:05.184665 pm UUID: 31bc105d-7933-0b4c-b1e0-e9d710940fd0 Ancestors: Graphics-nice.409 Un-deprecate old-style display resizing until HostWindowPlugin supports -vm-display-none flag. =============== Diff against Graphics-nice.409 =============== Item was added: + ----- Method: DisplayScreen class>>depth:width:height:fullscreen: (in category 'display box access') ----- + depth: depthInteger width: widthInteger height: heightInteger fullscreen: aBoolean + "Force Squeak's window (if there's one) into a new size and depth." + "DisplayScreen depth: 8 width: 1024 height: 768 fullscreen: false" + + "August 2019: This method will be deprecated in the future!! Use the HostWindowPlugin instead if possible. + + This method is still the only way to change the size of the display, when the image is started with the -vm-display-none flag, because + (1) you still have a Display, hurray!!, and (2) HostWindowPlugin will refuse to notice that, because you don't have any windows." + + <primitive: 92> + self primitiveFailed!

1 0

The Trunk: 51Deprecated-mt.55.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.55.mcz ==================== Summary ==================== Name: 51Deprecated-mt.55 Author: mt Time: 19 August 2019, 5:34:23.511665 pm UUID: ccff8337-10dd-c94e-9738-8250c5016d75 Ancestors: 51Deprecated-ct.54 Un-deprecate old-style display resizing until HostWindowPlugin supports -vm-display-none flag. =============== Diff against 51Deprecated-ct.54 =============== Item was removed: - ----- Method: DisplayScreen class>>depth:width:height:fullscreen: (in category '*51Deprecated') ----- - depth: depthInteger width: widthInteger height: heightInteger fullscreen: aBoolean - "Force Squeak's window (if there's one) into a new size and depth." - "DisplayScreen depth: 8 width: 1024 height: 768 fullscreen: false" - - <primitive: 92> - self primitiveFailed!

1 0

The Trunk: Tools-mt.878.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.878.mcz ==================== Summary ==================== Name: Tools-mt.878 Author: mt Time: 19 August 2019, 5:19:44.388665 pm UUID: 3d876f65-8c0f-2643-a695-a1d14e93dd69 Ancestors: Tools-mt.877 Adds missing support for class comments to label styling. Such comments are typically disguised in code-browsing tools using method references with the #Comment selector. Thanks to ct for the tip! =============== Diff against Tools-mt.877 =============== Item was changed: ----- Method: CodeHolder>>formattedLabel:forSelector:inClass: (in category 'message list') ----- formattedLabel: aString forSelector: aSymbol inClass: aClass "Show deprecated messages differently so that users recognize them quickly to avoid them." | formattedLabel | + (aSymbol = #Definition or: [aSymbol = #Comment]) - aSymbol = #Definition ifTrue: [aClass isDeprecated ifFalse: [^ aString]] ifFalse: [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated]) ifFalse: [^ aString]]. formattedLabel := aString asText. (self userInterfaceTheme deprecatedMessageAttributes ifNil: [{TextColor gray. TextEmphasis struckOut}]) do: [:textAttribute | formattedLabel addAttribute: textAttribute]. ^ formattedLabel.!

1 0

The Trunk: ToolBuilder-Morphic-mt.238.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.238.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.238 Author: mt Time: 19 August 2019, 5:02:51.951665 pm UUID: 69801a05-4a22-db48-bf08-3c5a4495a507 Ancestors: ToolBuilder-Morphic-ct.237 Fix comments. =============== Diff against ToolBuilder-Morphic-ct.237 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction + "Open an editor on the given string/text. By default, don't style in such edit: requests." + - "Open an editor on the given string/text" ^ self edit: aText label: labelString shouldStyle: false accept: anAction! Item was changed: ----- Method: MorphicUIManager>>edit:label:shouldStyle:accept: (in category 'ui requests') ----- edit: aText label: labelString shouldStyle: aBoolean accept: anAction "Open an editor on the given string/text" | window | window := Workspace open. labelString ifNotNil: [ window setLabel: labelString ]. - "By default, don't style in UIManager edit: requests" window model shouldStyle: aBoolean; acceptContents: aText; acceptAction: anAction. ^ window!

1 0

The Trunk: ToolBuilder-Morphic-ct.237.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ct.237.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.237 Author: ct Time: 14 August 2019, 11:21:35.4994 pm UUID: 5a28f72b-4958-fb43-90f3-25ea682508c5 Ancestors: ToolBuilder-Morphic-mt.236 MorphicUIManager: Add overloaded version to set styling for editing =============== Diff against ToolBuilder-Morphic-mt.236 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" + ^ self edit: aText label: labelString shouldStyle: false accept: anAction! - | window | - window := Workspace open. - labelString ifNotNil: [ window setLabel: labelString ]. - "By default, don't style in UIManager edit: requests" - window model - shouldStyle: false; - acceptContents: aText; - acceptAction: anAction. - ^ window! Item was added: + ----- Method: MorphicUIManager>>edit:label:shouldStyle:accept: (in category 'ui requests') ----- + edit: aText label: labelString shouldStyle: aBoolean accept: anAction + "Open an editor on the given string/text" + | window | + window := Workspace open. + labelString ifNotNil: [ window setLabel: labelString ]. + "By default, don't style in UIManager edit: requests" + window model + shouldStyle: aBoolean; + acceptContents: aText; + acceptAction: anAction. + ^ window!

1 0

The Trunk: ToolBuilder-Kernel-ct.130.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-ct.130.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.130 Author: ct Time: 14 August 2019, 11:20:18.6744 pm UUID: f71618e6-c508-a04a-abb4-27f3d7b5f982 Ancestors: ToolBuilder-Kernel-mt.129 UIManager: Add overloaded versions to set styling for editing =============== Diff against ToolBuilder-Kernel-mt.129 =============== Item was added: + ----- Method: UIManager>>edit:label:shouldStyle: (in category 'ui requests - text') ----- + edit: aText label: labelString shouldStyle: aBoolean + "Open an editor on the given string/text" + ^self edit: aText label: labelString shouldStyle: aBoolean accept: nil! Item was added: + ----- Method: UIManager>>edit:label:shouldStyle:accept: (in category 'ui requests - text') ----- + edit: aText label: labelString shouldStyle: aBoolean accept: anAction + "Open an editor on the given string/text" + ^self edit: aText label: labelString accept: anAction!

1 0

← Newer
1
2
3
4
5
6
7
...
15
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 August 2019