Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: Help-Squeak-Project-eem.81.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-eem.81.mcz ==================== Summary ==================== Name: Help-Squeak-Project-eem.81 Author: eem Time: 11 November 2021, 8:29:34.594159 am UUID: c316d08b-ce8b-4e20-9c07-e45311ab1ce5 Ancestors: Help-Squeak-Project-nice.80 Update Help on Command Key Mappings to reflect the addition of the Do menu to the main docking bar menu. =============== Diff against Help-Squeak-Project-nice.80 =============== Item was changed: ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'pages') ----- commandKeyMappings "This method was automatically generated. Edit it using:" "SqueakTutorialsCommandKey edit: #commandKeyMappings" ^(HelpTopic title: 'Command Key Mappings' contents: 'Lower-case command keys (use with Cmd key on Mac and Alt key on other platforms) a Select all b Browse it (selection is a class name or cursor is over a class-list or message-list) c Copy selection d Do it (selection is a valid expression) e Exchange selection with prior selection f Find text with a dialog g Find the current selection again j Repeat the last selection replacement i Inspect it k Set font l Cancel text edit m Implementors of it n Senders of it o Spawn current method p Print it (selection is a valid expression) q Query symbol (toggle all possible completion for a given prefix) s Save (i.e. accept) t Finds a Transcript (when cursor is over the desktop) u Toggle alignment v Paste w Select/Delete preceding word (over text); Close-window (over morphic desktop) x Cut selection y Swap characters z Undo Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers. Upper-case command keys (use with Shift-Cmd, or Ctrl on Mac or Shift-Alt on other platforms; sometimes Ctrl works too) A Advance argument B Browse it in this same browser (in System browsers only) C Compare the selected text to the clipboard contents D Debug-It E Method strings containing it F Insert ''ifFalse:'' G fileIn from it (a file name) H Move cursor to top/home of text I Inspect via Object Explorer J Again many (apply the previous text command repeatedly until the end of the text) K Set style L Opens a FileList, bringing forward on that already exists if appropriate M Select current type-in N References to it (selection is a class name, or cursor is over a class-list or message-list) O Open single-message browser (in message lists) P Make project link R opens a Recent Submissions browser S Pretty-print a method in the current browser T Insert ''ifTrue:'' U Convert linefeeds to carriage returns in selection V Paste author''s initials W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop) X Force selection to lowercase Y Force selection to uppercase Z Redo Other special keys Backspace Backward delete character Shift-Bksp Backward select or delete word Del Forward delete character Shift-Del Forward delete word Esc Pop up the context menu Shift+Esc Pop up the World Menu Cmd+Esc Close the active window Ctrl+Esc Present a list of open windows Cmd+\ Send the active window to the back Tab Insert a tab char in a single-line selection or insert a tab at the beginning of each line in a multi-line selection Shift-Tab Remove a tab from the beginning of each line in the selection Shift-Cmd-_ (underscore) condense selection into one line Cursor keys left, right, up, down Move cursor left, right, up or down Ctrl-left Move cursor left one word Ctrl-right Move cursor right one word Home Move cursor to begin of line or begin of text End Move cursor to end of line or end of text PgUp, Ctrl-up Move cursor up one page PgDown, Ctrl-Dn Move cursor down one page Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems. Other Cmd-key combinations (not available on all platforms) Return Insert return followed by as many tabs as the previous line (with a further adjustment for additional brackets in that line) Space Select the current word as with double clicking Enclose the selection in a kind of bracket. Each is a toggle. (not available on all platforms) Ctrl-( Toggle enclosure within parentheses Cmd-[ Toggle enclosure within brackets Crtl-{ Toggle enclosure within curly braces Ctrl-'' Toggle enclosure within double-quotes Cmd-'' Toggle enclosure within single-quotes Note also that you can double-click just inside any of the above delimiters, or at the beginning or end of a line, to select the text enclosed. Text Emphasis (not available on all platforms) Cmd-1 type the first method argument Cmd-2 type the second method argument Cmd-3 type the third method argument Cmd-4 type the fourth method argument Cmd-5 for future use Cmd-6 color, action-on-click, link to class comment, link to method, url Brings up a menu. To remove these properties, select more than the active part and then use command-0. Cmd-7 bold Cmd-8 italic Cmd-9 negative kern (letters 1 pixel closer) Cmd-0 make plain (removes all emphasis and kerning) Cmd-- underlined Cmd-= struck out Docking Bar Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: Ctrl-0 Activates Search Bar or Scratch Pad Ctrl-1 Squeak menu Ctrl-2 Projects menu Ctrl-3 Tools menu Ctrl-4 Apps menu + Ctrl-5 Do menu (an editable menu of useful expressions) + Ctrl-6 Extras menu + Ctrl-7 Windows menu + Ctrl-8 Help menu - Ctrl-5 Extras menu - Ctrl-6 Windows menu - Ctrl-7 Help menu !!' readStream nextChunkText) key: #commandKeyMappings; shouldStyle: false!

1 0

The Trunk: Collections-pre.961.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.961.mcz ==================== Summary ==================== Name: Collections-pre.961 Author: pre Time: 10 November 2021, 3:22:38.585616 pm UUID: f3d7c967-3623-5f4b-8166-59aeeeee1600 Ancestors: Collections-eem.960 Recategorizes unclassified or misclassified methods. =============== Diff against Collections-eem.960 =============== Item was changed: + ----- Method: Base64MimeConverter class>>decodeInteger: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>decodeInteger: (in category 'as yet unclassified') ----- decodeInteger: mimeString | bytes sum | "Decode the MIME string into an integer of any length" bytes := (Base64MimeConverter mimeDecodeToBytes: (ReadStream on: mimeString)) contents. sum := 0. bytes reverseDo: [:by | sum := sum * 256 + by]. ^ sum! Item was changed: + ----- Method: Base64MimeConverter class>>encodeInteger: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>encodeInteger: (in category 'as yet unclassified') ----- encodeInteger: int | strm | "Encode an integer of any length and return the MIME string" strm := WriteStream on: (ByteArray new: int digitLength). 1 to: int digitLength do: [:ii | strm nextPut: (int digitAt: ii)]. ^ ((self mimeEncode: strm readStream) contents) copyUpTo: $= "remove padding"! Item was changed: + ----- Method: Base64MimeConverter class>>initialize (in category 'class initialization') ----- - ----- Method: Base64MimeConverter class>>initialize (in category 'as yet unclassified') ----- initialize FromCharTable := Array new: 256. "nils" ToCharTable := ($A to: $Z) , ($a to: $z) , ($0 to: $9) , '+/'. ToCharTable keysAndValuesDo: [:ind :char | FromCharTable at: char asciiValue + 1 put: ind - 1].! Item was changed: + ----- Method: Base64MimeConverter class>>mimeDecodeToBytes: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeDecodeToBytes: (in category 'as yet unclassified') ----- mimeDecodeToBytes: aStream "Return a ReadStream of the original ByteArray. aStream has only 65 innocuous character values. aStream is not binary. (See class comment). 4 bytes in aStream goes to 3 bytes in output." | me | aStream position: 0. me := self new mimeStream: aStream. me dataStream: (WriteStream on: (ByteArray new: aStream size * 3 // 4)). me mimeDecodeToByteArray. ^ me dataStream readStream! Item was changed: + ----- Method: Base64MimeConverter class>>mimeDecodeToChars: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeDecodeToChars: (in category 'as yet unclassified') ----- mimeDecodeToChars: aStream "Return a ReadWriteStream of the original String. aStream has only 65 innocuous character values. It is not binary. (See class comment). 4 bytes in aStream goes to 3 bytes in output." | me | aStream position: 0. me := self new mimeStream: aStream. me dataStream: (WriteStream on: (String new: aStream size * 3 // 4)). me mimeDecode. ^ me dataStream readStream! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'as yet unclassified') ----- mimeEncode: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: true atStart: true! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode:multiLine: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode:multiLine: (in category 'as yet unclassified') ----- mimeEncode: aStream multiLine: aBool "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: aBool atStart: true! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode:multiLine:atStart: (in category 'private - convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode:multiLine:atStart: (in category 'as yet unclassified') ----- mimeEncode: aStream multiLine: aBool atStart: resetInput "Return a ReadStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." | me | resetInput ifTrue:[aStream position: 0]. me := self new dataStream: aStream. me multiLine: aBool. me mimeStream: (WriteStream on: (String new: aStream size + 20 * 4 // 3)). me mimeEncode. ^ me mimeStream readStream! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncodeContinue: (in category 'private - convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncodeContinue: (in category 'as yet unclassified') ----- mimeEncodeContinue: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: true atStart: false! Item was changed: + ----- Method: Bit7MimeConverter>>mimeDecode (in category 'conversion') ----- - ----- Method: Bit7MimeConverter>>mimeDecode (in category 'as yet unclassified') ----- mimeDecode dataStream nextPutAll: mimeStream upToEnd. ^ dataStream! Item was changed: + ----- Method: Bit7MimeConverter>>mimeEncode (in category 'conversion') ----- - ----- Method: Bit7MimeConverter>>mimeEncode (in category 'as yet unclassified') ----- mimeEncode | character | [dataStream atEnd] whileFalse: [ character := dataStream next. self assert: character asciiValue < 128. mimeStream nextPut: character]. ^ mimeStream! Item was changed: + ----- Method: Generator class>>on: (in category 'instance creation') ----- - ----- Method: Generator class>>on: (in category 'instance-creation') ----- on: aBlock ^ self basicNew initializeOn: aBlock! Item was changed: + ----- Method: NullMimeConverter>>mimeDecode (in category 'conversion') ----- - ----- Method: NullMimeConverter>>mimeDecode (in category 'as yet unclassified') ----- mimeDecode dataStream nextPutAll: mimeStream upToEnd. ^ dataStream! Item was changed: + ----- Method: NullMimeConverter>>mimeEncode (in category 'conversion') ----- - ----- Method: NullMimeConverter>>mimeEncode (in category 'as yet unclassified') ----- mimeEncode mimeStream nextPutAll: dataStream upToEnd. ^ mimeStream ! Item was changed: + ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'private - encoding') ----- - ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'as yet unclassified') ----- encodeChar: aChar to: aStream (self conversionNeededFor: aChar) ifFalse: [aStream nextPut: aChar] ifTrue: [aStream nextPut: $=; nextPut: (Character digitValue: aChar asciiValue // 16); nextPut: (Character digitValue: aChar asciiValue \\ 16)]. ! Item was changed: + ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'private - encoding') ----- - ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'as yet unclassified') ----- reservedCharacters ^ '=' ! Item was changed: + ----- Method: Stream>>sleep (in category 'file directory') ----- - ----- Method: Stream>>sleep (in category 'as yet unclassified') ----- sleep "an FTP-based stream might close the connection here"!

1 0

The Trunk: MorphicTests-pre.81.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-pre.81.mcz ==================== Summary ==================== Name: MorphicTests-pre.81 Author: pre Time: 10 November 2021, 3:17:01.256616 pm UUID: f6cba33e-ac48-bf49-aa5a-6af8da18f92d Ancestors: MorphicTests-mt.80 Recategorizes uncategorized or miscategorized methods. =============== Diff against MorphicTests-mt.80 =============== Item was changed: + ----- Method: CircleMorphTest>>setUp (in category 'running') ----- - ----- Method: CircleMorphTest>>setUp (in category 'initialize-release') ----- setUp morph := CircleMorph new! Item was changed: + ----- Method: SystemWindowTest>>setUp (in category 'running') ----- - ----- Method: SystemWindowTest>>setUp (in category 'as yet unclassified') ----- setUp super setUp. sut := SystemWindow new.! Item was changed: + ----- Method: SystemWindowTest>>test01Culling (in category 'tests') ----- - ----- Method: SystemWindowTest>>test01Culling (in category 'as yet unclassified') ----- test01Culling "Check whether system windows follow the specs for occlusion culling. See WorldState >> #drawWorld:submorphs:invalidAreasOn: and Morph >> #areasRemainingToFill:." sut extent: 500@500; fullBounds. sut cornerStyle: #square. self assert: (sut areasRemainingToFill: (20@20 center: sut center)) isEmpty. self assert: (sut areasRemainingToFill: sut bounds) isEmpty. self assert: (sut areasRemainingToFill: sut outerBounds) isEmpty. self assert: (sut areasRemainingToFill: sut fullBounds) isEmpty.! Item was changed: + ----- Method: TextLineTest>>setUp (in category 'running') ----- - ----- Method: TextLineTest>>setUp (in category 'initialize-release') ----- setUp super setUp. prototypes add: (TextLine start: 1 stop: 50 internalSpaces: 2 paddingWidth: 1) ! Item was changed: + ----- Method: TextMorphTest>>testInitialize (in category 'tests') ----- - ----- Method: TextMorphTest>>testInitialize (in category 'testing') ----- testInitialize "For now, just make sure initialization doesn't throw exception" TextMorph initialize.!

1 0

The Trunk: Morphic-pre.1787.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1787.mcz ==================== Summary ==================== Name: Morphic-pre.1787 Author: pre Time: 10 November 2021, 3:14:54.221616 pm UUID: 47110e44-c26f-8444-bc66-849696a5bc9b Ancestors: Morphic-eem.1786 Recategorizes unclassified methods. =============== Diff against Morphic-eem.1786 =============== Item was changed: + ----- Method: ComplexProgressIndicator>>addProgressDecoration: (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>addProgressDecoration: (in category 'as yet unclassified') ----- addProgressDecoration: extraParam | f m | targetMorph ifNil: [^self]. (extraParam isForm) ifTrue: [targetMorph submorphsDo: [:mm | (mm isSketchMorph) ifTrue: [mm delete]]. f := Form extent: extraParam extent depth: extraParam depth. extraParam displayOn: f. m := SketchMorph withForm: f. m align: m fullBounds leftCenter with: targetMorph fullBounds leftCenter + (2 @ 0). targetMorph addMorph: m. ^self]. (extraParam isString) ifTrue: [targetMorph submorphsDo: [:mm | (mm isKindOf: StringMorph) ifTrue: [mm delete]]. m := StringMorph contents: extraParam translated. m align: m fullBounds bottomCenter + (0 @ 8) with: targetMorph bounds bottomCenter. targetMorph addMorph: m. ^self]! Item was changed: + ----- Method: ComplexProgressIndicator>>backgroundWorldDisplay (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>backgroundWorldDisplay (in category 'as yet unclassified') ----- backgroundWorldDisplay | world | self flag: #bob. "really need a better way to do this" "World displayWorldSafely." "ugliness to try to track down a possible error" world := Project current world. [world displayWorld] ifError: [ :a :b | | f | stageCompleted := 999. f := FileDirectory default fileNamed: 'bob.errors'. f nextPutAll: a printString,' ',b printString; cr; cr. f nextPutAll: 'worlds equal ',(formerWorld == world) printString; cr; cr. f nextPutAll: thisContext longStack; cr; cr. f nextPutAll: formerProcess suspendedContext longStack; cr; cr. f close. Beeper beep. ]. ! Item was changed: + ----- Method: ComplexProgressIndicator>>forkProgressWatcher (in category 'private - background process') ----- - ----- Method: ComplexProgressIndicator>>forkProgressWatcher (in category 'as yet unclassified') ----- forkProgressWatcher [ | currentWorld killTarget | currentWorld := Project current world. [stageCompleted < 999 and: [formerProject == Project current and: [formerWorld == currentWorld and: [translucentMorph world notNil and: [formerProcess suspendedContext notNil and: [Project uiProcess == formerProcess]]]]]] whileTrue: [ translucentMorph setProperty: #revealTimes toValue: {(Time millisecondClockValue - start max: 1). (estimate * newRatio max: 1)}. translucentMorph changed. translucentMorph owner addMorphInLayer: translucentMorph. (Time millisecondClockValue - WorldState lastCycleTime) abs > 500 ifTrue: [ self backgroundWorldDisplay ]. (Delay forMilliseconds: 100) wait. ]. translucentMorph removeProperty: #revealTimes. self loadingHistoryAt: 'total' add: (Time millisecondClockValue - start max: 1). killTarget := targetMorph ifNotNil: [ targetMorph valueOfProperty: #deleteOnProgressCompletion ]. formerWorld == currentWorld ifTrue: [ translucentMorph delete. killTarget ifNotNil: [killTarget delete]. ] ifFalse: [ translucentMorph privateDeleteWithAbsolutelyNoSideEffects. killTarget ifNotNil: [killTarget privateDeleteWithAbsolutelyNoSideEffects]. ]. ] forkAt: Processor lowIOPriority.! Item was changed: + ----- Method: ComplexProgressIndicator>>historyCategory: (in category 'configuration') ----- - ----- Method: ComplexProgressIndicator>>historyCategory: (in category 'as yet unclassified') ----- historyCategory: aKey History ifNil: [History := Dictionary new]. specificHistory := History at: aKey ifAbsentPut: [Dictionary new]. ^specificHistory ! Item was changed: + ----- Method: ComplexProgressIndicator>>loadingHistoryAt:add: (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>loadingHistoryAt:add: (in category 'as yet unclassified') ----- loadingHistoryAt: aKey add: aNumber (self loadingHistoryDataForKey: aKey) add: aNumber. ! Item was changed: + ----- Method: ComplexProgressIndicator>>loadingHistoryDataForKey: (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>loadingHistoryDataForKey: (in category 'as yet unclassified') ----- loadingHistoryDataForKey: anObject | answer | answer := specificHistory at: anObject ifAbsentPut: [OrderedCollection new]. answer size > 50 ifTrue: [ answer := answer copyFrom: 25 to: answer size. specificHistory at: anObject put: answer. ]. ^answer ! Item was changed: + ----- Method: ComplexProgressIndicator>>targetMorph: (in category 'configuration') ----- - ----- Method: ComplexProgressIndicator>>targetMorph: (in category 'as yet unclassified') ----- targetMorph: aMorph targetMorph := aMorph! Item was changed: + ----- Method: ComplexProgressIndicator>>withProgressDo: (in category 'configuration') ----- - ----- Method: ComplexProgressIndicator>>withProgressDo: (in category 'as yet unclassified') ----- withProgressDo: aBlock | safetyFactor totals trialRect delta | Smalltalk isMorphic ifFalse: [^aBlock value]. formerProject := Project current. formerWorld := formerProject world. formerProcess := Processor activeProcess. targetMorph ifNil: [targetMorph := ProgressTargetRequestNotification signal]. targetMorph ifNil: [ trialRect := Rectangle center: Sensor cursorPoint extent: 80@80. delta := trialRect amountToTranslateWithin: formerWorld bounds. trialRect := trialRect translateBy: delta. translucentMorph := TranslucentProgessMorph new opaqueBackgroundColor: Color white; bounds: trialRect; openInWorld: formerWorld. ] ifNotNil: [ translucentMorph := TranslucentProgessMorph new morphicLayerNumber: targetMorph morphicLayerNumber - 0.1; bounds: targetMorph boundsInWorld; openInWorld: targetMorph world. ]. stageCompleted := 0. safetyFactor := 1.1. "better to guess high than low" translucentMorph setProperty: #progressStageNumber toValue: 1. translucentMorph hide. totals := self loadingHistoryDataForKey: 'total'. newRatio := 1.0. estimate := totals size < 2 ifTrue: [ 15000 "be a pessimist" ] ifFalse: [ (totals sum - totals max) / (totals size - 1 max: 1) * safetyFactor. ]. start := Time millisecondClockValue. self forkProgressWatcher. [ aBlock on: ProgressInitiationException do: [ :ex | ex sendNotificationsTo: [ :min :max :curr | "ignore this as it is inaccurate" ]. ]. ] on: ProgressNotification do: [ :note | | stageCompletedString | translucentMorph show. note extraParam ifNotNil:[self addProgressDecoration: note extraParam]. stageCompletedString := (note messageText findTokens: ' ') first. stageCompleted := (stageCompletedString copyUpTo: $:) asNumber. cumulativeStageTime := Time millisecondClockValue - start max: 1. prevData := self loadingHistoryDataForKey: stageCompletedString. prevData isEmpty ifFalse: [ newRatio := (cumulativeStageTime / (prevData average max: 1)) asFloat. ]. self loadingHistoryAt: stageCompletedString add: cumulativeStageTime. translucentMorph setProperty: #progressStageNumber toValue: stageCompleted + 1. note resume. ]. stageCompleted := 999. "we may or may not get here" ! Item was changed: + ----- Method: IconicButton>>darken (in category 'ui') ----- - ----- Method: IconicButton>>darken (in category 'as yet unclassified') ----- darken self firstSubmorph form: self darkenedForm! Item was changed: + ----- Method: KeyboardBuffer>>flushKeyboard (in category 'keyboard control') ----- - ----- Method: KeyboardBuffer>>flushKeyboard (in category 'as yet unclassified') ----- flushKeyboard eventUsed ifFalse: [^ eventUsed := true].! Item was changed: + ----- Method: KeyboardBuffer>>keyboard (in category 'keyboard control') ----- - ----- Method: KeyboardBuffer>>keyboard (in category 'as yet unclassified') ----- keyboard eventUsed ifFalse: [eventUsed := true. ^ event keyCharacter]. ^ nil! Item was changed: + ----- Method: KeyboardBuffer>>keyboardPeek (in category 'keyboard control') ----- - ----- Method: KeyboardBuffer>>keyboardPeek (in category 'as yet unclassified') ----- keyboardPeek eventUsed ifFalse: [^ event keyCharacter]. ^ nil! Item was changed: + ----- Method: KeyboardBuffer>>startingEvent: (in category 'private') ----- - ----- Method: KeyboardBuffer>>startingEvent: (in category 'as yet unclassified') ----- startingEvent: evt event := evt. eventUsed := false! Item was changed: + ----- Method: SVColorSelectorMorph>>extent: (in category 'geometry') ----- - ----- Method: SVColorSelectorMorph>>extent: (in category 'as yet unclassified') ----- extent: p "Update the gradient directions." super extent: p. self updateGradients! Item was removed: - ----- Method: TextEditor>>systemNavigation (in category 'as yet unclassified') ----- - systemNavigation - ^ SystemNavigation for: model environment!

1 0

The Trunk: Installer-Core-pre.441.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-pre.441.mcz ==================== Summary ==================== Name: Installer-Core-pre.441 Author: pre Time: 10 November 2021, 3:06:48.579616 pm UUID: ff3a2aa9-efc5-9943-ba73-1eebfb6dc5c8 Ancestors: Installer-Core-mt.440 Recategorizes uncategorized or miscategorized messages in the Installer package. =============== Diff against Installer-Core-mt.440 =============== Item was changed: + ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'private') ----- - ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'as yet unclassified') ----- extractFromHtml: html option: allOrLast | start stop test in | start := self markersBegin. stop := self markersEnd. test := self markersTest. in := WriteStream with: String new. [ html upToAll: start; atEnd ] whileFalse: [ | chunk | (allOrLast == #last) ifTrue: [ in resetToStart ]. chunk := html upToAll: stop. self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ]. in nextPutAll: chunk. ]. ^self removeHtmlMarkupFrom: in readStream ! Item was changed: + ----- Method: InstallerInternetBased>>markers (in category 'private - accessing') ----- - ----- Method: InstallerInternetBased>>markers (in category 'as yet unclassified') ----- markers ^ markers ifNil: [ '<code st>..."test ...</code st>' ]! Item was changed: + ----- Method: InstallerInternetBased>>markers: (in category 'private - accessing') ----- - ----- Method: InstallerInternetBased>>markers: (in category 'as yet unclassified') ----- markers: anObject markers := anObject! Item was changed: + ----- Method: InstallerInternetBased>>markersBegin (in category 'private') ----- - ----- Method: InstallerInternetBased>>markersBegin (in category 'as yet unclassified') ----- markersBegin ^ self markers copyUpTo: $.! Item was changed: + ----- Method: InstallerInternetBased>>markersEnd (in category 'private') ----- - ----- Method: InstallerInternetBased>>markersEnd (in category 'as yet unclassified') ----- markersEnd "return the third marker or the second if there are only two" | str a | str := self markers readStream. a := str upToAll: '...'; upToAll: '...'. str atEnd ifTrue: [ ^a ] ifFalse: [ ^str upToEnd ] ! Item was changed: + ----- Method: InstallerInternetBased>>markersTest (in category 'private') ----- - ----- Method: InstallerInternetBased>>markersTest (in category 'as yet unclassified') ----- markersTest ^ self markers readStream upToAll: '...'; upToAll: '...'! Item was changed: + ----- Method: InstallerInternetBased>>removeHtmlMarkupFrom: (in category 'private') ----- - ----- Method: InstallerInternetBased>>removeHtmlMarkupFrom: (in category 'as yet unclassified') ----- removeHtmlMarkupFrom: in | out | out := WriteStream on: (String new: 100). [ in atEnd ] whileFalse: [ out nextPutAll: (in upTo: $<). (((in upTo: $>) asLowercase beginsWith: 'br') and: [ (in peek = Character cr) ]) ifTrue: [ in next ]. ]. ^self replaceEntitiesIn: out readStream. ! Item was changed: + ----- Method: InstallerMantis class>>host: (in category 'instanciation') ----- - ----- Method: InstallerMantis class>>host: (in category 'instance creation') ----- host: host ^self new ma: host; markers: '"fix begin"..."fix test"..."fix end"'; yourself. ! Item was changed: + ----- Method: InstallerMantis class>>initialize (in category 'instanciation') ----- - ----- Method: InstallerMantis class>>initialize (in category 'instance creation') ----- initialize Status := Dictionary new at: '10' put: 'new'; at: '20' put: 'feedback'; at: '30' put: 'acknowledged'; at: '40' put: 'confirmed'; at: '50' put: 'assigned'; at: '60' put: 'pending'; at: '70' put: 'testing'; at: '80' put: 'resolved'; at: '90' put: 'closed'; yourself ! Item was changed: + ----- Method: InstallerMantis>>bugsClosed (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsClosed (in category 'search') ----- bugsClosed ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]! Item was changed: + ----- Method: InstallerMantis>>bugsRelease: (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsRelease: (in category 'search') ----- bugsRelease: version ^self bugsAll select: [ :ea | (ea status = 'resolved') and: [ ea fixedIn = version ]]! Item was changed: + ----- Method: InstallerMantis>>bugsSqueak (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsSqueak (in category 'search') ----- bugsSqueak ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?project=Squeak' ] " Installer mantis bugsSqueak. Installer mantis bugsAll. Installer mantis bugsClosed. "! Item was changed: + ----- Method: InstallerMantis>>bugsTesting: (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsTesting: (in category 'search') ----- bugsTesting: version ^self bugsAll select: [ :ea | ea status = 'testing' and: [ ea fixedIn = version ]]! Item was changed: + ----- Method: InstallerMantis>>category (in category 'searching') ----- - ----- Method: InstallerMantis>>category (in category 'search') ----- category ^ self dataAtName: 'Category' " s bugs collect: [ :ea | ea category ] "! Item was changed: + ----- Method: InstallerMantis>>dataAtName: (in category 'searching') ----- - ----- Method: InstallerMantis>>dataAtName: (in category 'search') ----- dataAtName: key ^ array at: (self dataNames indexOf: key)! Item was changed: + ----- Method: InstallerMantis>>dataAtName:put: (in category 'searching') ----- - ----- Method: InstallerMantis>>dataAtName:put: (in category 'search') ----- dataAtName: key put: v ^ array at: (self dataNames indexOf: key) put: v! Item was changed: + ----- Method: InstallerMantis>>dataClosed (in category 'searching') ----- - ----- Method: InstallerMantis>>dataClosed (in category 'search') ----- dataClosed ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]! Item was changed: + ----- Method: InstallerMantis>>fixedIn (in category 'searching') ----- - ----- Method: InstallerMantis>>fixedIn (in category 'search') ----- fixedIn ^ self dataAtName: 'FixedIn' ! Item was changed: + ----- Method: InstallerMantis>>project (in category 'searching') ----- - ----- Method: InstallerMantis>>project (in category 'search') ----- project ^ self dataAtName: 'Project' ! Item was changed: + ----- Method: InstallerMantis>>summary (in category 'searching') ----- - ----- Method: InstallerMantis>>summary (in category 'search') ----- summary ^ self dataAtName: 'Summary'! Item was changed: + ----- Method: InstallerUrl>>addPackage: (in category 'public interface') ----- - ----- Method: InstallerUrl>>addPackage: (in category 'as yet unclassified') ----- addPackage: aPackageName super addPackage: aPackageName. (self url endsWith: '/') ifFalse: [self url: self url, '/'].!

1 0

The Trunk: Morphic-eem.1786.mcz
by commits＠source.squeak.org 04 Nov '21

04 Nov '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1786.mcz ==================== Summary ==================== Name: Morphic-eem.1786 Author: eem Time: 4 November 2021, 12:44:06.340704 pm UUID: 6a2f11a1-29ae-4254-b9a7-585512357c51 Ancestors: Morphic-mt.1785 Add a Find Workspace... item to teh end of the Find Window menu. This finds and activates a workspace in any project (my life has too many projecvts with too many workspaces in them to lve without this kind of help). Abstracting the facility to search for other kinds of windows is left as an exercise to the reader (I don't see the need for being able to find other than workspaces, but that might be just me). Needs System-eem.1245. =============== Diff against Morphic-mt.1785 =============== Item was added: + ----- Method: MorphicProject>>topMorphicProject (in category 'accessing') ----- + topMorphicProject + parentProject == self ifTrue: [^self]. + parentProject ifNil: [self nilParentError]. + ^parentProject isMorphic + ifTrue: [parentProject topMorphicProject] + ifFalse: [self]! Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') ----- listWindowsOn: menu | windows | windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | | windowColor | windowColor := (each model respondsTo: #windowColorToUse) ifTrue: [each model windowColorToUse] ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each); icon: (self colorIcon: windowColor); target: each; selector: #comeToFront; subMenuUpdater: self selector: #windowMenuFor:on: arguments: { each }; action: [ each beKeyWindow; expand ] ] ]. menu addLine; add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows; add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; addItem: [:item | item contents: 'Close all windows without changes'; target: self; icon: MenuIcons smallBroomIcon; selector: #closeAllWindows]; + add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces; + addItem: + [ :item | + item + contents: 'Find Workspace...'; + target: self; + selector: #findWorkspace; + subMenuUpdater: self + selector: #workspacesMenuFor: + arguments: #()]! - add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.! Item was added: + ----- Method: TheWorldMainDockingBar>>selectWorkspace:window:inProject:contents: (in category 'submenu - windows') ----- + selectWorkspace: aWorkspace window: aSystemWindow inProject: aMorphicProject contents: contents + aMorphicProject + addDeferredUIMessage: [aSystemWindow comeToFront]; + enter "Does nothing if already the current project..." + ! Item was added: + ----- Method: TheWorldMainDockingBar>>workspacesMenuFor: (in category 'submenu - windows') ----- + workspacesMenuFor: anUpdatingMenuMorph + | allWorkspaces | + allWorkspaces := Set new. + Project current topMorphicProject withChildrenDo: + [:project| + project world submorphs do: + [:m| + (m model isKindOf: Workspace) ifTrue: + [allWorkspaces add: + { m model. + m. + project. + m model contents ifEmpty: + [(m model dependents detect: [:d| d isTextView] ifNone: nil) textMorph contents] }]]]. + "Sort workspaces with non-empty ones first..." + (allWorkspaces sorted: + [:t1 :t2| + t1 last isEmpty == t2 last isEmpty + ifTrue: [t1 second label <= t2 second label] + ifFalse: [t1 last notEmpty]]) do: + [:tuple| + anUpdatingMenuMorph addItem: + [:item | item + contents: tuple second label, ': ', (tuple last asString contractTo: 128); + target: self; + selector: #selectWorkspace:window:inProject:contents:; + arguments: tuple]]!

1 0

The Trunk: System-eem.1245.mcz
by commits＠source.squeak.org 04 Nov '21

04 Nov '21

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1245.mcz ==================== Summary ==================== Name: System-eem.1245 Author: eem Time: 4 November 2021, 12:39:44.080578 pm UUID: c5406b85-50fb-4666-baf7-d995bdb2da41 Ancestors: System-eem.1244 Project: Abstract nilParentError, shared between a couple of accessors (new topMorphicProject). Add an instance side topProject to compliment topMorphicProject. =============== Diff against System-eem.1244 =============== Item was changed: ----- Method: Project>>isTopProject (in category 'sub-projects & hierarchy') ----- isTopProject + "Answer if this is the top project (its own parent). - "Return true only if this is the top project (its own parent). Also include the test here for malformed project hierarchy." parentProject == self ifTrue: [^ true]. + parentProject == nil ifTrue: [self nilParentError]. - parentProject == nil ifTrue: [self error: 'No project should have a nil parent']. ^ false! Item was added: + ----- Method: Project>>nilParentError (in category 'accessing') ----- + nilParentError + self error: 'No project should have a nil parent'! Item was added: + ----- Method: Project>>topProject (in category 'accessing') ----- + topProject + "Answer the topProject for this project's hierarchy" + + parentProject == self ifTrue: [^self]. + parentProject == nil ifTrue: [self nilParentError]. + ^parentProject topProject!

1 0

The Trunk: Kernel-eem.1420.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1420.mcz ==================== Summary ==================== Name: Kernel-eem.1420 Author: eem Time: 2 November 2021, 8:11:49.057099 am UUID: 3b580b38-8061-4dd8-9485-3fec3dd2c04a Ancestors: Kernel-eem.1419 Merge Kernel-ct.1407 Fixes #isPrimFailToken: for objects that do not implement #isArray in a conventional way, or that do not implement it all. The following should be debuggable without any problems, but currently is not due to a regression in Kernel-eem.1366. Fur more information, see: http://forum.world.st/The-Trunk-Kernel-eem-1366-mcz-td5126558.html =============== Diff against Kernel-eem.1419 =============== Item was changed: ----- Method: Context>>isPrimFailToken: (in category 'private') ----- isPrimFailToken: contextOrPrimFailToken "Answer if contextOrPrimFailToken, which will either be a Context object or a primitive fail token (a tuple of the PrimitiveFailToken unique object and a primitive failure code), is the latter. This should only be used with the (possibly indirect) results of Context>>doPrimitive:method:receiver:args:" + ^ (self objectClass: contextOrPrimFailToken) == Array - ^contextOrPrimFailToken isArray and: [contextOrPrimFailToken size = 2 and: [(contextOrPrimFailToken at: 1) == PrimitiveFailToken]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021