Packages January 2019

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: ToolBuilder-Morphic-mt.224.mcz
by commits＠source.squeak.org 23 Jan '19

23 Jan '19

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.224.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.224 Author: mt Time: 23 January 2019, 1:37:44.247984 pm UUID: ff9b83dd-1f7c-844f-b104-e1b6890461a0 Ancestors: ToolBuilder-Morphic-mt.223 For (pluggable) scroll panes through the tool builder, use optional scroll bars for both dimensions now. Ignore system-wide preferences because those usually address code-editing tools, not arbitrary programs. Note that we might want to rename those preferences (#alwaysShowVScrollbar, #alwaysHideHScrollbar, etc.) and move their usages out of ScrollPane into the #buildWith: implementations of our tools (CodeHolder, Debugger, etc.). You need to know about the specific contents of those scroll panes to make such hide/show decisions. =============== Diff against ToolBuilder-Morphic-mt.223 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') ----- buildPluggableScrollPane: spec | widget panel | widget := self scrollPaneClass new. widget model: spec model. self register: widget id: spec name. spec children ifNotNil: [:obj | "Create panel morph to scroll it." panel := self pluggablePanelSpec new model: spec model; children: obj; layout: spec layout; horizontalResizing: (spec layout == #proportional ifTrue: [#rigid] ifFalse: [#shrinkWrap]); verticalResizing: (spec layout == #proportional ifTrue: [#rigid] ifFalse: [#shrinkWrap]); buildWith: self. widget morph: panel. ] ifNil: [spec morph ifNotNil: [:m | widget morph: m] ifNil: [widget morphClass: spec morphClass]]. self setFrame: spec frame in: widget. self setLayoutHintsFor: widget spec: spec. parent ifNotNil: [self add: widget to: parent]. spec borderWidth ifNotNil: [:w | widget borderWidth: w]. + "Set scroll bar policies. By default, use scroll bars only when needed. Do not follow system-wide preferences here." + spec hScrollBarPolicy + caseOf: { - "Override default scroll bar policies if needed. Widget will use preference values otherwise." - spec hScrollBarPolicy ifNotNil: [:policy | - policy caseOf: { [#always] -> [widget alwaysShowHScrollBar]. [#never] -> [widget hideHScrollBarIndefinitely]. + [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded] } + otherwise: [widget showHScrollBarOnlyWhenNeeded]. + spec vScrollBarPolicy + caseOf: { - [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]}]. - spec vScrollBarPolicy ifNotNil: [:policy | - policy caseOf: { [#always] -> [widget alwaysShowVScrollBar]. [#never] -> [widget hideVScrollBarIndefinitely]. + [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded] } + otherwise: [widget showVScrollBarOnlyWhenNeeded]. - [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]}]. ^ widget!

1 0

The Trunk: Chronology-Core-dtl.33.mcz
by commits＠source.squeak.org 22 Jan '19

22 Jan '19

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.33.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.33 Author: dtl Time: 22 January 2019, 12:04:12.747583 pm UUID: 002bc836-c58b-49e4-9a33-37d54449e32c Ancestors: Chronology-Core-ul.23 Restore Duration>>wait which was introduced in Chronology-Core-mt.11 and accidently removed in recent updates. =============== Diff against Chronology-Core-ul.23 =============== Item was added: + ----- Method: Duration>>wait (in category 'squeak protocol') ----- + wait + "Convert this duration in a delay and wait once. Return the created delay so that the client can wait on it again if needed. + + Do-it: 3 minutes wait" + + | delay | + delay := self asDelay. + delay wait. + ^ delay!

1 0

The Trunk: Tools-pre.844.mcz
by commits＠source.squeak.org 22 Jan '19

22 Jan '19

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.844.mcz ==================== Summary ==================== Name: Tools-pre.844 Author: pre Time: 22 January 2019, 5:53:43.297727 pm UUID: d2e53210-bbec-4719-bf6e-e3e007caafd8 Ancestors: Tools-eem.843 Recategorizes some messages for message lists in Browser and MessageSet as pointed out by Tim Johnson. =============== Diff against Tools-eem.843 =============== Item was changed: + ----- Method: Browser>>addExtraShiftedItemsTo: (in category 'message list') ----- - ----- Method: Browser>>addExtraShiftedItemsTo: (in category 'message functions') ----- addExtraShiftedItemsTo: aMenu "The shifted selector-list menu is being built; some menu items are appropriate only for certain kinds of browsers, and this gives a hook for them to be added as approrpiate. If any is added here, a line should be added first -- browse reimplementors of this message for examples." ! Item was changed: + ----- Method: Browser>>messageListMenu:shifted: (in category 'message list') ----- - ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" ^ self menu: aMenu for: #(messageListMenu messageListMenuShifted:) shifted: shifted ! Item was changed: + ----- Method: Browser>>shiftedMessageListMenu: (in category 'message list') ----- - ----- Method: Browser>>shiftedMessageListMenu: (in category 'message functions') ----- shiftedMessageListMenu: aMenu <messageListMenuShifted: true> "Fill aMenu with the items appropriate when the shift key is held down" aMenu addStayUpItem. aMenu addList: #( ('toggle diffing (D)' toggleDiffing) ('implementors of sent messages' browseAllMessages) - ('local senders of...' browseLocalSendersOfMessages) ('local implementors of...' browseLocalImplementors) - ('spawn sub-protocol' spawnProtocol) ('spawn full protocol' spawnFullProtocol) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances)). self addExtraShiftedItemsTo: aMenu. aMenu addList: #( - ('change category...' changeCategory)). self canShowMultipleMessageCategories ifTrue: [aMenu addList: #(('toggle category selection (Y)' showHomeCategory))]. aMenu addList: #( - ('change sets with this method' findMethodInChangeSets) ('revert to previous version' revertToPreviousVersion) ('remove from current change set' removeFromCurrentChanges) ('revert & remove from changes' revertAndForget) ('add to current change set' adoptMessageInCurrentChangeset) ('copy up or copy down...' copyUpOrCopyDown)). ^ aMenu ! Item was changed: + ----- Method: MessageSet>>mainMessageListMenu: (in category 'message list') ----- - ----- Method: MessageSet>>mainMessageListMenu: (in category 'message functions') ----- mainMessageListMenu: aMenu "Answer the message-list menu" <messageListMenuShifted: false> aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('explore method' exploreMethod) ('inspect method' inspectMethod)). ^ aMenu! Item was changed: + ----- Method: MessageSet>>messageListMenu:shifted: (in category 'message list') ----- - ----- Method: MessageSet>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" ^ self menu: aMenu for: #(messageListMenu messageListMenuShifted:) shifted: shifted ! Item was changed: + ----- Method: MessageSet>>shiftedMessageListMenu: (in category 'message list') ----- - ----- Method: MessageSet>>shiftedMessageListMenu: (in category 'message functions') ----- shiftedMessageListMenu: aMenu "Fill aMenu with the items appropriate when the shift key is held down" <messageListMenuShifted: true> aMenu addStayUpItem. aMenu addList: #( ('toggle diffing (D)' toggleDiffing) ('implementors of sent messages' browseAllMessages) - ('local senders of...' browseLocalSendersOfMessages) ('local implementors of...' browseLocalImplementors) - ('spawn sub-protocol' spawnProtocol) ('spawn full protocol' spawnFullProtocol) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances)). self addExtraShiftedItemsTo: aMenu. aMenu addList: #( - ('change category...' changeCategory)). self canShowMultipleMessageCategories ifTrue: [aMenu addList: #(('show category (C)' showHomeCategory))]. aMenu addList: #( - ('change sets with this method' findMethodInChangeSets) ('revert to previous version' revertToPreviousVersion) ('remove from current change set' removeFromCurrentChanges) ('revert & remove from changes' revertAndForget) ('add to current change set' adoptMessageInCurrentChangeset) ('copy up or copy down...' copyUpOrCopyDown)). ^ aMenu !

1 0

The Trunk: ReleaseBuilder-mt.194.mcz
by commits＠source.squeak.org 22 Jan '19

22 Jan '19

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.194.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.194 Author: mt Time: 22 January 2019, 1:54:52.748809 pm UUID: d8d38edc-1fc5-7442-b1aa-cd69c2047a6b Ancestors: ReleaseBuilder-mt.193 Addition to Kernel-mt.1211 1) Adds hook to ReleaseBuilder to manage/prepare processes. 2) Adds special save-and-quit to ReleaseBuilder, which restarts the UI process. Note: We still have to adapt our Travis/smalltalkCI script to make use of UI-process restart. See the discussion about wrong source pointers: http://forum.world.st/Re-Wrong-method-source-pointer-in-Squeak5-2-tp5093412… =============== Diff against ReleaseBuilder-mt.193 =============== Item was added: + ----- Method: ReleaseBuilder class>>prepareProcesses (in category 'preparing') ----- + prepareProcesses + "Re-start running processes if necessary. Call this at late as possible in the release process. Only required to processes that are not reset at image #startUp." + + Delay startTimerEventLoop.! Item was added: + ----- Method: ReleaseBuilder class>>saveAndQuit (in category 'saving') ----- + saveAndQuit + + Smalltalk condenseChanges. + Smalltalk snapshot: true "Important to sync changes and image!!" andQuit: false. + + "Finally, we have to make sure that all method activations are up to date." + self prepareProcesses. + + "Start new UI process; terminate current one." + self assert: Processor activeProcess == Project current uiProcess. + Project current + addDeferredUIMessage: [Smalltalk snapshot: true andQuit: true]; + spawnNewProcessIfThisIsUI: Processor activeProcess. + Processor activeProcess terminate.! Item was changed: ----- Method: ReleaseBuilder class>>saveAsNewRelease (in category 'saving') ----- saveAsNewRelease "Use this to create a new release image to be used in the automated release artifact building process on http://www.github.com/squeak-smalltalk/squeak-app." | fileName | self setNewSystemVersion: self versionString. self assert: self versionString = SystemVersion current version. fileName := ('squeak-{1}.{2}{3}' format: { SystemVersion current majorVersionNumber. SystemVersion current minorVersionNumber. self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}). Smalltalk saveAs: fileName. "Update the image state." self prepareSourceCode; prepareEnvironment; switchToNewRepository: self releaseRepository; addAdditionalRepositories. + self saveAndQuit.! - Smalltalk condenseChanges. - Smalltalk snapshot: true "Important!!" andQuit: true.! Item was changed: ----- Method: ReleaseBuilder class>>saveAsNewTrunk (in category 'saving') ----- saveAsNewTrunk "Use this to create a new release image to be used in the automated release artifact building process on http://www.github.com/squeak-smalltalk/squeak-app." | fileName | fileName := ('squeak-trunk{1}' format: { self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}). Smalltalk saveAs: fileName. self prepareSourceCode; prepareEnvironment; switchToNewRepository: self buildRepository. + self saveAndQuit.! - Smalltalk condenseChanges. - Smalltalk snapshot: true "Important!!" andQuit: true.!

1 0

The Trunk: Kernel-mt.1211.mcz
by commits＠source.squeak.org 22 Jan '19

22 Jan '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1211.mcz ==================== Summary ==================== Name: Kernel-mt.1211 Author: mt Time: 22 January 2019, 1:51:49.258809 pm UUID: 2bc71a1e-02c1-824a-ae49-4db30171e2f9 Ancestors: Kernel-eem.1210 1) Restart timer-interrupt watcher process during system-wide clean-up. 2) Extract idle-process into own method because that's what we usually do: EventSensor (interrupt watcher), EventSensor (event tickler), WeakArray (finalization), etc. =============== Diff against Kernel-eem.1210 =============== Item was added: + ----- Method: Delay class>>cleanUp (in category 'class initialization') ----- + cleanUp + + self initialize.! Item was added: + ----- Method: ProcessorScheduler class>>installIdleProcess (in category 'background process') ----- + installIdleProcess + "Install a background process of the lowest possible priority that is always runnable." + "Details: The virtual machine requires that there is aways some runnable process that + can be scheduled; this background process ensures that this is the case." + + BackgroundProcess ifNotNil: [BackgroundProcess terminate]. + BackgroundProcess := [self idleProcess] newProcess. + BackgroundProcess priority: SystemRockBottomPriority. + BackgroundProcess resume.! Item was changed: ----- Method: ProcessorScheduler class>>startUp: (in category 'background process') ----- startUp: resuming - "Install a background process of the lowest possible priority that is always runnable." - "Details: The virtual machine requires that there is aways some runnable process that - can be scheduled; this background process ensures that this is the case." + Smalltalk processPreemptionYields ifTrue: [ + Smalltalk processPreemptionYields: false]. + + resuming ifTrue: [ + Smalltalk installLowSpaceWatcher. + self installIdleProcess].! - Smalltalk processPreemptionYields ifTrue: - [Smalltalk processPreemptionYields: false]. - resuming ifTrue: - [Smalltalk installLowSpaceWatcher. - BackgroundProcess ifNotNil: - [BackgroundProcess terminate]. - (BackgroundProcess := [self idleProcess] newProcess) - priority: SystemRockBottomPriority; - resume]!

1 0

The Trunk: Chronology-Tests-ul.15.mcz
by commits＠source.squeak.org 21 Jan '19

21 Jan '19

Levente Uzonyi uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-ul.15.mcz ==================== Summary ==================== Name: Chronology-Tests-ul.15 Author: ul Time: 14 January 2019, 1:18:04.380862 pm UUID: 31a3ca9d-4c54-4034-9d36-9967644e2d87 Ancestors: Chronology-Tests-dtl.14 - updated DateAndTimeTest >> #testPrecision to be aware of Time's ClockPolicy =============== Diff against Chronology-Tests-dtl.14 =============== Item was changed: ----- Method: DateAndTimeTest>>testPrecision (in category 'Tests') ----- testPrecision "Verify that the clock is returning a value with accuracy of better than 1 second. For now it seems sufficient to get two values and verify they are not the same." + | originalClockPolicy | + originalClockPolicy := Time clockPolicy. + [ + #( + "#acceptPlatformTime is not listed here, because it doesn't guarantee monotoncity." + monotonicAllowDuplicates <= + monotonicForceMicrosecondIncrement < + monotonicForceNanosecondIncrement < + ) pairsDo: [ :clockPolicy :comparator | + | first second | + Time clockPolicy: clockPolicy. + first := DateAndTime now. + second := DateAndTime now. + self + assert: (first perform: comparator with: second) + description: ('Clock policy {1} didn''t compare with {2}' format: { clockPolicy. comparator }) ] ] + ensure: [ Time clockPolicy: originalClockPolicy ] - self - assert: (DateAndTime now ~= DateAndTime now) !

1 0

The Trunk: Chronology-Core-ul.23.mcz
by commits＠source.squeak.org 21 Jan '19

21 Jan '19

Levente Uzonyi uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-ul.23.mcz ==================== Summary ==================== Name: Chronology-Core-ul.23 Author: ul Time: 21 January 2019, 11:37:59.846788 pm UUID: 18de3a91-5246-44e9-94dc-190924f9b969 Ancestors: Chronology-Core-ul.21 - added an accessor to Time's ClockPolicy, so that tests can depend on its current value - optimized various DateAndTime methods =============== Diff against Chronology-Core-ul.21 =============== Item was changed: ----- Method: DateAndTime>>asUTC (in category 'ansi protocol') ----- asUTC localOffsetSeconds = 0 ifTrue: [ ^self ]. + ^self copy makeUTC! - ^self copy - utcMicroseconds: utcMicroseconds - offset: 0 - ! Item was changed: ----- Method: DateAndTime>>asUnixTime (in category 'squeak protocol') ----- asUnixTime "answer number of seconds since unix epoch (midnight Jan 1, 1970, UTC)" + ^utcMicroseconds // 1000000! - ^(self - self class unixEpoch) asSeconds! Item was changed: ----- Method: DateAndTime>>dayMonthYearDo: (in category 'squeak protocol') ----- dayMonthYearDo: aBlock "Evaluation the block with three arguments: day month, year." + | l n i j dd | - | l n i j dd mm yyyy | l := self julianDayNumber + 68569. n := 4 * l // 146097. l := l - (146097 * n + 3 // 4). + i := l + 1 * 4000 // 1461001. - i := 4000 * (l + 1) // 1461001. l := l - (1461 * i // 4) + 31. j := 80 * l // 2447. dd := l - (2447 * j // 80). l := j // 11. - mm := j + 2 - (12 * l). - yyyy := 100 * (n - 49) + i + l. ^ aBlock value: dd + value: -12 * l + 2 + j "month" + value: n - 49 * 100 + i + l "year"! - value: mm - value: yyyy! Item was changed: ----- Method: DateAndTime>>floor (in category 'squeak protocol') ----- floor "Answer a copy with magnitude rounded down to the nearest whole second" ^self class + utcMicroseconds: utcMicroseconds // 1000000 * 1000000 - utcMicroseconds: utcMicroseconds - (utcMicroseconds \\ 1000000) offset: localOffsetSeconds! Item was changed: ----- Method: DateAndTime>>getSeconds (in category 'accessing') ----- getSeconds + + ^utcMicroseconds // 1000000 + localOffsetSeconds \\ 86400! - - | posixDays posixSeconds localSeconds | - posixSeconds := utcMicroseconds // 1000000. - localSeconds := posixSeconds + localOffsetSeconds. - localSeconds < 0 ifTrue: [localSeconds := localSeconds \\ SecondsInDay]. "normalize" - posixDays := localSeconds // SecondsInDay. - ^localSeconds - (posixDays * SecondsInDay). - ! Item was changed: ----- Method: DateAndTime>>julianDayNumber (in category 'squeak protocol') ----- julianDayNumber + ^utcMicroseconds // 1000000 + localOffsetSeconds // 86400 + PosixEpochJulianDays! - | posixDays posixSeconds localSeconds negativeDays | - posixSeconds := utcMicroseconds // 1000000. - localSeconds := posixSeconds + localOffsetSeconds. - negativeDays := 0. - localSeconds < 0 ifTrue: [ "normalize" - negativeDays := localSeconds // SecondsInDay. - localSeconds := negativeDays * SecondsInDay + localSeconds]. - posixDays := localSeconds // SecondsInDay. - ^posixDays + PosixEpochJulianDays - negativeDays. - ! Item was changed: ----- Method: DateAndTime>>microsecondsFromDay:seconds:nanos:offset: (in category 'private') ----- microsecondsFromDay: jdn seconds: s nanos: n offset: localOffsetSeconds + ^jdn - PosixEpochJulianDays "days" * 86400 + + s - localOffsetSeconds "seconds" * 1000000 + + (n / 1000) "nanos"! - | days totalSeconds micros | - days := jdn - PosixEpochJulianDays. - totalSeconds := days * 86400 + s - localOffsetSeconds. "n.g. const 86400 is faster than SecondsInDay" - micros := totalSeconds * 1000000. - ^micros + (n / 1000) - ! Item was added: + ----- Method: Time class>>clockPolicy (in category 'class initialization') ----- + clockPolicy + + ^ClockPolicy!

1 0

The Trunk: Monticello-tpr.693.mcz
by commits＠source.squeak.org 19 Jan '19

19 Jan '19

tim Rowledge uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tpr.693.mcz ==================== Summary ==================== Name: Monticello-tpr.693 Author: tpr Time: 18 January 2019, 4:22:04.378573 pm UUID: bad22387-6176-41c3-9059-5a81199a26c7 Ancestors: Monticello-tpr.692 Allow up to 3 attempts to access the repository, to allow for network slowness etc. Pass the exception up if we still don't get what we want. =============== Diff against Monticello-tpr.692 =============== Item was changed: ----- Method: MCHttpRepository>>readStreamForFileNamed:do: (in category 'private') ----- readStreamForFileNamed: aString do: aBlock + | contents attempts| + attempts := 0. + self displayProgress: 'Downloading ', aString during: [ + [attempts := attempts + 1. + contents := self httpGet: (self urlForFileNamed: aString) arguments: nil] on: NetworkError do: [:ex| + attempts >= 3 ifTrue:[ex pass]. + ex retry ]]. - | contents | - contents := self displayProgress: 'Downloading ', aString during: [ - self httpGet: (self urlForFileNamed: aString) arguments: nil ]. ^contents ifNotNil: [ aBlock value: contents ]!

1 0

The Trunk: Compiler-eem.400.mcz
by commits＠source.squeak.org 18 Jan '19

18 Jan '19

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.400.mcz ==================== Summary ==================== Name: Compiler-eem.400 Author: eem Time: 18 January 2019, 1:14:15.703384 pm UUID: 0454c383-0390-4733-ad3e-ed056ace7715 Ancestors: Compiler-eem.399 Fix some typos in the V3 bytecode set description =============== Diff against Compiler-eem.399 =============== Item was changed: BytecodeEncoder subclass: #EncoderForV3 instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Compiler-Kernel'! + !EncoderForV3 commentStamp: 'eem 1/18/2019 12:38' prior: 0! - !EncoderForV3 commentStamp: 'eem 5/17/2014 11:58' prior: 0! I add behaviour to Encoder to size and emit bytecodes for the Squeak V3.x VM bytecode set, a close variant of the original Smalltalk-80 bytecode set defined in the Blue Book. 0-15 0000iiii Push Receiver Variable #iiii 16-31 0001iiii Push Temporary Location #iiii 32-63 001iiiii Push Literal Constant #iiiii 64-95 010iiiii Push Literal Variable #iiiii 96-103 01100iii Pop and Store Receiver Variable #iii 104-111 01101iii Pop and Store Temporary Location #iii 112-119 01110iii Push (receiver, true, false, nil, -1, 0, 1, 2) [iii] 120-123 011110ii Return (receiver, true, false, nil) [ii] From Message 124-125 0111110i Return Stack Top From (Message, Block) [i] (126-127 unassigned) 128 10000000 jjkkkkkk Push (Receiver Variable, Temporary Location, Literal Constant, Literal Variable) [jj] #kkkkkk 129 10000001 jjkkkkkk Store (Receiver Variable, Temporary Location, Illegal, Literal Variable) [jj] #kkkkkk 130 10000010 jjkkkkkk Pop and Store (Receiver Variable, Temporary Location, Illegal, Literal Variable) [jj] #kkkkkk 131 10000011 jjjkkkkk Send Literal Selector #kkkkk With jjj Arguments 132 10000100 iiijjjjj kkkkkkkk (Send, Send Super, Push Receiver Variable, Push Literal Constant, Push Literal Variable, Store Receiver Variable, Store-Pop Receiver Variable, Store Literal Variable)[iii] #kkkkkkkk jjjjj (for sends jjjjj = numArgs) + 133 10000101 jjjkkkkk Send Literal Selector #kkkkk To Superclass With jjj Arguments + 134 10000110 jjkkkkkk Send Literal Selector #kkkkkk With jj Arguments - 133 10000011 jjjkkkkk Send Literal Selector #kkkkk To Superclass With jjj Arguments - 134 10000011 jjjkkkkk Send Literal Selector #kkkkk With jjj Arguments 135 10000111 Pop Stack Top 136 10001000 Duplicate Stack Top 137 10001001 Push Active Context (138-143 unassigned) 144-151 10010iii Jump iii + 1 (i.e., 1 through 8) 152-159 10011iii Pop and Jump 0n False iii +1 (i.e., 1 through 8) 160-167 10100iii jjjjjjjj Jump(iii - 4) *256+jjjjjjjj 168-171 101010ii jjjjjjjj Pop and Jump On True ii *256+jjjjjjjj 172-175 101011ii jjjjjjjj Pop and Jump On False ii *256+jjjjjjjj 176-191 1011iiii Send Arithmetic Message #iiii 192-207 1100iiii Send Special Message #iiii 208-223 1101iiii Send Literal Selector #iiii With No Arguments 224-239 1110iiii Send Literal Selector #iiii With 1 Argument 240-255 1111iiii Send Literal Selector #iiii With 2 Arguments !

1 0

The Trunk: Graphics-mt.406.mcz
by commits＠source.squeak.org 17 Jan '19

17 Jan '19

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.406.mcz ==================== Summary ==================== Name: Graphics-mt.406 Author: mt Time: 17 January 2019, 11:18:39.003727 am UUID: 027d00a7-113d-4b9f-aaec-79e3373339c1 Ancestors: Graphics-mt.405 Adds an informative string representation for LayoutFrame to support layout design and debugging. =============== Diff against Graphics-mt.405 =============== Item was added: + ----- Method: LayoutFrame>>printOn: (in category 'printing') ----- + printOn: aStream + + super printOn: aStream. + + aStream nextPutAll: '( '. + + { {'l'. self leftFraction. self leftOffset}. {'t'. self topFraction. self topOffset}. {'r'. self rightFraction. self rightOffset}. {'b'. self bottomFraction. self bottomOffset} } do: [:spec | + aStream nextPutAll: spec first; space. + + spec second printOn: aStream maxDecimalPlaces: 2. + + aStream nextPutAll: ((spec third ifNil: [0]) >= 0 ifTrue: ['+'] ifFalse: ['-']). + (spec third ifNil: [0]) abs printOn: aStream maxDecimalPlaces: 0] + separatedBy: [aStream space]. + + aStream nextPutAll: ' )'.!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2019