Packages February 2022

packages@lists.squeakfoundation.org

1 participants
200 discussions

The Trunk: Morphic-mt.1894.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1894.mcz ==================== Summary ==================== Name: Morphic-mt.1894 Author: mt Time: 14 February 2022, 9:47:21.389624 am UUID: dc8511c4-0214-2140-b00b-aa212c7c46c6 Ancestors: Morphic-ct.1893 Revises indication of a morph's keyboard focus via #keyboardFocusWidth, which now excludes the border width while that indication still covers the border (width). Thus, we reduce #keyboardFocusWidth in all UI themes depending on the #borderWidth of their scrollables. Community ... -1 Monokai ... +/- 0 Solarized (light/dark) ... +/- 0 Squeak (incl. duller) ... -1 Trim ... -1 This makes it easier to calculate extra typographiy-related margins such as #textMargins. =============== Diff against Morphic-ct.1893 =============== Item was changed: ----- Method: Morph>>drawKeyboardFocusIndicationOn: (in category 'drawing') ----- drawKeyboardFocusIndicationOn: aCanvas self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: self keyboardFocusWidth + self borderWidth color: self keyboardFocusColor] + ifFalse: [aCanvas frameRectangle: self bounds width: self keyboardFocusWidth + self borderWidth color: self keyboardFocusColor].! - ifTrue: [aCanvas frameRoundRect: self innerBounds radius: self cornerRadius width: self keyboardFocusWidth color: self keyboardFocusColor] - ifFalse: [aCanvas frameRectangle: self innerBounds width: self keyboardFocusWidth color: self keyboardFocusColor].! Item was changed: ----- Method: Morph>>keyboardFocusWidth (in category 'drawing') ----- keyboardFocusWidth + ^ ((self userInterfaceTheme keyboardFocusWidth ifNil: [2]) * RealEstateAgent scaleFactor) truncated! - ^ ((self userInterfaceTheme keyboardFocusWidth ifNil: [3]) * RealEstateAgent scaleFactor) truncated!

1 0

The Trunk: MonticelloConfigurations-mt.174.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.174.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.174 Author: mt Time: 14 February 2022, 8:54:33.73964 am UUID: d94f461c-3a24-514e-b609-30869bf72477 Ancestors: MonticelloConfigurations-mt.173 MC updates should go to the Transcript (not file) by default unless specified by the user. =============== Diff against MonticelloConfigurations-mt.173 =============== Item was changed: ----- Method: MCConfiguration class>>logToFile (in category 'preferences') ----- logToFile - "Whether to log configuration info to files by default. - If true, logs to a file named after the configuration (config.nn.log). - If false, logs to the transcript." <preference: 'Log config info to disk' category: 'Monticello' description: 'If true, configuration information (such as change logs) are logged to disk instead of the Transcript. The log file is named after the configuration map (config.nn.log)' type: #Boolean> + + ^ LogToFile ifNil: [false]! - ^LogToFile ifNil:[true].!

1 0

The Trunk: Tools-ct.1131.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1131.mcz ==================== Summary ==================== Name: Tools-ct.1131 Author: ct Time: 14 February 2022, 1:04:17.418569 am UUID: f77fcf45-168a-424d-b40a-23f27b3f0407 Ancestors: Tools-mt.1129 Makes syntax highlighting in ObjectExplorer environment-aware. =============== Diff against Tools-mt.1129 =============== Item was changed: ----- Method: ObjectExplorer>>aboutToStyle: (in category 'styling') ----- aboutToStyle: aStyler aStyler classOrMetaClass: self object class; + environment: self environment; parseAMethod: false. + ^true! - ^true - !

1 0

The Trunk: WebClient-Tests-ct.62.mcz
by commits＠source.squeak.org 13 Feb '22

13 Feb '22

Christoph Thiede uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-ct.62.mcz ==================== Summary ==================== Name: WebClient-Tests-ct.62 Author: ct Time: 13 February 2022, 9:49:43.05107 pm UUID: ac008987-1ef2-ba4a-bedf-4882dd8e9672 Ancestors: WebClient-Tests-ul.61 Complements WebClient-Core-ct.129 (WebUtils jsonFromString:). =============== Diff against WebClient-Tests-ul.61 =============== Item was changed: ----- Method: WebClientServerTest>>decode: (in category 'tests - json') ----- decode: aString "Decodes the given string" + ^WebUtils jsonFromString: aString! - ^WebUtils jsonDecode: aString readStream!

1 0

The Trunk: WebClient-Core-ct.129.mcz
by commits＠source.squeak.org 13 Feb '22

13 Feb '22

Christoph Thiede uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-ct.129.mcz ==================== Summary ==================== Name: WebClient-Core-ct.129 Author: ct Time: 13 February 2022, 9:48:57.85007 pm UUID: 4f2566be-2258-c549-909a-c3648fc71781 Ancestors: WebClient-Core-ul.128 Adds convenience method for JSON parsing. WebUtils jsonFromString: '{"plonk": 6, "griffle": 7}' =============== Diff against WebClient-Core-ul.128 =============== Item was added: + ----- Method: WebUtils class>>jsonFromString: (in category 'json-decode') ----- + jsonFromString: aString + + ^ self jsonDecode: aString readStream!

1 0

The Trunk: ST80-ct.277.mcz
by commits＠source.squeak.org 12 Feb '22

12 Feb '22

Christoph Thiede uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-ct.277.mcz ==================== Summary ==================== Name: ST80-ct.277 Author: ct Time: 12 February 2022, 4:35:24.626701 pm UUID: deaa99ff-7f5c-9b49-89c6-04515f054832 Ancestors: ST80-mt.276 Adds missing support for evaluation hooks that are already present in Morphic. Complements Morphic-ct.1893. This includes: - #environment - #evaluateExpression:[requestor:] - #expressionEvaluated:result: =============== Diff against ST80-mt.276 =============== Item was changed: ----- Method: ParagraphEditor>>evaluateSelectionAndDo: (in category 'do-its') ----- evaluateSelectionAndDo: aBlock "Treat the current selection as an expression; evaluate it and invoke aBlock with the result." | result rcvr ctxt | self lineSelectAndEmptyCheck: [^ nil]. + (model respondsTo: #evaluateExpression:requestor:) ifTrue: [ + ^ aBlock value: (model perform: #evaluateExpression:requestor: with: self selection with: self)]. + (model respondsTo: #evaluateExpression:) ifTrue: [ + ^ aBlock value: (model perform: #evaluateExpression: with: self selection)]. + (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ rcvr class evaluatorClass new evaluate: self selectionAsStream in: ctxt to: rcvr + environment: (model environment ifNil: [Smalltalk globals]) notifying: self + ifFail: [self flash. ^ nil] - ifFail: [self flash. ^nil] logged: true. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. + + (model respondsTo: #expressionEvaluated:result:) ifTrue: [ + model perform: #expressionEvaluated:result: with: self selection with: result]. + ^aBlock value: result!

1 0

The Trunk: Morphic-ct.1893.mcz
by commits＠source.squeak.org 12 Feb '22

12 Feb '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1893.mcz ==================== Summary ==================== Name: Morphic-ct.1893 Author: ct Time: 12 February 2022, 4:33:08.438701 pm UUID: 7db558ba-ba08-1748-9019-1151f7528b79 Ancestors: Morphic-mt.1892 Adds optional model hook #evaluateExpression:requestor: to TextEditor, allowing models to pass the original requestor to the compiler. =============== Diff against Morphic-mt.1892 =============== Item was changed: ----- Method: TextEditor>>evaluateSelectionAndDo: (in category 'do-its') ----- evaluateSelectionAndDo: aBlock "Treat the current selection as an expression; evaluate it and invoke aBlock with the result." | result rcvr ctxt | self lineSelectAndEmptyCheck: [^ nil]. + + (model respondsTo: #evaluateExpression:requestor:) ifTrue: [ + ^ aBlock value: (model perform: #evaluateExpression:requestor: with: self selection with: self)]. - (model respondsTo: #evaluateExpression:) ifTrue: [ ^ aBlock value: (model perform: #evaluateExpression: with: self selection)]. + - (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ rcvr class evaluatorClass new evaluate: self selectionAsStream in: ctxt to: rcvr environment: (model environment ifNil: [Smalltalk globals]) notifying: self + ifFail: [self flash. ^ nil] - ifFail: [morph flash. ^ nil] logged: true. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. (model respondsTo: #expressionEvaluated:result:) ifTrue: [ model perform: #expressionEvaluated:result: with: self selection with: result]. ^aBlock value: result!

1 0

The Trunk: PreferenceBrowser-mt.134.mcz
by commits＠source.squeak.org 11 Feb '22

11 Feb '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.134.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.134 Author: mt Time: 11 February 2022, 12:16:45.693856 pm UUID: 10283c2f-a1d9-6145-9b41-9ac498ee2389 Ancestors: PreferenceBrowser-mt.133 Complements Morphic-mt.1892 =============== Diff against PreferenceBrowser-mt.133 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initializePage02Visuals (in category 'initialization - pages') ----- initializePage02Visuals | currentPage pane | currentPage := pages add: self createPage. pane := self createScrollPane. currentPage addMorphBack: (self createLabel: 'Choose visual settings' color: Color white). currentPage addMorphBack: pane. pane scroller firstSubmorph addAllMorphsBack: { self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window). self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated. self createVerticalSpace. self createCheckbox: 'Rounded windows' translated for: #RoundedWindowLook help: #(round window). self createCheckbox: 'Rounded buttons' translated for: #RoundedButtonLook help: #(round button). self createVerticalSpace. + self createCheckbox: 'Compact list widgets' translated for: #UseCompactLists help: #(compact list). + self createCheckbox: 'Compact text widgets' translated for: #UseCompactTextFields help: #(compact text). + self createCheckbox: 'Compact button widgets' translated for: #UseCompactButtons help: #(compact text). + self createVerticalSpace. self createCheckbox: 'Soft shadows' translated for: #SoftShadows help: #(soft shadow). self createCheckbox: 'Hard shadows' translated for: #HardShadows help: 'Whether to use a hard shadow for windows, menus, and dialogs.' translated. self createVerticalSpace. self createCheckbox: 'Fast drag and resize' translated for: #FastDrag help: #(fast drag). self createCheckbox: 'Blinking text cursor' translated for: #BlinkingCursor help: #(blinking cursor). self createCheckbox: 'Show keyboard focus' translated for: #ShowKeyboardFocus help: #(keyboard indicate). self createCheckbox: 'Simple edit indication' translated for: #SimpleFrameAdornments help: #(adornment simple). - self createCheckbox: 'Compact list widgets' translated for: #UseCompactLists help: #(compact list). }.! Item was added: + ----- Method: PreferenceWizardMorph>>resetWorld (in category 'updating') ----- + resetWorld + + previewWorld delete. + previewWorld := nil. + self initializePreviewWorld. + self addMorph: previewWorld. + self updateWindowBounds.! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseCompactButtons (in category 'actions - buttons') ----- + stateUseCompactButtons + + ^ MorphicProject useCompactButtons! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseCompactTextFields (in category 'actions - buttons') ----- + stateUseCompactTextFields + + ^ MorphicProject useCompactTextFields! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseCompactButtons (in category 'actions - buttons') ----- + toggleUseCompactButtons + + MorphicProject useCompactButtons: MorphicProject useCompactButtons not. + self changed: #stateUseCompactButtons. + self resetWorld.! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseCompactTextFields (in category 'actions - buttons') ----- + toggleUseCompactTextFields + + MorphicProject useCompactTextFields: MorphicProject useCompactTextFields not. + self changed: #stateUseCompactTextFields. + self resetWorld.!

1 0

The Trunk: ToolBuilder-Morphic-mt.304.mcz
by commits＠source.squeak.org 11 Feb '22

11 Feb '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.304.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.304 Author: mt Time: 11 February 2022, 12:16:15.090856 pm UUID: 67d388cd-be51-d146-a2b5-7c880fd2092a Ancestors: ToolBuilder-Morphic-mt.303 Complements Morphic-mt.1892 =============== Diff against ToolBuilder-Morphic-mt.303 =============== Item was changed: ToolBuilder subclass: #MorphicToolBuilder instanceVariableNames: 'widgets panes parentMenu' + classVariableNames: 'ButtonBorderWidth ButtonMargins ListBorderWidth ListMargins TextBorderWidth TextMargins' - classVariableNames: 'ButtonBorderWidth ListBorderWidth TextBorderWidth' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !MorphicToolBuilder commentStamp: 'ar 2/11/2005 15:02' prior: 0! The Morphic tool builder.! Item was changed: ----- Method: MorphicToolBuilder class>>applyUserInterfaceTheme (in category 'preferences') ----- applyUserInterfaceTheme TextBorderWidth := nil. ListBorderWidth := nil. + ButtonBorderWidth := nil. + + TextMargins := nil. + ListMargins := nil. + ButtonMargins := nil.! - ButtonBorderWidth := nil.! Item was changed: ----- Method: MorphicToolBuilder class>>themeProperties (in category 'preferences') ----- themeProperties "Let theme switches clear my cache. See #applyUserInterfaceTheme." ^ { { #textBorderWidth. 'tool construction'. ''}. { #listBorderWidth. 'tool construction'. ''}. { #buttonBorderWidth. 'tool construction'. ''}. + { #textMargins. 'tool construction'. ''}. + { #listMargins. 'tool construction'. ''}. + { #buttonMargins. 'tool construction'. ''}. }! Item was changed: ----- Method: MorphicToolBuilder>>buttonRowHeight (in category 'layout hints') ----- buttonRowHeight + | multiplier | + ButtonMargins ifNil: [ + ButtonMargins := (PluggableButtonMorph labelMargins + ifNil: [0] ifNotNil: [:margins | + margins isRectangle + ifTrue: [margins top + margins bottom] + ifFalse: [margins isPoint + ifTrue: [margins y + margins y] + ifFalse: [margins + margins]]]) ]. + + multiplier := MorphicProject useCompactButtons + ifTrue: [1.0] ifFalse: [1.6]. - | defaultMargins | - defaultMargins := PluggableButtonMorph labelMargins. - defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | - margins isRectangle - ifTrue: [margins top + margins bottom] - ifFalse: [margins isPoint - ifTrue: [margins y + margins y] - ifFalse: [margins + margins]]]. ButtonBorderWidth ifNil: [ButtonBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. + ^ (Preferences standardButtonFont lineGrid asFloat * multiplier) truncated "already includes the system's current #scaleFactor" + + ButtonMargins "already includes the system's current #scaleFactor" - ^ (Preferences standardButtonFont lineGrid asFloat * 1.6) truncated "already includes the system's current #scaleFactor" - + defaultMargins "already includes the system's current #scaleFactor" + ButtonBorderWidth! Item was changed: ----- Method: MorphicToolBuilder>>listHeightFor: (in category 'layout hints') ----- listHeightFor: numLines + ListMargins ifNil: [ + ListMargins := PluggableListMorph listMargins + ifNil: [0] ifNotNil: [:margins | + margins isRectangle + ifTrue: [margins top + margins bottom] + ifFalse: [margins isPoint + ifTrue: [margins y + margins y] + ifFalse: [margins + margins]]] ]. - | defaultMargins | - defaultMargins := PluggableListMorph listMargins. - defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | - margins isRectangle - ifTrue: [margins top + margins bottom] - ifFalse: [margins isPoint - ifTrue: [margins y + margins y] - ifFalse: [margins + margins]]]. ListBorderWidth ifNil: [ListBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. ^ (Preferences standardListFont lineGridForMorphs * numLines) "already includes the system's current #scaleFactor" + + ListMargins "already includes the system's current #scaleFactor" - + defaultMargins "already includes the system's current #scaleFactor" + ListBorderWidth! Item was changed: ----- Method: MorphicToolBuilder>>textFieldHeightFor:font: (in category 'layout hints') ----- textFieldHeightFor: numLines font: font + TextMargins ifNil: [ + TextMargins := PluggableTextMorph textMargins + ifNil: [0] ifNotNil: [:margins | + margins isRectangle + ifTrue: [margins top + margins bottom] + ifFalse: [margins isPoint + ifTrue: [margins y + margins y] + ifFalse: [margins + margins]]] ]. - | defaultMargins | - defaultMargins := PluggableTextMorph textMargins. - defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | - margins isRectangle - ifTrue: [margins top + margins bottom] - ifFalse: [margins isPoint - ifTrue: [margins y + margins y] - ifFalse: [margins + margins]]]. TextBorderWidth ifNil: [TextBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. ^ (font lineGrid * numLines) "already includes the system's current #scaleFactor" + + TextMargins "already includes the system's current #scaleFactor" - + defaultMargins "already includes the system's current #scaleFactor" + TextBorderWidth!

1 0

The Trunk: System-mt.1310.mcz
by commits＠source.squeak.org 11 Feb '22

11 Feb '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1310.mcz ==================== Summary ==================== Name: System-mt.1310 Author: mt Time: 11 February 2022, 12:12:41.086856 pm UUID: 42973121-6af3-a647-89eb-190eb8d1eac8 Ancestors: System-mt.1309 Complements Morphic-mt.1892 =============== Diff against System-mt.1309 =============== Item was changed: ----- Method: SqueakTheme class>>create (in category 'instance creation') ----- create "This is the default theme for Squeak. self create apply. " ^ (self named: 'Squeak') in: [:theme | "General morph stuff." theme set: #keyboardFocusColor for: #Morph to: (TranslucentColor r: 0.3 g: 0.5 b: 0.5 alpha: 0.5); + set: #keyboardFocusWidth for: #Morph to: 2; - set: #keyboardFocusWidth for: #Morph to: 3; set: #softShadowColor for: #Morph to: (Color black alpha: 0.01); set: #softShadowOffset for: #Morph to: (10@8 corner: 10@12); set: #hardShadowColor for: #Morph to: (Color black alpha: 0.5); set: #hardShadowOffset for: #Morph to: 1@1. theme set: #background for: #MorphicProject to: self linenblue. self addFonts: theme; addWindowColors: theme; addSyntaxHighlighting: theme; addMenusAndDockingBars: theme; addDialogs: theme; addButtons: theme; addScrollables: theme; addToolColors: theme; addMVC: theme. theme]!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2022