Squeak-dev August 2015

squeak-dev@lists.squeakfoundation.org

50 participants
218 discussions

Re: [squeak-dev] The Trunk: System-mt.762.mcz
by Nicolas Cellier 27 Aug '15

27 Aug '15

2015-08-27 11:00 GMT+02:00 <commits(a)source.squeak.org>: > Marcel Taeumel uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-mt.762.mcz > > ==================== Summary ==================== > > Name: System-mt.762 > Author: mt > Time: 27 August 2015, 11:00:03.719 am > UUID: cf2a7eb1-d084-c442-a275-582d975bb994 > Ancestors: System-mt.761 > > Restores #togglePreference: for backwards compatibility. > > =============== Diff against System-mt.761 =============== > > Item was added: > + ----- Method: Preferences class>>togglePreference: (in category 'get/set > - flags') ----- > + togglePreference: flagName > + > + self flag: #deprecated. > + ^ self toggle: flagName.! > > > One thing I wonder, though being redundant, doesn't togglePreference: help reducing false polymorphism?

2 2

Re: [squeak-dev] The Trunk: Tests-mt.329.mcz
by Levente Uzonyi 27 Aug '15

27 Aug '15

Unless you have a very good reason to send #initialize to the superclass, you shouldn't do it. Levente On Thu, 27 Aug 2015, commits(a)source.squeak.org wrote: > Marcel Taeumel uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-mt.329.mcz > > ==================== Summary ==================== > > Name: Tests-mt.329 > Author: mt > Time: 27 August 2015, 11:12:04.169 am > UUID: 2665a1ed-6312-1845-8181-d83c588cd161 > Ancestors: Tests-mt.328 > > Fixes initialization problem with test preferences. > > =============== Diff against Tests-mt.328 =============== > > Item was added: > + ----- Method: PreferencesTestPreferences class>>initialize (in category 'class initialization') ----- > + initialize > + > + super initialize. > + self initializeDictionaryOfPreferences.! > > >

2 1

The Trunk: Morphic-mt.1001.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1001.mcz ==================== Summary ==================== Name: Morphic-mt.1001 Author: mt Time: 27 August 2015, 12:00:06.056 pm UUID: 09790a69-7468-e04e-9b57-5410ffe88001 Ancestors: Morphic-mt.1000 Fixes a regression where scroll panes want to grow but the parent morph does not update its layout accordingly. =============== Diff against Morphic-mt.1000 =============== Item was changed: ----- Method: ScrollPane>>extent: (in category 'geometry') ----- extent: aPoint self handleResizeAction: [ (bounds extent closeTo: aPoint) ifTrue: [false] ifFalse: [ super extent: aPoint. + owner ifNotNil: [owner layoutChanged]. - super layoutChanged. true]].!

1 0

The Trunk: Tests-mt.329.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.329.mcz ==================== Summary ==================== Name: Tests-mt.329 Author: mt Time: 27 August 2015, 11:12:04.169 am UUID: 2665a1ed-6312-1845-8181-d83c588cd161 Ancestors: Tests-mt.328 Fixes initialization problem with test preferences. =============== Diff against Tests-mt.328 =============== Item was added: + ----- Method: PreferencesTestPreferences class>>initialize (in category 'class initialization') ----- + initialize + + super initialize. + self initializeDictionaryOfPreferences.!

1 0

The Trunk: System-mt.762.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.762.mcz ==================== Summary ==================== Name: System-mt.762 Author: mt Time: 27 August 2015, 11:00:03.719 am UUID: cf2a7eb1-d084-c442-a275-582d975bb994 Ancestors: System-mt.761 Restores #togglePreference: for backwards compatibility. =============== Diff against System-mt.761 =============== Item was added: + ----- Method: Preferences class>>togglePreference: (in category 'get/set - flags') ----- + togglePreference: flagName + + self flag: #deprecated. + ^ self toggle: flagName.!

1 0

The Trunk: MorphicExtras-mt.166.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.166.mcz ==================== Summary ==================== Name: MorphicExtras-mt.166 Author: mt Time: 27 August 2015, 10:58:40.044 am UUID: 6b748c1a-044e-204b-825d-975865233017 Ancestors: MorphicExtras-ul.165 Some adjustments for cleaned-up preferences interface. =============== Diff against MorphicExtras-ul.165 =============== Item was changed: ----- Method: TheWorldMenu>>formulateFlapsMenu: (in category '*MorphicExtras-windows & flaps menu') ----- formulateFlapsMenu: aMenu "Fill aMenu with appropriate content" aMenu addTitle: 'flaps' translated. aMenu addStayUpItem. Preferences classicNavigatorEnabled ifTrue: [aMenu addUpdating: #navigatorShowingString enablementSelector: #enableProjectNavigator target: Preferences + selector: #toggle: - selector: #togglePreference: argumentList: #(showProjectNavigator). aMenu balloonTextForLastItem: (Preferences preferenceAt: #showProjectNavigator) helpString translated]. Flaps sharedFlapsAllowed ifTrue: [self fillIn: aMenu from: {{#suppressFlapsString. {Project current. #toggleFlapsSuppressed}. 'Whether prevailing flaps should be shown in the project right now or not.'}}. + aMenu addUpdating: #automaticFlapLayoutString target: Preferences selector: #toggle: argumentList: #(automaticFlapLayout). - aMenu addUpdating: #automaticFlapLayoutString target: Preferences selector: #togglePreference: argumentList: #(automaticFlapLayout). aMenu balloonTextForLastItem: (Preferences preferenceAt: #automaticFlapLayout) helpString translated. aMenu addLine. Flaps addIndividualGlobalFlapItemsTo: aMenu]. self fillIn: aMenu from: { nil. {'make a new flap'. {Flaps. #addLocalFlap}. 'Create a new flap. You can later make it into a shared flap is you wish.'}. nil.}. Flaps sharedFlapsAllowed ifTrue: [aMenu addWithLabel: 'put shared flaps on bottom' translated enablementSelector: #showSharedFlaps target: Flaps selector: #sharedFlapsAlongBottom argumentList: #(). aMenu balloonTextForLastItem: 'Group all the standard shared flaps along the bottom edge of the screen' translated. self fillIn: aMenu from: { {'destroy all shared flaps'. {Flaps. #disableGlobalFlaps}. 'Destroy all the shared flaps and disable their use in all projects.'}}] ifFalse: [aMenu add: 'install default shared flaps' translated target: Flaps action: #enableGlobalFlaps. aMenu balloonTextForLastItem: 'Create the default set of shared flaps' translated. aMenu add: 'install etoy flaps' translated target: Flaps action: #enableEToyFlaps. aMenu balloonTextForLastItem: 'Put up the default etoy flaps: a custom Suplies flap and the Navigator flap' translated. aMenu addLine]. self fillIn: aMenu from: { nil. {'about flaps...'. {Flaps . #explainFlaps}. 'Gives a window full of details about how to use flaps.'}}!

1 0

The Trunk: Morphic-mt.1000.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1000.mcz ==================== Summary ==================== Name: Morphic-mt.1000 Author: mt Time: 27 August 2015, 10:57:54.273 am UUID: 168d2e1e-3ae0-6545-8dac-da4b99ad092d Ancestors: Morphic-mt.999 Some adjustments for cleaned-up preferences interface. =============== Diff against Morphic-mt.999 =============== Item was changed: ----- Method: PasteUpMorph>>toggleClassicNavigatorIfAppropriate (in category 'world menu') ----- toggleClassicNavigatorIfAppropriate "If appropriate, toggle the presence of classic navigator" + Preferences classicNavigatorEnabled ifTrue: [^ Preferences toggle: #showProjectNavigator]! - Preferences classicNavigatorEnabled ifTrue: [^ Preferences togglePreference: #showProjectNavigator]! Item was changed: ----- Method: StandardScriptingSystem>>customizeForEToyUsers: (in category 'utilities') ----- customizeForEToyUsers: aBoolean "If aBoolean is true, set things up for etoy users. If it's false, unset some of those things. Some things are set when switching into etoy mode but not reversed when switching out of etoy mode." #( (allowEtoyUserCustomEvents no reverse) (balloonHelpEnabled yes dontReverse) (debugHaloHandle no reverse) (modalColorPickers yes dontReverse) (oliveHandleForScriptedObjects no dontReverse) (uniqueNamesInHalos yes reverse) (useUndo yes dontReverse) (infiniteUndo no dontReverse) (warnIfNoChangesFile no reverse) (warnIfNoSourcesFile no reverse)) do: [:trip | (aBoolean or: [trip third == #reverse]) ifTrue: + [Preferences setFlag: trip first toValue: - [Preferences enableOrDisable: trip first asPer: ((trip second == #yes) & aBoolean) | ((trip second == #no) & aBoolean not)]]! 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' } . {'choose theme...' . { Preferences . #offerThemesMenu} . 'Presents you with a menu of themes; each item''s balloon-help will tell you about the theme. If you choose a theme, many different preferences that come along with that theme 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.'}. {'text highlight color...' . { Preferences . #chooseTextHighlightColor} . 'Choose which color should be used for text highlighting in Morphic.'}. {'insertion point color...' . { Preferences . #chooseInsertionPointColor} . 'Choose which color to use for the text insertion point in Morphic.'}. {'keyboard focus color' . { Preferences . #chooseKeyboardFocusColor} . 'Choose which color to use for highlighting which pane has the keyboard focus'}. 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.'}. - {#menuColorString . { Preferences . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}. - {#roundedCornersString . { Preferences . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}. nil. {'full screen on' . { Project current . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}. {'full screen off' . { Project current . #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>>toggleMenuColorPolicy (in category 'action') ----- + toggleMenuColorPolicy + + Preferences toggle: #menuColorFromWorld.! Item was added: + ----- Method: TheWorldMenu>>toggleRoundedCorners (in category 'action') ----- + toggleRoundedCorners + + Preferences toggle: #roundedWindowCorners.! Item was changed: ----- Method: TheWorldMenu>>toggleWindowPolicy (in category 'action') ----- toggleWindowPolicy + Preferences toggle: #reverseWindowStagger.! - Preferences toggleWindowPolicy!

1 0

The Trunk: Network-mt.162.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.162.mcz ==================== Summary ==================== Name: Network-mt.162 Author: mt Time: 27 August 2015, 10:57:00.294 am UUID: 47e946cb-d8d5-014c-a43f-bae21eda3237 Ancestors: Network-cmm.161 Some adjustments for cleaned-up preferences interface. =============== Diff against Network-cmm.161 =============== Item was changed: ----- Method: ServerDirectory class>>releaseExternalSettings (in category 'server prefs') ----- releaseExternalSettings "Release for server configurations" "ServerDirectory releaseExternalSettings" + (Preferences valueOfFlag: #externalServerDefsOnly) - Preferences externalServerDefsOnly ifTrue: [ self resetLocalProjectDirectories. Servers := Dictionary new]!

1 0

The Trunk: PreferenceBrowser-mt.54.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.54.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.54 Author: mt Time: 27 August 2015, 10:56:18.032 am UUID: 10b11ae8-a6bd-a445-a977-b30028b9e507 Ancestors: PreferenceBrowser-mt.53 Some adjustments for cleaned-up preferences interface. =============== Diff against PreferenceBrowser-mt.53 =============== Item was changed: ----- Method: PreferenceBrowser>>allPreferences (in category 'accessing') ----- allPreferences + ^ preferences allPreferences asSortedCollection: - ^ preferences allPreferenceObjects asSortedCollection: [:pref1 :pref2 | pref1 viewRegistry viewOrder <pref2 viewRegistry viewOrder or: [pref1 viewRegistry viewOrder =pref2 viewRegistry viewOrder &(pref1 name <pref2 name)]]! Item was changed: ----- Method: PreferenceBrowser>>categoryList (in category 'accessing') ----- categoryList ^OrderedCollection new add: self allCategoryLabel; + addAll: preferences categoryList asSortedCollection; - addAll: preferences categoryNames asSortedCollection; add: self searchResultsCategoryLabel; yourself. ! Item was changed: ----- Method: PreferenceBrowser>>findCategoryFromPreference: (in category 'find') ----- findCategoryFromPreference: prefSymbol "Find all categories in which the preference occurs" | aMenu| aMenu := MenuMorph new defaultTarget: self. + (preferences categoryListOfPreference: prefSymbol) do: - (preferences categoriesContainingPreference: prefSymbol) do: [:aCategory | aMenu add: aCategory target: self selector: #selectedCategory: argument: aCategory]. aMenu popUpInWorld! Item was changed: ----- Method: PreferenceBrowser>>preferencesInCategory: (in category 'accessing') ----- preferencesInCategory: aCategory + ^(preferences preferencesInCategory: aCategory) asSortedCollection: - ^(preferences preferenceObjectsInCategory: aCategory) asSortedCollection: [:pref1 :pref2 | pref1 viewRegistry viewOrder <pref2 viewRegistry viewOrder or: [pref1 viewRegistry viewOrder =pref2 viewRegistry viewOrder &(pref1 name <pref2 name)]]!

1 0

The Trunk: ST80-mt.185.mcz
by commits＠source.squeak.org 27 Aug '15

27 Aug '15

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.185.mcz ==================== Summary ==================== Name: ST80-mt.185 Author: mt Time: 27 August 2015, 10:55:27.275 am UUID: 6b3d698d-14db-bb47-bf6c-49300227562c Ancestors: ST80-mt.184 Some adjustments for cleaned-up preferences interface. =============== Diff against ST80-mt.184 =============== Item was changed: ----- Method: ScreenController>>changeWindowPolicy (in category 'menu messages') ----- changeWindowPolicy + + Preferences toggle: #reverseWindowStagger.! - Preferences toggleWindowPolicy!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
22
Older →

Jump to page: