Squeak-dev May 2022

squeak-dev@lists.squeakfoundation.org

37 participants
316 discussions

Feature request: add the configuration wizard to the "appearance..." menu?
by Tim Johnson 03 May '22

03 May '22

Hi, The configuration wizard is really neat. Sometimes I want to get to it after skipping it. I look for it in the world menus, but I don't find it. How about we add it to the 'appearance...' menu? Thanks, Tim

4 4

The Trunk: Morphic-mt.1980.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1980.mcz ==================== Summary ==================== Name: Morphic-mt.1980 Author: mt Time: 3 May 2022, 2:55:24.290463 pm UUID: 500c948e-1451-b243-b41c-68e698124fe2 Ancestors: Morphic-mt.1979 Adds entry for preference wizard to appearance menu. Keep plural wording to integrate with the existing "preferences..." item. NOTE THAT we might want to deprecate the entire "appearance" menu at some point for the sake of an "appearance" category in the preference browser. For now, it is still valuable to point users familiar with that menu to the wizard. =============== Diff against Morphic-mt.1979 =============== Item was changed: ----- Method: TheWorldMenu>>appearanceMenu (in category 'construction') ----- appearanceMenu "Build the appearance menu for the world." ^self fillIn: (self menu: 'appearance...') from: { {'preferences...' . { self . #openPreferencesBrowser} . 'Opens a "Preferences Browser" which allows you to alter many settings' } . + {'preferences wizard...' . { self . #openPreferencesWizard} . 'Opens a "Preferences Wizard" which allows you to alter many settings in a guided fashion' } . {'choose set of preferences...' . { Preferences . #offerThemesMenu} . 'Presents you with a menu of sets or preferences; each item''s balloon-help will tell you about the particular set. If you choose one, many different preferences that come along are set at the same time; you can subsequently change any settings by using a Preferences Panel'} . nil . {'system fonts...' . { self . #standardFontDo} . 'Choose the standard fonts to use for code, lists, menus, window titles, etc.'}. nil. {#menuColorString . { self . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}. {#roundedCornersString . { self . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}. nil. {'full screen on' . { DisplayScreen . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}. {'full screen off' . { DisplayScreen . #fullScreenOff} . 'if in full-screen mode, takes you out of it.'}. nil. {'set display depth...' . {self. #setDisplayDepth} . 'choose how many bits per pixel.'}. {'set desktop color...' . {self. #changeBackgroundColor} . 'choose a uniform color to use as desktop background.'}. {'set gradient color...' . {self. #setGradientColor} . 'choose second color to use as gradient for desktop background.'}. {'use texture background' . { #myWorld . #setStandardTexture} . 'apply a graph-paper-like texture background to the desktop.'}. nil. {'clear turtle trails from desktop' . { #myWorld . #clearTurtleTrails} . 'remove any pigment laid down on the desktop by objects moving with their pens down.'}. {'pen-trail arrowhead size...' . { Preferences. #setArrowheads} . 'choose the shape to be used in arrowheads on pen trails.'}. }! Item was added: + ----- Method: TheWorldMenu>>openPreferencesWizard (in category 'commands') ----- + openPreferencesWizard + + ^ (self environment classNamed: #PreferenceWizardMorph) ifNotNil: [:pw | pw open]!

1 0

The Trunk: System-mt.1347.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1347.mcz ==================== Summary ==================== Name: System-mt.1347 Author: mt Time: 3 May 2022, 2:22:44.513631 pm UUID: e2314127-f521-bc4d-ba8f-b3659bbbd117 Ancestors: System-lrnp.1346 Adds Xing Wang (xw) to the list of known contributors. =============== Diff against System-lrnp.1346 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "Adds Xin Wang"'! - (PackageInfo named: 'System') postscript: 'Locale resetKnownLocales. - Locale current: nil. - Locale currentPlatform: nil.'!

2 1

The Trunk: Morphic-mt.1979.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1979.mcz ==================== Summary ==================== Name: Morphic-mt.1979 Author: mt Time: 3 May 2022, 2:12:25.545631 pm UUID: 20f2c631-d561-b548-98c0-80f2538b6898 Ancestors: Morphic-ct.1978 Complements ST80-mt.284 =============== Diff against Morphic-ct.1978 =============== Item was changed: ----- Method: SystemProgressMorph>>setLabel:at: (in category 'labelling') ----- setLabel: shortDescription at: slot + (self labels at: slot) contents: (shortDescription ifNotNil: [ + self flag: #todo. "mt: Allow multi-line descriptions... Then see DialogWindow >> #message:." + shortDescription truncateWithElipsisTo: 100]). - (self labels at: slot) contents: shortDescription. self reposition!

1 0

The Trunk: ToolBuilder-MVC-mt.68.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.68.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.68 Author: mt Time: 3 May 2022, 2:09:56.469631 pm UUID: e1e23b54-aa93-0b4b-a68f-f56cbd693a75 Ancestors: ToolBuilder-MVC-mt.67 Complements ST80-mt.284 =============== Diff against ToolBuilder-MVC-mt.67 =============== Item was changed: ----- Method: MVCUIManager>>informUser:during: (in category 'ui requests') ----- + informUser: aStringOrText during: aBlock - informUser: aString during: aBlock "Display a message above (or below if insufficient room) the cursor during execution of the given block. + Project uiManager informUser: 'Just a sec!!' during: [1 second wait]. - UIManager default informUser: 'Just a sec!!' during: [(Delay forSeconds: 1) wait]. " (SelectionMenu labels: '') displayAt: Sensor cursorPoint + withCaption: (aStringOrText ifNotNil: [ + "This is a compromise. See commentary in DialogWindow >> #message:." + aStringOrText withNoLineLongerThan: (aStringOrText size > 900 ifTrue: [65] ifFalse: [45])]) - withCaption: aString during: aBlock!

1 0

The Trunk: ST80-mt.284.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.284.mcz ==================== Summary ==================== Name: ST80-mt.284 Author: mt Time: 3 May 2022, 2:07:21.937631 pm UUID: cd29b35c-0a0b-444e-a3bd-b9e9310a8983 Ancestors: ST80-ct.283 Merges mvcLineLengthDialogs.1.cs https://lists.squeakfoundation.org/pipermail/squeak-dev/2022-April/219789.h… Adds a line-length limit to MVC dialogs. Complements Morphic-mt.1935. Due to the recent elimination of #withCRs in many places, this change has been overdue for an even longer time. Example (to be run in an MVC project): self inform: Object comment =============== Diff against ST80-ct.283 =============== Item was changed: ----- Method: PopUpMenu>>mvcStartUpWithCaption:icon:at:allowKeyboard: (in category '*ST80-Menus') ----- mvcStartUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean "Display the menu, with caption if supplied. Wait for the mouse button to go down, then track the selection as long as the button is pressed. When the button is released, Answer the index of the current selection, or zero if the mouse is not released over any menu item. Location specifies the desired topLeft of the menu body rectangle. The final argument indicates whether the menu should seize the keyboard focus in order to allow the user to navigate it via the keyboard." frame ifNil: [self computeForm]. Cursor normal showWhile: [self displayAt: location + withCaption: (captionOrNil ifNotNil: [ + "This is a compromise. See commentary in DialogWindow >> #message:." + captionOrNil withNoLineLongerThan: (captionOrNil size > 900 ifTrue: [65] ifFalse: [45])]) - withCaption: captionOrNil during: [self controlActivity]]. ^ selection!

1 0

The Trunk: Tools-xw.1147.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-xw.1147.mcz ==================== Summary ==================== Name: Tools-xw.1147 Author: xw Time: 3 May 2022, 4:52:28.265125 pm UUID: 2c748e92-f991-c745-96d5-c5f8b1d2ec71 Ancestors: Tools-tpr.1146 Set text converter while writing files in FileList, to be consistent with reading =============== Diff against Tools-tpr.1146 =============== Item was changed: ----- Method: FileList>>put: (in category 'private') ----- put: aText "Private - put the supplied text onto the file" | ff newName contentTypeLabel | brevityState == #fullFile ifTrue: [ff := directory newFileNamed: self fullName. + self setDefaultEncoderFor: ff. Cursor write showWhile: [ff nextPutAll: aText asString; close]. (directory = ff directory and: [fileName = ff localName]) ifTrue: [contents := aText asString] ifFalse: "user changed the directory and/or renamed the file" [self clearUserEditFlag. directory ~= ff directory ifTrue: [self directory: ff directory. self changed: #rootDirectoryList; changed: #selectedPath]. self updateFileList. contents := aText asString. newName := ff localName. listIndex := list findFirst: [:item | (self fileNameFromFormattedItem: item) = newName]. listIndex > 0 ifTrue: [fileName := newName]. brevityState := #needToGetBrief. self changed: #fileListIndex]. self changed: #relabel. ^ true "accepted"]. listIndex = 0 ifTrue: [self inform: 'No fileName is selected' translated. ^ false "failed"]. contentTypeLabel := 'These contents' translated. brevityState = #briefFile ifTrue: [contentTypeLabel := 'Abbreviated contents' translated]. brevityState = #briefHex ifTrue: [contentTypeLabel := 'Abbreviated contents' translated]. brevityState = #fullHex ifTrue: [contentTypeLabel := 'Hexadecimal contents' translated]. brevityState = #FileList ifTrue: [contentTypeLabel := 'Directory contents' translated]. self inform: ('{1} cannot meaningfully be saved at present.' translated format: {'Abbreviated contents' translated}). ^ false "failed" !

1 0

The Trunk: Multilingual-xw.282.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-xw.282.mcz ==================== Summary ==================== Name: Multilingual-xw.282 Author: xw Time: 3 May 2022, 10:28:57.967288 am UUID: 5c6aba2e-8417-1046-b3f9-d4ccfc9ac7b8 Ancestors: Multilingual-mt.281 Various fixes for Chinese Environment under Windows platform Fixes: https://github.com/squeak-smalltalk/squeak-object-memory/issues/9 https://github.com/squeak-smalltalk/squeak-object-memory/issues/10 https://github.com/squeak-smalltalk/squeak-object-memory/issues/11 =============== Diff against Multilingual-mt.281 =============== Item was changed: ----- Method: SimplifiedChineseEnvironment class>>clipboardInterpreterClass (in category 'accessing') ----- clipboardInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: + [^UTF8ClipboardInterpreter]. - [^WinGB2312ClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") ifTrue: [NoConversionClipboardInterpreter] ifFalse: [WinGB2312ClipboardInterpreter]]. platformName = 'unix' ifTrue: [^(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter! Item was added: + ----- Method: SimplifiedChineseEnvironment class>>fileNameConverterClass (in category 'accessing') ----- + fileNameConverterClass + | platformName | + platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^UTF8TextConverter]. + ^ self systemConverterClass! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>inputInterpreterClass (in category 'accessing') ----- inputInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: + [^UTF32CNInputInterpreter]. - [^WinGB2312InputInterpreter]. platformName = 'Mac OS' ifTrue: [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") ifTrue: [MacUnicodeInputInterpreter] ifFalse: [WinGB2312InputInterpreter]]. ^MacRomanInputInterpreter!

1 0

The Trunk: Multilingual-xw.283.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-xw.283.mcz ==================== Summary ==================== Name: Multilingual-xw.283 Author: xw Time: 3 May 2022, 4:05:10.27391 pm UUID: 6e259051-8b8f-404e-bac7-33faa625e3b4 Ancestors: Multilingual-xw.282 Add MultiByteFileStream>>readOnlyCopy to respect converter configuration while copying Fix https://github.com/squeak-smalltalk/squeak-object-memory/issues/16 =============== Diff against Multilingual-mt.281 =============== Item was added: + ----- Method: MultiByteFileStream>>readOnlyCopy (in category 'read, write, position') ----- + readOnlyCopy + |copy| + copy := super readOnlyCopy. + converter ifNotNil: [copy converter: converter]. + ^ copy.! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>clipboardInterpreterClass (in category 'accessing') ----- clipboardInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: + [^UTF8ClipboardInterpreter]. - [^WinGB2312ClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") ifTrue: [NoConversionClipboardInterpreter] ifFalse: [WinGB2312ClipboardInterpreter]]. platformName = 'unix' ifTrue: [^(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter! Item was added: + ----- Method: SimplifiedChineseEnvironment class>>fileNameConverterClass (in category 'accessing') ----- + fileNameConverterClass + | platformName | + platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^UTF8TextConverter]. + ^ self systemConverterClass! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>inputInterpreterClass (in category 'accessing') ----- inputInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: + [^UTF32CNInputInterpreter]. - [^WinGB2312InputInterpreter]. platformName = 'Mac OS' ifTrue: [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") ifTrue: [MacUnicodeInputInterpreter] ifFalse: [WinGB2312InputInterpreter]]. ^MacRomanInputInterpreter!

1 0

The Trunk: EToys-xw.474.mcz
by commits＠source.squeak.org 03 May '22

03 May '22

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-xw.474.mcz ==================== Summary ==================== Name: EToys-xw.474 Author: xw Time: 3 May 2022, 7:14:31.674634 pm UUID: f9ef665e-8719-7f4e-8626-93810b826696 Ancestors: EToys-mt.473 Fix return value of SugarNavigatorBar>>inARow:, complements Morphic-ct.1905 =============== Diff against EToys-mt.473 =============== Item was changed: ----- Method: SugarNavigatorBar>>inARow: (in category 'initialization') ----- inARow: aCollectionOfMorphs "Answer a row morph with the given collection as its submorphs. Interpret the symbol #spacer in the incoming list as a request for a variable transparent spacer." + ^ (Morph inARow: aCollectionOfMorphs) setProperty: #wantsHaloFromClick toValue: false; yourself. - ^ (Morph inARow: aCollectionOfMorphs) setProperty: #wantsHaloFromClick toValue: false. !

1 0

Jump to page: