Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
156 discussions

The Inbox: ToolBuilder-Kernel-ct.162.mcz
by commits＠source.squeak.org 11 Sep '22

11 Sep '22

A new version of ToolBuilder-Kernel was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Kernel-ct.162.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.162 Author: ct Time: 17 July 2022, 3:26:41.516615 pm UUID: dc34f48c-6a59-a746-9151-486b8dfb3fcf Ancestors: ToolBuilder-Kernel-eem.161 In menu construction from tuples, allows nil values for the help. Follow up of ToolBuilder-Kernel-eem.161. Complements Morphic-ct.2021. For instance, some menus in the Git Browser failed to open since that change. See SquitBrowser>>#buildMenu:from: and senders. Inbox because I'm not sure whether we should allow nil values here or whether Squot should be fixed instead. =============== Diff against ToolBuilder-Kernel-eem.161 =============== Item was added: + ----- Method: PluggableMenuSpec>>addList: (in category 'construction') ----- + addList: aList + "Add the given items to this menu, where each item is a pair (<string> <actionSelector>).. If an element of the list is simply the symobl $-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help." + + aList do: [:tuple | + tuple == #- + ifTrue: [self addSeparator] + ifFalse:[ | item | + item := self add: tuple first target: model selector: tuple second argumentList: #(). + tuple size > 2 ifTrue: + [tuple third ifNotNil: [:help | + item help: help withCRs]]]]!

3 2

Debian package project - calling PhilB
by tim Rowledge 11 Sep '22

11 Sep '22

HI PhilB; are you still around on the list? Wondering if any progress on making the Debian package thing has been made? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- A mental midget with the IQ of a fencepost.

2 2

The Inbox: Kernel-ct.1294.mcz
by commits＠source.squeak.org 09 Sep '22

09 Sep '22

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1294.mcz ==================== Summary ==================== Name: Kernel-ct.1294 Author: ct Time: 9 January 2020, 3:42:36.672555 pm UUID: 7409dcc3-160e-9d44-9712-f266e0f25973 Ancestors: Kernel-nice.1292 Proposal: Add #haltOnceIf: to Object, which combines the strengths of #haltOnce and #haltIf:. Especially useful in performance-critical situations: It HaltOnce is disabled, the condition will not be evaluated at all. =============== Diff against Kernel-nice.1292 =============== Item was changed: ----- Method: Object>>haltIf: (in category 'debugging') ----- + haltIf: aCondition + "This is the typical message to use for inserting breakpoints during debugging. Param can be a block or expression, halt if true. - haltIf: condition - "This is the typical message to use for inserting breakpoints during - debugging. Param can be a block or expression, halt if true. If the Block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." - If the condition is a selector, we look up in the callchain. Halt if - any method's selector equals selector." - | cntxt | + ^ (self meetsHaltCondition: aCondition) + ifTrue: [self halt]! - condition isSymbol ifTrue:[ - "only halt if a method with selector symbol is in callchain" - cntxt := thisContext. - [cntxt sender isNil] whileFalse: [ - cntxt := cntxt sender. - (cntxt selector = condition) ifTrue: [Halt signal]. - ]. - ^self. - ]. - (condition isBlock - ifTrue: [condition cull: self] - ifFalse: [condition] - ) ifTrue: [ - Halt signal - ].! Item was added: + ----- Method: Object>>haltOnceIf: (in category 'debugging') ----- + haltOnceIf: aCondition + "Check aCondition and halt, unless we have already done it once. See #meetsHaltCondition:." + + self haltOnceEnabled ifFalse: [^ self]. + ^ (self meetsHaltCondition: aCondition) + ifTrue: [ + self clearHaltOnce; halt].! Item was added: + ----- Method: Object>>meetsHaltCondition: (in category 'debugging') ----- + meetsHaltCondition: aCondition + "If the Block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." + + aCondition isSymbol ifTrue: [ | ctxt | + "only halt if a method with selector symbol is in callchain" + ctxt := thisContext. + [(ctxt := ctxt sender) isNil] whileFalse: [ + (ctxt selector = aCondition) ifTrue: [^ true] ]. + ^ false ]. + ^ aCondition isBlock + ifTrue: [aCondition cull: self] + ifFalse: [aCondition value]!

2 1

Some questions about MIDI
by Thiede, Christoph 03 Sep '22

03 Sep '22

Hi all, I have been playing around a bit with midi support and was pretty delighted that you can actually synthesize inputs from a midi keyboard using MidiInputMorph! Out of curiosity, here are a few short questions: 1. As far as I could find out, there is currently no support for recording midi in the Trunk, is it? There are MIDISynth and MidiInputMorph, but there seems not to exist any connection to the PianoKeyboardMorph or the Piano Roll yet? Imagine you could press Record in a score player and add another track by playing it on your physical midi keyboard ... 2. Also, there is not yet any file-out for midi, right? This would also be cool: Store the events from an input midi port, add them as a new track to a score, and serialize the score to a .mid file later. 3. Last but not least: Should the MIDIPlugin be fully functional on Linux? On my Ubuntu machine, I can use the output port but primitiveMidiRead always fails. On Windows, everything is fine. Have a nice weekend! Best, Christoph <http://www.hpi.de/>

7 14

Computer History Museum "Smalltalk at 50" event
by tim Rowledge 01 Sep '22

01 Sep '22

I don't recall seeing this mentioned here before - See https://computerhistory.org/events/making-smalltalk/ tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Calm down -- it's only ones and zeros.

7 8

The Inbox: System-cmm.1145.mcz
by commits＠source.squeak.org 01 Sep '22

01 Sep '22

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-cmm.1145.mcz ==================== Summary ==================== Name: System-cmm.1145 Author: cmm Time: 31 August 2022, 5:29:41.772761 pm UUID: 358fe212-44c9-44d5-bcdb-f07739ed4735 Ancestors: System-cmm.1144 testing on new server. ignore =============== Diff against System-mt.1142 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: aUserInterfaceTheme "self createDark apply." "Scroll bars" aUserInterfaceTheme set: #thumbColor for: #ScrollBar to: self dbGray; set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." aUserInterfaceTheme set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined." set: #color for: #ScrollPane to: self dbBackground. "List widgets" aUserInterfaceTheme set: #textColor for: #PluggableListMorph to: (Color gray: 0.9); set: #selectionColor for: #PluggableListMorph to: self dbSelection; set: #selectionTextColor for: #PluggableListMorph to: Color white ; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker]; set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4); derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ]. "Tree widgets" aUserInterfaceTheme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter; set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray. "Text widgets" aUserInterfaceTheme set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9); set: #caretColor for: #PluggableTextMorph to: Color orange darker; set: #selectionColor for: #PluggableTextMorph to: (self dbSelection duller duller); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple; set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue; set: #adornmentConflict for: #PluggableTextMorph to: self dbRed; set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen; set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 2. aUserInterfaceTheme + set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbComment! - set: #balloonTextColor for: #PluggableTextMorphPlus to: Color lightGray! Item was changed: ----- Method: ImageSegment>>comeFullyUpOnReload: (in category 'fileIn') ----- comeFullyUpOnReload: smartRefStream "fix up the objects in the segment that changed size. An object in the segment is the wrong size for the modern version of the class. Construct a fake class that is the old size. Replace the modern class with the old one in outPointers. Load the segment. Traverse the instances, making new instances by copying fields, and running conversion messages. Keep the new instances. Bulk forward become the old to the new. Let go of the fake objects and classes. After the install (below), arrayOfRoots is filled in. Globalize new classes. Caller may want to do some special install on certain objects in arrayOfRoots. May want to write the segment out to disk in its new form." | mapFakeClassesToReal receiverClasses rootsToUnhiberhate myProject existing forgetDoItsClass endianness | forgetDoItsClass := Set new. RecentlyRenamedClasses := nil. "in case old data hanging around" mapFakeClassesToReal := smartRefStream reshapedClassesIn: outPointers. "Dictionary of just the ones that change shape. Substitute them in outPointers." self fixCapitalizationOfSymbols. endianness := self endianness. segment := self loadSegmentFrom: segment outPointers: outPointers. arrayOfRoots := segment first. mapFakeClassesToReal isEmpty ifFalse: [ self reshapeClasses: mapFakeClassesToReal refStream: smartRefStream ]. "When a Project is stored, arrayOfRoots has all objects in the project, except those in outPointers" arrayOfRoots do: [:importedObject | ((importedObject isMemberOf: WideString) or: [importedObject isMemberOf: WideSymbol]) ifTrue: [ importedObject mutateJISX0208StringToUnicode. importedObject class = WideSymbol ifTrue: [ "self halt." Symbol hasInterned: importedObject asString ifTrue: [:multiSymbol | multiSymbol == importedObject ifFalse: [ importedObject becomeForward: multiSymbol. ]. ]. ]. ]. (importedObject isMemberOf: TTCFontSet) ifTrue: [ existing := TTCFontSet familyName: importedObject familyName pointSize: importedObject pointSize. "supplies default" existing == importedObject ifFalse: [importedObject becomeForward: existing]. ]. ]. receiverClasses := self restoreEndianness: endianness ~~ Smalltalk endianness. "rehash sets" smartRefStream checkFatalReshape: receiverClasses. "Classes in this segment." arrayOfRoots do: [:importedObject | importedObject class class == Metaclass ifTrue: [forgetDoItsClass add: importedObject. self declare: importedObject]]. rootsToUnhiberhate := OrderedCollection new. arrayOfRoots do: [:importedObject | ((importedObject isMemberOf: ScriptEditorMorph) or: [(importedObject isKindOf: TileMorph) or: [(importedObject isMemberOf: ScriptingTileHolder) or: [importedObject isKindOf: CompoundTileMorph]]]) ifTrue: [ rootsToUnhiberhate add: importedObject ]. (importedObject isMemberOf: Project) ifTrue: [ myProject := importedObject. importedObject ensureChangeSetNameUnique. Project addingProject: importedObject. importedObject restoreReferences. self dependentsRestore: importedObject. ScriptEditorMorph writingUniversalTiles: ((importedObject projectPreferenceAt: #universalTiles) ifNil: [false])]]. myProject ifNotNil: [ myProject world setProperty: #thingsToUnhibernate toValue: rootsToUnhiberhate asArray. ]. mapFakeClassesToReal isEmpty ifFalse: [ mapFakeClassesToReal keysAndValuesDo: [:aFake :aReal | aFake removeFromSystemUnlogged. aFake becomeForward: aReal]. SystemOrganization removeEmptyCategories]. + forgetDoItsClass do: [:c | c forgetDoIts]. - forgetDoItsClass do: [:c | self forgetDoItsInClass: c]. "^ self" ! Item was removed: - ----- Method: ImageSegment>>forgetDoItsInClass: (in category 'private') ----- - forgetDoItsInClass: aClass - "get rid of old DoIt methods and bogus entries in the ClassOrganizer." - - SystemChangeNotifier uniqueInstance doSilently: [ - aClass organization - removeElement: #DoIt; - removeElement: #DoItIn:. - ]. - - aClass - basicRemoveSelector: #DoIt; - basicRemoveSelector: #DoItIn:! Item was changed: ----- Method: Locale class>>defaultInputInterpreter (in category 'platform specific') ----- defaultInputInterpreter + | platformName osVersion | - | platformName | platformName := Smalltalk platformName. + osVersion := Smalltalk getSystemAttribute: 1002. + (platformName = 'Win32' and: [osVersion = 'CE']) + ifTrue: [^NoInputInterpreter new]. + platformName = 'Win32' ifTrue: [^MacRomanInputInterpreter new]. - platformName = 'Win32' ifTrue: [^UTF32InputInterpreter new]. ^NoInputInterpreter new! Item was changed: ----- Method: NativeImageSegment>>rootsIncludingBlocks (in category 'read/write segment') ----- rootsIncludingBlocks "For export segments only. Return a new roots array with more objects. (Caller should store into rootArray.) Collect Blocks and external methods pointed to by them. Put them into the roots list. Then ask for the segment again." | extras have | userRootCnt ifNil: [userRootCnt := arrayOfRoots size]. extras := OrderedCollection new. outPointers do: [:anOut | anOut class == CompiledMethod ifTrue: [extras add: anOut]. (anOut isBlock) ifTrue: [extras add: anOut]. (anOut class == Context) ifTrue: [extras add: anOut]]. [have := extras size. extras copy do: [:anOut | anOut isBlock ifTrue: [ anOut home ifNotNil: [ (extras includes: anOut home) ifFalse: [extras add: anOut home]]]. + (anOut class == MethodContext) ifTrue: [ - (anOut class == Context) ifTrue: [ anOut method ifNotNil: [ (extras includes: anOut method) ifFalse: [extras add: anOut method]]]]. have = extras size] whileFalse. extras := extras select: [:ea | (arrayOfRoots includes: ea) not]. extras isEmpty ifTrue: [^ nil]. "no change" ^ arrayOfRoots, extras! Item was changed: ----- Method: NativeImageSegment>>storeDataOn: (in category 'fileIn/Out') ----- storeDataOn: aDataStream "Don't wrote the array of Roots. Also remember the structures of the classes of objects inside the segment." | tempRoots tempOutP list | state = #activeCopy ifFalse: [self error: 'wrong state']. "real state is activeCopy, but we changed it will be right when coming in" tempRoots := arrayOfRoots. tempOutP := outPointers. outPointers := outPointers shallowCopy. self prepareToBeSaved. arrayOfRoots := nil. state := #imported. super storeDataOn: aDataStream. "record my inst vars" arrayOfRoots := tempRoots. outPointers := tempOutP. state := #activeCopy. aDataStream references at: #AnImageSegment put: false. "the false is meaningless" "This key in refs is the flag that there is an ImageSegment in this file." "Find the receivers of blocks in the segment. Need to get the structure of their classes into structures. Put the receivers into references." (aDataStream byteStream isKindOf: DummyStream) ifTrue: [ list := Set new. arrayOfRoots do: [:ea | ea isBlock | (ea class == Context) ifTrue: [ list add: ea receiver class ]]. aDataStream references at: #BlockReceiverClasses put: list].! Item was changed: ----- Method: Preferences class>>loadPreferencesFrom: (in category 'initialization - save/load') ----- loadPreferencesFrom: aFile + + | stream params dict desktopColor patternsToIgnore | + patternsToIgnore := #('*updateMapName' '*defaultUpdateURL'). - | stream params dict desktopColor | stream := ReferenceStream fileNamed: aFile. params := stream next. self assert: (params isKindOf: IdentityDictionary). params removeKey: #PersonalDictionaryOfPreferences. dict := stream next. self assert: (dict isKindOf: IdentityDictionary). desktopColor := stream next. stream close. + dict keys + reject: [:key | patternsToIgnore anySatisfy: [:pattern | pattern match: key]] + thenDo: [:key | | value | + value := dict at: key. + (self preferenceAt: key ifAbsent: [nil]) ifNotNil: + [:pref | [pref preferenceValue: value preferenceValue] + on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]]. - dict keysAndValuesDo: - [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil: - [:pref | [pref preferenceValue: value preferenceValue] on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]]. params keysAndValuesDo: [ :key :value | self setParameter: key to: value ]. Smalltalk isMorphic ifTrue: [ Project current world fillStyle: desktopColor ] ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]! Item was changed: ----- Method: Preferences class>>setFlag:toValue:during: (in category 'get/set - flags') ----- setFlag: prefSymbol toValue: aBoolean during: aBlock "Set the flag to the given value for the duration of aBlock" (self valueOfFlag: prefSymbol) in: [:previous | self setFlag: prefSymbol toValue: aBoolean. + aBlock ensure: [self setFlag: prefSymbol toValue: previous]].! - ^ aBlock ensure: [self setFlag: prefSymbol toValue: previous]].! Item was changed: ----- Method: Preferences class>>setPreference:toValue:during: (in category 'get/set') ----- setPreference: prefSymbol toValue: anObject during: aBlock (self valueOfPreference: prefSymbol) in: [:previous | self setPreference: prefSymbol toValue: anObject. + aBlock ensure: [self setPreference: prefSymbol toValue: previous]].! - ^ aBlock ensure: [self setPreference: prefSymbol toValue: previous]]! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'initialization - save/load') ----- storePreferencesIn: aFileName | stream prefsSnapshot | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. prefsSnapshot := preferencesDictionary copy. + prefsSnapshot keysAndValuesDo: [:key :pref | + [prefsSnapshot at: key put: pref asPreference] + on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]. - prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. stream nextPut: prefsSnapshot. stream nextPut: (Smalltalk isMorphic ifTrue:[Project current world fillStyle] ifFalse:[self desktopColor]). stream close! Item was added: + ----- Method: SmalltalkImage class>>test2 (in category 'instance creation') ----- + test2! Item was changed: ----- Method: SmalltalkImage>>openSourceFiles (in category 'sources, changes log') ----- openSourceFiles + self startingUpInNewLocation ifTrue: + [ "Reset the author initials to blank when the image gets moved" - - self imageName = LastImageName ifFalse: - ["Reset the author initials to blank when the image gets moved" LastImageName := self imageName. + Utilities authorInitials: String empty ]. - Utilities authorInitials: '']. FileDirectory openSources: self sourcesName andChanges: self changesName forImage: LastImageName. SourceFileArray install! Item was changed: ----- Method: SmalltalkImage>>patchSystem (in category 'command line') ----- patchSystem 'patch.st' asDirectoryEntry ifNotNil: [ : patchEntry | patchEntry modificationTime > Smalltalk imageName asDirectoryEntry modificationTime ifTrue: [ Notification signal: 'Patching system...'. + patchEntry readStreamDo: [ : stream | stream fileIn ] ] - FileStream - fileNamed: 'patch.st' - do: - [ : stream | stream fileIn ] ] ifFalse: [ self error: 'patch.st file is older than the image file. Aborting.' ] ]! Item was changed: ----- Method: SmalltalkImage>>run: (in category 'command line') ----- run: aBlock [ [ self patchSystem. (aBlock numArgs = 1 and: [ self arguments size > 1 ]) ifTrue: [ "Allow a large, variable number of arguments to be passed as an Array to aBlock." aBlock value: self arguments ] ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] - on: ProgressInitiationException - do: - [ : pie | "Don't want to log this notification." - pie defaultAction ] ] - on: Notification , Warning - do: - [ : noti | FileStream stdout - nextPutAll: DateAndTime now asString ; - space ; - nextPutAll: noti description ; - cr. - noti resume ] on: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; cr; flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ err pass ] ] + on: Error , ProvideAnswerNotification - on: Error do: [ : err | err printVerboseOn: FileStream stderr. FileStream stderr flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] + ifFalse: [ err pass ] ] + on: ProgressInitiationException + do: + [ : pie | "Don't want to log this Notification." + pie defaultAction ] ] + on: Notification , Warning + do: + [ : noti | FileStream stdout + nextPutAll: DateAndTime now asString ; + space ; + nextPutAll: noti description ; + cr. + noti resume ] + ! - ifFalse: [ err pass ] ]! Item was added: + ----- Method: SmalltalkImage>>startingUpInNewLocation (in category 'startup list') ----- + startingUpInNewLocation + ^ self imageName ~= LastImageName! Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: ----- Method: UserInterfaceThemeRequest>>doesNotUnderstand: (in category 'lookup') ----- doesNotUnderstand: aMessage "Look up the visual attribute specified by aMessage's #selector in the current theme for the current target object." aMessage numArgs = 0 ifTrue: [ ^ (self theme get: self target class -> aMessage selector) ifNil: [(self theme respondsTo: aMessage selector) ifTrue: [self theme perform: aMessage selector] ifFalse: [nil "unset property"]]]. - aMessage numArgs = 1 ifTrue: [ - ^ self theme - set: self target class -> aMessage selector asSimpleGetter - to: aMessage arguments first]. - ^ self theme perform: aMessage selector withArguments: aMessage arguments.! Item was changed: ----- Method: Utilities class>>useAuthorInitials:during: (in category 'identification') ----- useAuthorInitials: temporaryAuthorInitials during: aBlock | originalAuthorInitials | originalAuthorInitials := AuthorInitials. + [ + AuthorInitials := temporaryAuthorInitials. + aBlock value ] - ^[ AuthorInitials := temporaryAuthorInitials. - aBlock value ] ensure: [ AuthorInitials := originalAuthorInitials ] ! Item was changed: ----- Method: Utilities class>>useAuthorName:during: (in category 'identification') ----- useAuthorName: temporaryAuthorName during: aBlock | originalAuthorName | originalAuthorName := AuthorName. + [ + AuthorName := temporaryAuthorName. + aBlock value ] - ^[ AuthorName := temporaryAuthorName. - aBlock value ] ensure: [ AuthorName := originalAuthorName ] ! Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors.'! - (PackageInfo named: 'System') postscript: 'Preferences removePreference: #bigDisplay.'!

1 0

Change notification: squeaksource.com migration to new service provider today
by David T. Lewis 31 Aug '22

31 Aug '22

As part of an overall project to move squeak.org services to a new service provider (hetzner.com), the https://squeaksource.com server will be migrated today, 31 August, beginning at 20:00 UTC. Due to time required for DNS updates to propagate, the change will take effect over a number of hours (expect up to one day). This is the general purpose squeaksource.com server, and does not affect http://source.squeak.org, which will be migrated separately at a later date. What you need to know: For most people, no change will be noticed. Read access to repositories will continue with little or no interruption. If you are committing updates to existing projects, there is a risk of those updates being committed to the "wrong" server during the transition period. No data or files will be lost, but some updates may need to be re-applied. The squeaksource.com administrator will be watching for this and will either fix any missing updates or request the affected project administrator to do so. If you are a project administrator or if you are planning to create a new project on squeaksource.com, please avoid making changes during the transition period. In the event of problems, please report the concern here on the squeak-dev list. If you do not have access to that list, you can report the concern to lewis(a)mail.msen.com. Dave

1 0

Browser navigation
by Jakob Reschke 29 Aug '22

29 Aug '22

Hello everyone, I added some new versions and a configuration map to load them to the Inbox. But unfortunately the server did not generate an email for the configuration, so I am announcing this here manually: BrowserNavigation-jr.1 "This set of package versions introduces backwards and forwards navigation to the Browser and fixes it in Lexicon. The navigation in Lexicon is refactored to use the same underlying history management as the Browser." Tools-jr.1172 Protocols-jr.89 ToolsTests-jr.118 Services-Base-jr.73 Please review and comment, especially on the choice of names. I hope the tools allow treating configurations in the Inbox better than they supported copying one to the Inbox... If these versions get integrated into Trunk, the configuration map should be discarded. Kind regards, Jakob

2 4

The Inbox: Tools-jr.1174.mcz
by commits＠source.squeak.org 29 Aug '22

29 Aug '22

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-jr.1174.mcz ==================== Summary ==================== Name: Tools-jr.1174 Author: jr Time: 28 August 2022, 10:51:11.371406 pm UUID: efb61b0e-9d23-4f49-aa80-641600c40485 Ancestors: Tools-jr.1174 Allow conversion of the navigation history to a collection with all the visited elements and to remove elements from the history. It is required for Lexicon's "-- active --" category list item and for its "-" button to remove messages from the active set. =============== Diff against Tools-jr.1174 ===============

3 2

The Inbox: Protocols-jr.90.mcz
by commits＠source.squeak.org 28 Aug '22

28 Aug '22

A new version of Protocols was added to project The Inbox: http://source.squeak.org/inbox/Protocols-jr.90.mcz ==================== Summary ==================== Name: Protocols-jr.90 Author: jr Time: 28 August 2022, 10:51:08.187406 pm UUID: d7bf715f-430d-594c-8866-15cebe2d8c7f Ancestors: Protocols-jr.89 Fix "-- active --" pseudo category and "recent" menu item. Convert MessageNavigation to a collection of selectors before initializing the message list from it. =============== Diff against Protocols-jr.89 =============== Item was changed: ----- Method: Lexicon>>categoryListIndex: (in category 'category list') ----- categoryListIndex: anIndex "Set the category list index as indicated" | categoryName aList found existingSelector | existingSelector := self selectedMessageName. categoryListIndex := anIndex. categoryName := anIndex > 0 ifTrue: [categoryList at: anIndex] ifFalse: [self class allCategoryName]. self changed: #categoryListIndex. found := false. #( (viewedCategoryName selectorsVisited) (queryCategoryName selectorsRetrieved)) do: [:pair | categoryName = (self class perform: pair first) ifTrue: + [aList := (self perform: pair second) asCollection. - [aList := self perform: pair second. found := true]]. found ifFalse: [aList := currentVocabulary allMethodsInCategory: categoryName forInstance: self targetObject ofClass: targetClass]. categoryName = self class queryCategoryName ifFalse: [autoSelectString := nil]. self initListFrom: aList highlighting: targetClass. messageListIndex := 0. self changed: #messageList. contents := nil. self contentsChanged. self selectWithinCurrentCategoryIfPossible: existingSelector. self adjustWindowTitle! Item was changed: ----- Method: Lexicon>>navigateToRecentMethod (in category 'history') ----- navigateToRecentMethod "Put up a menu of recent selectors visited and navigate to the one chosen" | visited aSelector | + (visited := self selectorsVisited asCollection) size > 1 ifTrue: - (visited := self selectorsVisited) size > 1 ifTrue: [visited := visited copyFrom: 1 to: (visited size min: 20). aSelector := UIManager default chooseFrom: visited values: visited title: 'Recent methods visited in this browser'. aSelector isEmptyOrNil ifFalse: [self displaySelector: aSelector]]! Item was changed: ----- Method: Lexicon>>selectorsVisited (in category 'history') ----- selectorsVisited + "Answer the navigation object of this tool" - "Answer the list of selectors visited in this tool" selectorsVisited ifNil: [selectorsVisited := MessageNavigation new]. (selectorsVisited isMemberOf: OrderedCollection) ifTrue: "migrate old instances" [| new | new := MessageNavigation new. selectorsVisited do: [:each | new current: each]. selectorsVisited := new]. ^ selectorsVisited!

1 0

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

Jump to page: