Squeak-dev March 2017

squeak-dev@lists.squeakfoundation.org

50 participants
281 discussions

"repository editions" is finally permanent!
by Chris Muller 23 Oct '17

23 Oct '17

"repository editions" is finally permanent! This function formerly known as "mc history" appeared in 2013, but was clunky and unreliable and I didn't have time to fix it. Now with the recent server upgrade, I took the opportunity to upgrade the image to modern trunk, running under spur, with integration of the editions feature from directly within the image. It is now finally a permanent part of our source.squeak.org code repository. (Go ahead, try it!) It self-hosts its own code within our "ss" project. This is the exact same code loaded by the Personal Squeaksource package. Together can provide editions for ALL code (trunk and proprietary). The 'mc history' menu was recently renamed to "browse repository editions" because its only "history" if its retrieving them from the trunk repository. It selects from the first repository in the repository list of a package which can satisfy the editions request, so if you put inbox above trunk then you'll be looking at a list of "alternate editions" of that method (or class) existing in the Inbox, not the "history" from trunk. The new "demote to bottom" menu item can be used to adjust the order of the list. Nicolas wrote: > so you mean that we now browse all editions, including those which are not > in current MC version ancestors: > - those in concurrent branches Yes. And, I think this was always supported (when it worked!) -- In the server there is one big dictionary per Project (e.g., one for "trunk", one for "VMMaker", one for "inbox", etc.). The editions you see in the list are instances of MCMethodDefinition or MCClassDefinition which are keyed simply by their #description -- so for method editions this is {className. selector. classIsMeta}, and for class editions, simply its (class) name. Its valued by an OrderedCollection of all the editions. (hmm, that key might be too loose..) > - those in other packages (if the method was moved from one package to > another) So, yes, as long as the other package is in the same repository, they'll still be keyed by their same #description's. On Tue, 1 Nov 2016, Hans-Martin Mosner wrote: > Looks like there is a regression with raised and inset borders. The method #initialize in SimpleBorder sets baseColor to > ... snip... > > Levente, the method is from April 2016 and carries your initials - do you remember what the motivation for this change was? I'd been wanting encourage Hans-Martin to test this real-world use case for "browse origin" for the last weeks, now we finally can! :) 1) Bring up SimpleBorder, select the #initialize method. 2) Select "browse repository editions", a window with two editions is presented. 3) Select the one being asked about, "ul 4/7/2016 20:10" and select "browse origin". NOTE: "browse origin" is actually just "the earliest-known Version in which that definition appears." If a proper repository with all versions is kept, then it will be the origin. In this case, it appears Levente wrote very good "why" reasoning in the notes. _____ The timeouts should all be fixed. Our code repository has never been in a better shape than now. Please feel free to use browse repository editions and origins with confidence they will work! Cheers! Chris

4 7

The Inbox: EToys-hjh.279.mcz
by commits＠source.squeak.org 12 Oct '17

12 Oct '17

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-hjh.279.mcz ==================== Summary ==================== Name: EToys-hjh.279 Author: hjh Time: 22 February 2017, 11:23:24.984746 am UUID: 3f908905-74c3-4c1c-931c-7b440b143602 Ancestors: EToys-dtl.278 Two steps towards loading an EToys projects dropped on to the desktop. Change StandardScriptingSystem>>baseColor StandardScriptingSystem>>borderColor to use UserInterfaceTheme current instead of the old direct access to Preferences. =============== Diff against EToys-dtl.278 =============== Item was changed: ----- Method: StandardScriptingSystem>>baseColor (in category '*Etoys-Squeakland-tile colors') ----- baseColor + ^ (UserInterfaceTheme current get: #titleColor for: #MenuMorph) ifNil: [ Color transparent]! - ^ Preferences menuTitleColor! Item was changed: ----- Method: StandardScriptingSystem>>borderColor (in category '*Etoys-Squeakland-tile colors') ----- borderColor + ^ (UserInterfaceTheme current get: #borderColor for: #MenuMorph) ifNil: [(Color r: 0.2 g: 0.3 b: 0.9)]! - ^ Preferences menuBorderColor!

3 4

The Inbox: MorphicExtras-hjh.202.mcz
by commits＠source.squeak.org 16 Sep '17

16 Sep '17

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-hjh.202.mcz ==================== Summary ==================== Name: MorphicExtras-hjh.202 Author: hjh Time: 24 January 2017, 9:18:04.266965 pm UUID: 790dbeec-ba66-4070-b51f-a0225aef4a9f Ancestors: MorphicExtras-cmm.201 Maintain aspect ratio in thumbnail display of imported graphic =============== Diff against MorphicExtras-cmm.201 =============== Item was changed: ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') ----- initializeFor: aTarget fromDictionary: aDictionary "Initialize me for a target and a dictionary." | anIndex aButton | self baseDictionary: aDictionary. target := aTarget. coexistWithOriginal := true. self extent: 210 @ 210. self clipSubmorphs: true. self layoutPolicy: ProportionalLayout new. aButton := (IconicButton new) borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu'); color: Color transparent; actWhen: #buttonDown; actionSelector: #showMenu; target: self; setBalloonText: 'menu'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-50 @ 6 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Prev'; actionSelector: #downArrowHit; actWhen: #whilePressed; setBalloonText: 'show previous picture'; yourself. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (-24 @ 4 extent: aButton extent)). aButton := (SimpleButtonMorph new) target: self; borderColor: Color black; label: 'Next'; actionSelector: #upArrowHit; actWhen: #whilePressed; setBalloonText: 'show next pictutre'. self addMorph: aButton fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0) offsets: (24 @ 4 extent: aButton extent)). self addMorph: ((UpdatingStringMorph new) contents: ' '; target: self; putSelector: #renameGraphicTo:; getSelector: #truncatedNameOfGraphic; useStringFormat; setBalloonText: 'The name of the current graphic'; yourself) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (10 @ 40 corner: -10 @ 60)). self addMorph: ((Morph new) extent: 100 @ 4; color: Color black) fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0) offsets: (0 @ 60 corner: 0 @ 64)). formDisplayMorph := (Thumbnail new) extent: 100 @ 100; useInterpolation: true; maxWidth: 3000 minHeight: 100; yourself. + formDisplayMorph layoutFrame: + (LayoutFrame fractions: (0 @ 0 extent: 0@0) + offsets: (8 @ 72 corner: 108 @ 172)). + self addMorph: formDisplayMorph. - self addMorph: formDisplayMorph - fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0) - offsets: (8 @ 72 corner: 108 @ 172)). self minimumExtent: 116@180. target ifNotNil: [(anIndex := formChoices indexOf: target form ifAbsent: []) ifNotNil: [currentIndex := anIndex]]. self updateThumbnail!

3 7

The Inbox: MultilingualTests-tonyg.22.mcz
by commits＠source.squeak.org 31 Aug '17

31 Aug '17

A new version of MultilingualTests was added to project The Inbox: http://source.squeak.org/inbox/MultilingualTests-tonyg.22.mcz ==================== Summary ==================== Name: MultilingualTests-tonyg.22 Author: tonyg Time: 23 February 2017, 2:01:47.977527 pm UUID: 76769ce3-a15d-46a7-acbd-8acfbd56fcc9 Ancestors: MultilingualTests-pre.21 Test cases from Mantis #4665. =============== Diff against MultilingualTests-pre.21 =============== Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllAscii (in category 'testing') ----- + testUpToAllAscii + "This test case is inspired by Mantis #4665." + "Compare to testUpToAllUtf." + + | in out fn resultA resultB | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 'A<'. "Encodes to byte sequence 413C" + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultA := in upToAll: '<'. + in close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultB := in upTo: $<. + in close. + + self assert: resultA = resultB + ! Item was added: + ----- Method: MultiByteFileStreamTest>>testUpToAllUtf (in category 'testing') ----- + testUpToAllUtf + "This test case is adapted from Mantis #4665." + "MultiByteFileStream was relying on PositionableStream>>#match: to discover the position immediately following the delimiter collection. It would then use #next: to retrieve a number of *characters* computed as the difference in stream positions. However, stream positions are measured in *bytes*, not characters, so this would lead to misalignment when the skipped text included UTF-8 encoded characters." + + | in out fn resultA resultB | + fn :='testUpToAll.in'. + out := FileDirectory default forceNewFileNamed: fn. + out nextPutAll: 231 asCharacter asString, '<'. "Encodes to byte sequence C3A73C" + out close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultA := in upToAll: '<'. + in close. + + in := FileDirectory default readOnlyFileNamed: fn. + resultB := in upTo: $<. + in close. + + self assert: resultA = resultB + !

2 1

The Trunk: System-jr.927.mcz
by commits＠source.squeak.org 16 Jul '17

16 Jul '17

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-jr.927.mcz ==================== Summary ==================== Name: System-jr.927 Author: jr Time: 28 February 2017, 1:18:53.473081 am UUID: 7c830682-637d-e94b-b695-9f1d7499e19b Ancestors: System-ul.926 improve environment awareness of references also support Text as stringVersion of MethodReference (so Lexicon could use method references) =============== Diff against System-ul.926 =============== Item was changed: Object subclass: #ClassReference + instanceVariableNames: 'classSymbol stringVersion classIsMeta environment' - instanceVariableNames: 'classSymbol stringVersion classIsMeta' classVariableNames: '' poolDictionaries: '' category: 'System-Tools'! !ClassReference commentStamp: '<historical>' prior: 0! A ClassReference is is a lightweight proxy for a Class's definition. Allows class definitions to be viewed in MessageLists Instance Variables classSymbol: Symbol for method's class (without class keyword if meta) stringVersion: the class's definition ! Item was changed: ----- Method: ClassReference>>= (in category 'comparisons') ----- = anotherMethodReference "Answer whether the receiver and the argument represent the same object." ^ self species == anotherMethodReference species and: [self classSymbol = anotherMethodReference classSymbol + and: [self classIsMeta = anotherMethodReference classIsMeta + and: [self environment == anotherMethodReference environment]]]! - and: [self classIsMeta = anotherMethodReference classIsMeta]]! Item was changed: ----- Method: ClassReference>>actualClass (in category 'accessing') ----- actualClass | actualClass | + environment ifNil: [^ nil]. + actualClass := environment at: classSymbol ifAbsent: [^nil]. + ^classIsMeta ifTrue: [actualClass theMetaClass] ifFalse: [actualClass]! - actualClass := Smalltalk at: classSymbol ifAbsent: [^nil]. - ^classIsMeta ifTrue: [actualClass class] ifFalse: [actualClass]! Item was added: + ----- Method: ClassReference>>environment (in category 'accessing') ----- + environment + + ^ environment! Item was added: + ----- Method: ClassReference>>hash (in category 'comparisons') ----- + hash + "Answer a SmallInteger whose value is related to the receiver's + identity." + ^ (self species hash bitXor: self classSymbol hash) + bitXor: self environment hash! Item was added: + ----- Method: ClassReference>>printOn: (in category 'printing') ----- + printOn: aStream + | actualClass | + "Print the receiver on a stream" + actualClass := classSymbol asString. + classIsMeta ifTrue: [actualClass := actualClass, ' class']. + super printOn: aStream. + aStream nextPutAll: ' ', actualClass! Item was added: + ----- Method: ClassReference>>setClassSymbol:classIsMeta:environment:stringVersion: (in category 'initialize-release') ----- + setClassSymbol: classSym classIsMeta: isMeta environment: anEnvironment stringVersion: aString + + classSymbol := classSym. + classIsMeta := isMeta. + stringVersion := aString, ' (definition)'. + environment := anEnvironment! Item was changed: ----- Method: ClassReference>>setStandardClass: (in category 'initialize-release') ----- setStandardClass: aClass self setClassSymbol: aClass theNonMetaClass name classIsMeta: aClass isMeta + environment: aClass environment stringVersion: aClass name! Item was changed: ----- Method: MethodReference class>>class:selector: (in category 'instance creation') ----- class: aClass selector: aSelector + ^ self class: aClass selector: aSelector environment: aClass environment.! - ^ self class: aClass selector: aSelector environment: Smalltalk globals.! Item was changed: ----- Method: MethodReference>>= (in category 'comparing') ----- = anotherMethodReference "Answer whether the receiver and the argument represent the same object." ^ self species == anotherMethodReference species and: [self classSymbol = anotherMethodReference classSymbol and: [self classIsMeta = anotherMethodReference classIsMeta + and: [self methodSymbol = anotherMethodReference methodSymbol + and: [self environment == anotherMethodReference environment]]]]! - and: [self methodSymbol = anotherMethodReference methodSymbol]]]! Item was changed: ----- Method: MethodReference>>asString (in category 'converting') ----- asString + ^(stringVersion ifNil: [ self stringVersionDefault ]) asString! - ^stringVersion ifNil: [ self stringVersionDefault ]! Item was added: + ----- Method: MethodReference>>asStringOrText (in category 'converting') ----- + asStringOrText + + ^stringVersion ifNil: [ self stringVersionDefault ]! Item was changed: ----- Method: MethodReference>>setClass:methodSymbol:stringVersion: (in category 'initialize-release') ----- setClass: aClass methodSymbol: methodSym stringVersion: aString classSymbol := aClass theNonMetaClass name. classIsMeta := aClass isMeta. methodSymbol := methodSym. + environment := aClass environment. stringVersion := aString.! Item was changed: ----- Method: MethodReference>>setStandardClass:methodSymbol: (in category 'initialize-release') ----- setStandardClass: aClass methodSymbol: methodSym classSymbol := aClass theNonMetaClass name. + environment := aClass environment. classIsMeta := aClass isMeta. methodSymbol := methodSym. stringVersion := nil.! Item was changed: ----- Method: MethodReference>>stringVersion (in category 'accessing') ----- stringVersion + ^stringVersion ifNil: [self asStringOrText]! - ^stringVersion! Item was changed: ----- Method: SystemNavigation>>methodHierarchyBrowserForClass:selector: (in category 'browse') ----- methodHierarchyBrowserForClass: aClass selector: selectorSymbol "Create and schedule a message set browser on all implementors of the currently selected message selector. Do nothing if no message is selected." "SystemNavigation default methodHierarchyBrowserForClass: ParagraphEditor selector: #isControlActive" | list aClassNonMeta isMeta tab compiledMethod window | aClass ifNil: [^ self]. aClass isTrait ifTrue: [^ self]. selectorSymbol ifNil: [^ self]. aClassNonMeta := aClass theNonMetaClass. isMeta := aClassNonMeta ~~ aClass. list := OrderedCollection new. tab := ''. aClass allSuperclasses reverseDo: [:cl | (cl includesSelector: selectorSymbol) ifTrue: + [list addLast: (MethodReference new + setClass: cl + methodSymbol: selectorSymbol + stringVersion: tab , cl name, ' ', selectorSymbol)]. - [list addLast: tab , cl name, ' ', selectorSymbol]. tab := tab , ' ']. aClassNonMeta allSubclassesWithLevelDo: [:cl :level | | theClassOrMeta stab | theClassOrMeta := isMeta ifTrue: [cl class] ifFalse: [cl]. (theClassOrMeta includesSelector: selectorSymbol) ifTrue: [stab := ''. 1 to: level do: [:i | stab := stab , ' ']. + list addLast: (MethodReference new + setClass: theClassOrMeta + methodSymbol: selectorSymbol + stringVersion: tab , stab , theClassOrMeta name, ' ', selectorSymbol)]] - list addLast: tab , stab , theClassOrMeta name, ' ', selectorSymbol]] startingLevel: 0. window := self browseMessageList: list name: 'Inheritance of ' , selectorSymbol. window isSystemWindow ifTrue: [ window model deselectAll ; yourself. compiledMethod := aClass compiledMethodAt: selectorSymbol ifAbsent:[nil]. compiledMethod ifNotNil: [ window model selectReference: compiledMethod methodReference ] ]! Item was changed: ----- Method: SystemOrganizer>>classify:under: (in category 'accessing') ----- classify: element under: newCategory | oldCategory class | + self flag: #environments. "do we want notifications for classes in other environments?" oldCategory := self categoryOfElement: element. super classify: element under: newCategory. class := Smalltalk at: element ifAbsent: [^ self]. self == SystemOrganization ifTrue: [ SystemChangeNotifier uniqueInstance class: class recategorizedFrom: oldCategory to: newCategory]!

2 1

Nuking VM ImageSegment support (was Re: [squeak-dev] Daily Commit Log; System-bf.916)
by Eliot Miranda 05 Jul '17

05 Jul '17

Hi Bert, Hi All, On Thu, Sep 15, 2016 at 2:55 PM, <commits(a)source.squeak.org> wrote: [snip] > http://lists.squeakfoundation.org/pipermail/packages/2016- > September/068930.html > > Name: System-bf.916 > Ancestors: System-bf.915 > > Replace VM-level ImageSegment loading with a Smalltalk implementation for > old (interpreter-era) projects. > > Also removes support for writing segments. > > This overrides the Spur support introduced in System-eem.758. > So one question is should we delete VM support for ImageSegment from the Spur VM? There's at least 1.5k of generated source for the Spur ImageSegment load and save support, some 2% of the interpreter/primitives source code. That's a lot, and the code is complex and ugly. If it never really worked before IMO we should nuke it asap. If it worked in some fashion perhaps we can schedule its demise for the 6.0 release's VM. What do others think? _,,,^..^,,,_ best, Eliot

9 17

Graphing weather data
by tim Rowledge 30 Jun '17

30 Jun '17

Now that I have my Pi based weather station[1] in operation and mounted up on the peak of my garage roof ... … I need to do something with the data it provides. Sadly the code reading the sensors is in Python (for now!) but it sends it as MQTT packets to a mac-mini running the broker. I’m working with Craig on an MQTT client (very early state on http://www.squeaksource.com/@gWFeIvLx-rTHKE2R/Gtrt3pje) to read it but then what? Are there any current projects that will work in squeak5.1/spur that can draw nice graphs? What kind of graphs are good for weather data? Should there be chocolate? I guess I ought to store some amount of collected data so maybe it’s time I got to grips with Magma. I’m interested in all ideas that might lead somewhere fun with this. With those ESP8266 wi-fi enabled sorta-arduino things so cheap and easy to set up there must be a gazillion interesting things that could be monitored and analyzed and graphed and indeed actuated in response; let’s not forget that MQTT works both ways. How about a rain sensor sending a message that its raining (duh) which gets collected and turned into a message to your car to close the sunroof before the velvet seat covers (with painted portrait of Elvis, natch) get wet? Or a strain gauge on your security fence alerting you that something heavier than 20 pounds has climbed over so the remote gatling needs hotting up? tim [1] Pi model A+ with gpio attached interface board for rain bucket, wind speed/direction, outdoor temp/humidity, indoor temp, RTC and USB attached Ethernet interface to POE adaptor. WiFi wasn’t practical due to metal roof. Besides, POE means I can hard-reboot by pulling a plug in my server room :-) -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: IIB: Ignore Inquiry and Branch anyway

12 37

Solarized dark theme: text selection colour a little hard to see
by Tony Garnock-Jones 30 Jun '17

30 Jun '17

In my image, I've replaced SolarizedTheme class >> #darkBackgroundHighlights with the following, since with the default I find it very difficult to spot which list item is selected, where the text selection is, etc etc: darkBackgroundHighlights ^ self base02 lighter (The original had just "^ self base02".) Does anyone else suffer similarly with the default? Should something like my change make it into the master image? Tony

7 8

Re: [squeak-dev] missed commit mails
by Jakob Reschke 20 Jun '17

20 Jun '17

Hi, The Daily Commit Log mail has not appeared any more since Oct 20. Is this an intentional change or a regression? Best, Jakob

2 2

Suggestion for 4.6 - Morphic Designer
by Germán Arduino 27 May '17

27 May '17

Hi Guys: Now that 4.5 is near to be released I want to make a suggestion for 4.6. I think that Squeak have a killer weapon a bit forgotten that should be included in the image, it's Morphic Designer [1] from Hasso Platner Institute [2]. I'm loading it fine from several version already [3] but I think that it should be part of the image in 4.6, for example in menu Tools. This would help to lower the barriers of Squeak to newbies (remember that one of the more criticized aspects from all times is the lack of an UI Builder). And Morphic Designer really rocks and should not be forgot, I think that need to be maintained as part of the official image. What think the community? [1] https://www.hpi.uni-potsdam.de/hirschfeld/trac/SqueakCommunityProjects/wiki… [2] https://www.hpi.uni-potsdam.de/hirschfeld/trac/SqueakCommunityProjects [3] http://germanarduino.blogspot.com.ar/2011/04/como-instalar-morphic-designer… -- Saludos / Regards, Germán Arduino www.arduinosoftware.com

8 20

Jump to page: