Squeak-dev June 2022

squeak-dev@lists.squeakfoundation.org

30 participants
310 discussions

The Trunk: Morphic-mt.2012.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2012.mcz ==================== Summary ==================== Name: Morphic-mt.2012 Author: mt Time: 22 June 2022, 3:10:41.886264 pm UUID: 151eca82-7108-b244-b81d-e5604db8ebf9 Ancestors: Morphic-ct.2011, Morphic-ct.2010, Morphic-ct.1994 Merges (and revises) Morphic-ct.2010, Morphic-ct.1994 and cherri-picks from Morphic-kfr-2001...1997 (wrong ancestry). Morphic-ct.2011: Corrects documentation for Morph >> #startDrag:. Please review briefly. Morphic-ct.2010: Proposal to fix z-order of docking bar menus when etoys mode is activated. Morphic-ct.1994: Minor UI improvement to FontImporter: Use menu style for the previewText button and make the buttons in the preview slightly larger to avoid overlapping texts. Morphic-kfr-2001...1997 - Open a HelpBrowser with TextLink. - Modal color picker balloon help must pop up above the tiny morphs, not on top of them - Offset of temporary cursor was off - When ColorPicker is triggered from halo, remove the halo. Otherwise it will sometimes obscure the ColorPicker. - Get rid of balloon help [in color picker] =============== Diff against Morphic-mt.2007 =============== Item was changed: ----- Method: ColorPickerMorph>>modalBalloonHelpAtPoint: (in category 'private') ----- modalBalloonHelpAtPoint: cursorPoint self flag: #arNote. "Throw this away. There needs to be another way." self submorphsDo: [:m | m wantsBalloon ifTrue: [(m valueOfProperty: #balloon) isNil ifTrue: + [(m containsPoint: cursorPoint) ifTrue: [m showBalloon: m balloonText at: (m topCenter ). + m setProperty: #balloon toValue: true]] + ifFalse: [(m containsPoint: cursorPoint) ifFalse: [self deleteBalloon. + m setProperty: #balloon toValue:nil]]]]! - [(m containsPoint: cursorPoint) ifTrue: [m showBalloon: m balloonText]] - ifFalse: [(m containsPoint: cursorPoint) ifFalse: [m deleteBalloon]]]]! Item was changed: ----- Method: ColorPickerMorph>>pickUpColorFor: (in category 'menu') ----- pickUpColorFor: aMorph "Show the eyedropper cursor, and modally track the mouse through a mouse-down and mouse-up cycle" | aHand localPt c | aHand := aMorph ifNil: [self activeHand] ifNotNil: [aMorph activeHand]. aHand ifNil: [aHand := self currentHand]. self addToWorld: aHand world near: (aMorph ifNil: [aHand world]) fullBounds. self owner ifNil: [^ self]. aHand showTemporaryCursor: (ScriptingSystem formAtKey: #Eyedropper) + hotSpotOffset: 2@14. "<<<< the form was changed a bit??" - hotSpotOffset: 6 negated @ 4 negated. "<<<< the form was changed a bit??" self updateContinuously: false. [Sensor anyButtonPressed] whileFalse: [self trackColorUnderMouse]. self deleteAllBalloons. localPt := Sensor cursorPoint - self topLeft. self inhibitDragging ifFalse: [ (DragBox containsPoint: localPt) ifTrue: ["Click or drag the drag-dot means to anchor as a modeless picker" ^ self anchorAndRunModeless: aHand]. ]. (clickedTranslucency := TransparentBox containsPoint: localPt) ifTrue: [selectedColor := originalColor]. self updateContinuously: true. [Sensor anyButtonPressed] whileTrue: [self updateTargetColorWith: self indicateColorUnderMouse]. c := self getColorFromKedamaWorldIfPossible: Sensor cursorPoint. c ifNotNil: [selectedColor := c]. aHand newMouseFocus: nil; showTemporaryCursor: nil; flushEvents. self delete. ! Item was added: + ----- Method: DockingBarMenuMorph>>popUpAdjacentTo:forHand:from: (in category 'as yet unclassified') ----- + popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem + + | ownerInWorld world | + super popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem. + + "Docking bar and protruding menu should appear visually merged. Move the source item behind the receiver. If we did it the other way around, other navigators and docking bars in front of the sourceItem would cover the receiver. For the same reason, we can't use a higher different morphic layer numbers for docking bar menus because this would hide them after all other navigators." + world := owner world. + ownerInWorld := sourceItem firstOwnerSuchThat: [:owner | owner owner == world]. + world addMorph: ownerInWorld inFrontOf: self.! Item was changed: ----- Method: DockingBarMorph>>add:icon:help:subMenu: (in category 'construction') ----- add: wordingString icon: aForm help: helpString subMenu: aMenuMorph "Append the given submenu with the given label." | item | item := DockingBarItemMorph new. item contents: wordingString. item subMenu: aMenuMorph. item icon: aForm. helpString isNil ifFalse: [item setBalloonText: helpString]. aMenuMorph ifNotNil: [ + "Docking bar and protruding menu should appear visually merged." + aMenuMorph morphicLayerNumber: self morphicLayerNumber]. - aMenuMorph morphicLayerNumber: self morphicLayerNumber + 1]. self addMorphBack: item! Item was changed: ----- Method: DockingBarMorph>>add:icon:selectedIcon:help:subMenu: (in category 'construction') ----- add: wordingString icon: aForm selectedIcon: anotherForm help: helpString subMenu: aMenuMorph "Append the given submenu with the given label." | item | item := DockingBarItemMorph new contents: wordingString; subMenu: aMenuMorph; icon: aForm; selectedIcon: anotherForm. helpString ifNotNil: [ item setBalloonText: helpString ]. aMenuMorph ifNotNil: [ + "Docking bar and protruding menu should appear visually merged." + aMenuMorph morphicLayerNumber: self morphicLayerNumber]. - aMenuMorph morphicLayerNumber: self morphicLayerNumber + 1 ]. self addMorphBack: item! Item was changed: ----- Method: DockingBarMorph>>addItem: (in category 'construction') ----- addItem: aBlock | item | item := DockingBarItemMorph new. aBlock value: item. item subMenu ifNotNil: [:menu | "Docking bar and protruding menu should appear visually merged." + menu morphicLayerNumber: self morphicLayerNumber]. - menu morphicLayerNumber: self morphicLayerNumber + 1]. self addMorphBack: item! Item was changed: ----- Method: DockingBarMorph>>addUpdatingItem: (in category 'construction') ----- addUpdatingItem: aBlock | item | item := DockingBarUpdatingItemMorph new. aBlock value: item. item subMenu ifNotNil: [:menu | "Docking bar and protruding menu should appear visually merged." + menu morphicLayerNumber: self morphicLayerNumber]. - menu morphicLayerNumber: self morphicLayerNumber + 1]. self addMorphBack: item! Item was changed: ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'ui - building') ----- buildPreviewPaneWith: builder "Build the preview panel. Offer the user the change preview text through the default font, point size, extra (glyph) scale and extra (line) gap." ^ builder pluggablePanelSpec new " wantsResizeHandles: true;" children: { builder pluggablePanelSpec new children: { builder pluggableButtonSpec new model: self; help: #previewTextButtonHelp; label: #previewTextButtonLabel; action: #offerPreviewTextMenu; + style: #menuButton; + frame: (LayoutFrame fractions: (0@0 corner: 0.16@1)); - frame: (LayoutFrame fractions: (0@0 corner: 0.15@1)); yourself. builder pluggableInputFieldSpec new model: self; help: 'Type custom preview text here...' translated; getText: #customPreviewText; setText: #acceptCustomPreviewText:; editText: #editCustomPreviewText:; plainTextOnly: true; + frame: (LayoutFrame fractions: (0.16@0 corner: 0.84@1)); - frame: (LayoutFrame fractions: (0.15@0 corner: 0.85@1)); yourself. builder pluggableButtonSpec new model: self; help: 'Click to see current preview text using the system''s current fonts for comparison' translated; label: 'Compare' translated; action: #browseSystemFonts; + frame: (LayoutFrame fractions: (0.84@0 corner: 1@1)); - frame: (LayoutFrame fractions: (0.85@0 corner: 1@1)); yourself }; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ self customPreviewTextHeight)); yourself. builder pluggableTextSpec new model: self; getText: #previewText; textStyle: #selectedFontTextStyle; askBeforeDiscardingEdits: false; indicateUnacceptedChanges: false; softLineWrap: false; padding: self previewTextPadding; stylerClass: (TextStyler for: #Smalltalk); menu: #previewTextMenu:shifted:; frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0 @ self customPreviewTextHeight corner: 0@ self configurationPanelHeight negated)); yourself. builder pluggablePanelSpec new name: #configPanel; children: (Array streamContents: [:s | | n | n := 0. self fontConfigurationSpecs groupsDo: [:kind :get :help :label :group | | w | kind caseOf: { [#spacer] -> [ w := builder pluggableSpacerSpec new fillSpaceHorizontally]. [#button] -> [ w := builder pluggableButtonSpec new model: self; label: label; action: get; help: help; yourself]. [#text] -> [ w := builder pluggableInputFieldSpec new model: self; getText: get; setText: get asSimpleSetter; help: help; plainTextOnly: true; yourself]. } otherwise: [ "Ignore" ]. w ifNotNil: [ "Remember the group. See #toggleEditMode" w name: (group, (n := n + 1)) asSymbol. s nextPut: w] ]]); layout: #horizontal; frame: self configurationPanelFrame; yourself. }; yourself! Item was changed: ----- Method: Morph>>changeColor (in category 'menus') ----- changeColor "Change the color of the receiver -- triggered, e.g. from a menu" NewColorPickerMorph useIt ifTrue: [ (NewColorPickerMorph on: self) openNear: self fullBoundsInWorld ] ifFalse: + [ self removeHalo."Halo can obscure the color picker" + ColorPickerMorph new - [ ColorPickerMorph new choseModalityFromPreference ; sourceHand: self activeHand ; target: self ; selector: #fillStyle: ; originalColor: self color ; putUpFor: self near: self fullBoundsInWorld ]! Item was changed: ----- Method: Morph>>startDrag: (in category 'event handling') ----- startDrag: evt + "Handle a drag event when the user moves the cursor over the receiver, pressing and holding the red button, and then moves the cursor for more than the #dragThreshold. This message is only sent to clients that request it by sending #waitForClicksOrDrag:event: to the initiating hand in their mouseDown: method. This default implementation delegates to an #eventHandler if any." - "Handle a double-click event. This message is only sent to clients that request it by sending #waitForClicksOrDrag:event: to the initiating hand in their mouseDown: method. This default implementation does nothing." self eventHandler ifNotNil: [self eventHandler startDrag: evt fromMorph: self].! Item was changed: ----- Method: SmalltalkEditor>>emphasisExtras (in category 'editing keys') ----- emphasisExtras ^#( 'Do it' 'Print it' 'Style it' 'Link to comment of class' 'Link to definition of class' 'Link to hierarchy of class' + 'Link to help on class' 'Link to method' 'URL Link...' 'Custom attribute...' ).! Item was changed: ----- Method: SmalltalkEditor>>handleEmphasisExtra:with: (in category 'editing keys') ----- handleEmphasisExtra: index with: aKeyboardEvent "Handle an extra emphasis menu item" | action attribute thisSel | action := { [attribute := TextDoIt new. thisSel := attribute analyze: self selection]. [attribute := TextPrintIt new. thisSel := attribute analyze: self selection]. [thisSel := self styleSelection]. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Comment']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Definition']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Hierarchy']. [attribute := TextLink new. + thisSel := attribute analyze: self selection asString with: 'Help']. + [attribute := TextLink new. thisSel := attribute analyze: self selection asString]. [attribute := TextURL new. thisSel := attribute analyze: self selection asString]. [thisSel := self selection. attribute := self requestAttribute]. ["Edit hidden info" thisSel := self hiddenInfo. "includes selection" attribute := TextEmphasis normal]. ["Copy hidden info" self copyHiddenInfo. ^true]. "no other action" } at: index. action value. + - thisSel ifNil: [^ true]. "Could not figure out what to link to" (thisSel isEmpty and: [attribute notNil]) ifTrue: [ | oldAttributes | "only change emphasisHere while typing" oldAttributes := paragraph text attributesAt: self pointIndex. emphasisHere := Text addAttribute: attribute toArray: oldAttributes] ifFalse: [ self replaceSelectionWith: (attribute ifNil: [thisSel] ifNotNil: [thisSel asText addAttribute: attribute]) ]. ^ true!

1 0

The Trunk: Collections-kfr.1011.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-kfr.1011.mcz ==================== Summary ==================== Name: Collections-kfr.1011 Author: kfr Time: 4 June 2022, 8:11:42.249458 pm UUID: af4717d3-2d27-864f-9c26-7aebb4444811 Ancestors: Collections-ct.1010 Open a HelpBrowser with TextLink. Example: TerseGuideHelp Help Select text, press Alt+5 (CMD on Mac) and select 'Link to help on class' (A link of this format: 'My Link<TerseGuideHelp Help>' will hide the part between < & > ) =============== Diff against Collections-ct.1010 =============== Item was changed: ----- Method: TextLink>>validate: (in category 'initialize-release') ----- validate: specString "Can this string be decoded to be Class space Method (or Comment, Definition, Hierarchy)? If so, return it in valid format, else nil" | list first mid last | list := specString findTokens: ' .|'. list isEmpty ifTrue: [ ^nil ]. last := list last. last first isUppercase ifTrue: [ + (#('Comment' 'Definition' 'Hierarchy' 'Help') includes: last) ifFalse: [^ nil]. - (#('Comment' 'Definition' 'Hierarchy') includes: last) ifFalse: [^ nil]. "Check for 'Rectangle Comment Comment' and remove last one" (list at: list size - 1 ifAbsent: [^nil]) = last ifTrue: [list := list allButLast]]. list size > 3 ifTrue: [^ nil]. list size < 2 ifTrue: [^ nil]. first := Symbol lookup: list first. first ifNil: [^ nil]. Smalltalk at: first ifAbsent: [^ nil]. mid := list size = 3 ifTrue: [(list at: 2) = 'class' ifTrue: ['class '] ifFalse: [^ nil]] ifFalse: ['']. "OK if method name is not interned -- may not be defined yet" ^ first, ' ', mid, last!

1 0

The Trunk: Collections-mt.1014.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1014.mcz ==================== Summary ==================== Name: Collections-mt.1014 Author: mt Time: 22 June 2022, 3:07:39.450264 pm UUID: 0b2c5044-f005-7844-8bf5-01303e6cc781 Ancestors: Collections-mt.1013, Collections-kfr.1011 Merge Collections-kfr.1011. =============== Diff against Collections-mt.1013 =============== Item was changed: ----- Method: TextLink>>validate: (in category 'initialize-release') ----- validate: specString "Can this string be decoded to be Class space Method (or Comment, Definition, Hierarchy)? If so, return it in valid format, else nil" | list first mid last | list := specString findTokens: ' .|'. list isEmpty ifTrue: [ ^nil ]. last := list last. last first isUppercase ifTrue: [ + (#('Comment' 'Definition' 'Hierarchy' 'Help') includes: last) ifFalse: [^ nil]. - (#('Comment' 'Definition' 'Hierarchy') includes: last) ifFalse: [^ nil]. "Check for 'Rectangle Comment Comment' and remove last one" (list at: list size - 1 ifAbsent: [^nil]) = last ifTrue: [list := list allButLast]]. list size > 3 ifTrue: [^ nil]. list size < 2 ifTrue: [^ nil]. first := Symbol lookup: list first. first ifNil: [^ nil]. Smalltalk at: first ifAbsent: [^ nil]. mid := list size = 3 ifTrue: [(list at: 2) = 'class' ifTrue: ['class '] ifFalse: [^ nil]] ifFalse: ['']. "OK if method name is not interned -- may not be defined yet" ^ first, ' ', mid, last!

1 0

The Trunk: SystemReporter-ct.62.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-ct.62.mcz ==================== Summary ==================== Name: SystemReporter-ct.62 Author: ct Time: 7 April 2022, 5:57:05.904555 pm UUID: 9807e6b3-6613-374c-ab14-5f055f8e750d Ancestors: SystemReporter-ct.61 Fixes "image locale" report when the new preference for compressed sources is turned on. =============== Diff against SystemReporter-ct.61 =============== Item was changed: ----- Method: SystemReporter>>reportImageLocale: (in category 'reporting') ----- reportImageLocale: aStream | imageLocale platformLocale | imageLocale := Locale current. platformLocale := Locale currentPlatform. self header: 'Image Locale Information' on: aStream. aStream nextPutAll: ' Locale ID: ', imageLocale localeID; cr; nextPutAll: ' Translator: ', imageLocale languageTranslator; cr; nextPutAll: ' Environment: ', imageLocale languageEnvironment class; nextPutAll: ' (see languages below)'; cr; nextPutAll: 'Leading char: ', imageLocale leadingChar; nextPutAll: ' (ie. tag in characters)'; cr. aStream cr. self header: 'Image Default Language(s)' on: aStream. aStream nextPutAll: (imageLocale languageEnvironment class supportedLanguageNames sorted joinSeparatedBy: ', '); cr; cr; nextPutAll: '(These languages belong to the same category when Squeak uses the environment or leading char above to derive rules for language-specific text composition and display. Strings are not limited to this default. See LanguageEnvironment and its subclasses.)'; cr. aStream cr. self header: 'Data Interpretation and Conversion' on: aStream. aStream + nextPutAll: ' Source code: ', + (SourceFiles + "Some source files, e.g., CompressedSources, do not have a converter" + detect: [:file | file respondsTo: #converter] + ifFound: [:file | file converter class] + ifNone: ['(none)' translated]); + nextPutAll: ' (ie. .sources .changes .cs .st)'; cr; - nextPutAll: ' Source code: ', SourceFiles anyOne converter class; nextPutAll: ' (ie. .sources .changes .cs .st)'; cr; nextPutAll: ' Platform data: ', platformLocale systemConverter class; nextPutAll: ' (aka. #systemConverter)'; cr; nextPutAll: ' File names: ', platformLocale fileNameConverter class; nextPutAll: ' (ie. no content but paths)'; cr; nextPutAll: ' User input: ', platformLocale inputInterpreter class; cr; nextPutAll: 'Clipboard data: ', platformLocale clipboardInterpreter class; cr. aStream cr. self header: 'Platform Locale Information' on: aStream. aStream nextPutAll: ' Locale ID: ', platformLocale localeID; cr; nextPutAll: ' Currency symbol: ', platformLocale fetchCurrencySymbol; nextPutAll: (platformLocale primCurrencyNotation ifTrue: [' (prefix)'] ifFalse: [' (postfix)']); cr; nextPutAll: (' Numbers: 1{1}234{2}56' format: { platformLocale primDigitGrouping. platformLocale primDecimalSymbol}); cr; nextPutAll: ' Measurement: ', (platformLocale primMeasurement ifTrue: ['metric'] ifFalse: ['imperial']); cr; nextPutAll: ' Timezone: UTC', (platformLocale primTimezone >= 0 ifTrue: ['+']), (platformLocale primTimezone / 60); nextPutAll: (platformLocale primDST ifTrue: [' (daylight saving time)'] ifFalse: ['']); cr; nextPutAll: ' Time format: ', platformLocale primTimeFormat; cr; nextPutAll: '(Short) Date format: ', platformLocale primShortDateFormat; cr; nextPutAll: ' (Long) Date format: ', platformLocale primLongDateFormat; cr; cr.!

1 0

The Trunk: TrueType-ct.95.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-ct.95.mcz ==================== Summary ==================== Name: TrueType-ct.95 Author: ct Time: 16 June 2022, 5:32:12.262112 pm UUID: 447342b6-162a-4948-a847-ba2ba3fdb5c0 Ancestors: TrueType-mt.94 Fixes senders of deprecated TTCFontSet class >> #newTextStyleFromTTFile:. Complements TrueType-mt.94. Please review. Do we really do not want to have #installFromFileName: (singular selector)? =============== Diff against TrueType-mt.94 =============== Item was changed: ----- Method: HostFont class>>initForSubtitles (in category '*TrueType') ----- initForSubtitles " HostFont initForSubtitles " HostFont textStyleFrom: 'Verdana' sizes: #(18 20 22 24 26 28) ranges: HostFont defaultRanges. StrikeFontSet installExternalFontFileName: 'greekFont.out' encoding: GreekEnvironment leadingChar encodingName: #Greek textStyleName: #DefaultMultiStyle. TTCFontReader encodingTag: SimplifiedChineseEnvironment leadingChar. + TTCFontSet installFromFileNames: {'C:\WINDOWS\Fonts\simhei.TTF'}. - TTCFontSet newTextStyleFromTTFile: 'C:\WINDOWS\Fonts\simhei.TTF'. TTCFontReader encodingTag: JapaneseEnvironment leadingChar. + TTCFontSet installFromFileNames: {'C:\WINDOWS\Fonts\msgothic.TTC'}. - TTCFontSet newTextStyleFromTTFile: 'C:\WINDOWS\Fonts\msgothic.TTC'. TTCFontReader encodingTag: KoreanEnvironment leadingChar. + TTCFontSet installFromFileNames: {'C:\WINDOWS\Fonts\gulim.TTC'}.! - TTCFontSet newTextStyleFromTTFile: 'C:\WINDOWS\Fonts\gulim.TTC'. - ! Item was changed: ----- Method: TTCFont class>>serviceInstallTrueTypeFontStyle (in category 'file list services') ----- serviceInstallTrueTypeFontStyle "Return a service to install a true type font as a text style" + ^ (SimpleServiceEntry - ^ SimpleServiceEntry provider: self label: 'install TrueType font' + selector: #installFromFileNames: - selector: #newTextStyleFromTTFile: description: 'install a TrueType font as a new text style' + buttonLabel: 'install ttf') + argumentGetter: [:fileName | {fileName fullName}]! - buttonLabel: 'install ttf'!

1 0

The Trunk: PreferenceBrowser-mt.153.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.153.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.153 Author: mt Time: 22 June 2022, 2:35:09.948723 pm UUID: 1d76cad0-b98a-074f-95ec-be9307ccac36 Ancestors: PreferenceBrowser-ct.152 Fix/clarify label for Shout in wizard. Add workspace-specific styling option as well. =============== Diff against PreferenceBrowser-ct.152 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization - pages') ----- initializePage01Themes | currentPage pane | currentPage := pages add: self createPage. pane := self createScrollPane. currentPage addMorphBack: (self createLabel: 'Choose a theme' translated color: Color white). currentPage addMorphBack: pane. ((UserInterfaceTheme allThemes select: [:uit | uit isGenuine]) sorted: [:a :b | a name <= b name]) do: [:ea | pane scroller firstSubmorph addMorphBack: (self createRadioButton: ea name for: #Theme argument: ea)]. pane scroller firstSubmorph addAllMorphsBack: { self createVerticalSpace. self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window). - self createCheckbox: 'Colorful source code' translated for: #UseColorfulSourceCode help: 'Whether to use Shout (Syntax Highlighting As You Type) in code browsers.' translated. self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated. + self createCheckbox: 'Syntax highlighting' translated for: #UseColorfulSourceCode help: 'Whether to use Shout (Syntax Highlighting As You Type) in all code browsers.' translated. + self createCheckbox: 'Syntax highlighting in workspaces' translated for: #UseColorfulSourceCodeInWorkspaces help: 'Whether to use Shout (Syntax Highlighting As You Type) in all workspaces. This can also be enabled and disabled per workspace via window menu.' translated. }.! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseColorfulSourceCodeInWorkspaces (in category 'actions - buttons') ----- + stateUseColorfulSourceCodeInWorkspaces + + ^ Workspace shouldStyle! Item was changed: ----- Method: PreferenceWizardMorph>>toggleUseColorfulSourceCode (in category 'actions - buttons') ----- toggleUseColorfulSourceCode SHTextStylerST80 syntaxHighlightingAsYouType: SHTextStylerST80 syntaxHighlightingAsYouType not. + self changed: #stateUseColorfulSourceCode. + + Workspace shouldStyle: (Workspace shouldStyle and: [SHTextStylerST80 syntaxHighlightingAsYouType]). + self changed: #stateUseColorfulSourceCodeInWorkspaces.! - self changed: #stateUseColorfulSourceCode.! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseColorfulSourceCodeInWorkspaces (in category 'actions - buttons') ----- + toggleUseColorfulSourceCodeInWorkspaces + + Workspace shouldStyle: Workspace shouldStyle not. + self changed: #stateUseColorfulSourceCodeInWorkspaces. + + SHTextStylerST80 syntaxHighlightingAsYouType: (SHTextStylerST80 syntaxHighlightingAsYouType or: [Workspace shouldStyle]). + self changed: #stateUseColorfulSourceCode.!

1 0

The Trunk: ReleaseBuilder-mt.236.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.236.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.236 Author: mt Time: 22 June 2022, 1:21:02.975723 pm UUID: 5b84a6d7-ecc6-7b44-bb49-53a76acda876 Ancestors: ReleaseBuilder-ct.235 Clarify the role of #prepareSourceCode and #prepareEnvironment. =============== Diff against ReleaseBuilder-ct.235 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareEnvironment (in category 'preparing') ----- prepareEnvironment + "Prepare everything that should be done for a new image build. Clear caches, passwords, etc. Note that this will be called automatically in the CI on github.com/squeak-smalltalk/squeak-app." - "Prepare everything that should be done for a new image build. Clear caches, passwords, etc." | balloon | self clearCaches; configureProjects; configureTools; setPreferences; clearPreferenceCaches; configureDesktop. balloon := self getBalloonForm. "Get now because later the file might be missing." DeferredTask := [ self openWelcomeWorkspacesWith: balloon. PreferenceWizardMorph open]. "If you save-and-quit the image after calling #prepareEnvironment, ensure that the next image startup will be fast." Project current world doOneCycle. Display platformScaleFactor: 1.0.! Item was changed: ----- Method: ReleaseBuilder class>>prepareSourceCode (in category 'preparing') ----- prepareSourceCode + "Update packages. Remove foreign packages. Recompile. Note that this will NOT be called in the CI on github.com/squeak-smalltalk/squeak-app. However, it should be called manually when preparing a new base image for the CI to then upload it to files.squeak.org/base. Also see #prepareEnvironment." - "Update packages. Remove foreign packages. Recompile." CurrentReadOnlySourceFiles cacheDuring: [self updateCorePackages; + updateDatabases; unloadForeignPackages; checkForDirtyPackages; loadWellKnownPackages; checkForUndeclaredSymbols; checkForNilCategories; + recompileAll]! - recompileAll; - updateDatabases]! Item was changed: ----- Method: ReleaseBuilder class>>updateDatabases (in category 'scripts - support') ----- updateDatabases + "Fetch external data and store it in the image. An Internet connection will probably be necessary." + - Unicode reinitializeData.!

1 0

The Trunk: Graphics-mt.525.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.525.mcz ==================== Summary ==================== Name: Graphics-mt.525 Author: mt Time: 22 June 2022, 12:46:23.837723 pm UUID: c0630d5f-4682-a145-8772-6cb4dc77a34a Ancestors: Graphics-mt.524 Clarify commentary from prior commit. Fix typo. Sorry for the noise. =============== Diff against Graphics-mt.524 =============== Item was changed: ----- Method: Number>>em (in category '*Graphics-scale factor') ----- em + "Documentation only. Please use #pt or #px instead. Convert the receiver from multiples of width-of-capital-letter-M to pixels using the system's default font. Works also with pre-rendered fonts." - "Convert the receiver from multiples of width-of-capital-letter-M to pixels using the system's default font. Works also with pre-rendered fonts." ^ (self * (TextStyle defaultFont widthOf: $M)) rounded! Item was changed: ----- Method: Number>>ex (in category '*Graphics-scale factor') ----- ex + "Documentation only. Please use #pt or #px instead. Convert the receiver from multiples of x-height-of-font to pixels using the system's default TrueType font." - "Convert the receiver from multiples of x-height-of-font to pixels using the system's default TrueType font." + | font description | + font := TextStyle defaultTTFont. + description := font ttcDescription. - | tt | - tt := TextStyle defaultTTFont ttcDescription. ^ (self asFloat + * (description xHeight asFloat / description unitsPerEm) + * (font widthOf: $M)) rounded! - * (tt xHeight asFloat / tt unitsPerEm) - * (TextStyle defaultFont widthOf: $M)) rounded!

1 0

The Trunk: Graphics-mt.524.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.524.mcz ==================== Summary ==================== Name: Graphics-mt.524 Author: mt Time: 22 June 2022, 11:47:35.985723 am UUID: fc41bc62-0b72-a14f-999b-12d64a0a0cff Ancestors: Graphics-mt.523 Document programming model for scale-factor-aware applications. Note that this is not yet used throughout the system. However, applications written for Squeak 6.0 should be able to look as elegant as possible. =============== Diff against Graphics-mt.523 =============== Item was added: + ----- Method: Number>>em (in category '*Graphics-scale factor') ----- + em + "Convert the receiver from multiples of width-of-capital-letter-M to pixels using the system's default font. Works also with pre-rendered fonts." + + ^ (self * (TextStyle defaultFont widthOf: $M)) rounded! Item was added: + ----- Method: Number>>ex (in category '*Graphics-scale factor') ----- + ex + "Convert the receiver from multiples of x-height-of-font to pixels using the system's default TrueType font." + + | tt | + tt := TextStyle defaultTTFont ttcDescription. + ^ (self asFloat + * (tt xHeight asFloat / tt unitsPerEm) + * (TextStyle defaultFont widthOf: $M)) rounded! Item was added: + ----- Method: Number>>pt (in category '*Graphics-scale factor') ----- + pt + "Convert the receiver from points to pixels. Note that this will not work correctly for 'faked' scale factors where larger (pre-rendered) fonts are used instead of adjusting the system's current ppi value." + + ^ (TextStyle pointsToPixels: self) rounded + + " + (TextStyle pixelsPerInch = 96.0 ifTrue: [ + | extra | + extra := TextStyle defaultFont pointSize / TTCFont referencePointSize. + ^ (TextStyle pointsToPixels: self * extra) rounded] + "! Item was added: + ----- Method: Number>>px (in category '*Graphics-scale factor') ----- + px + "Convert the receiver representing raw pixels at 100% (96ppi) to the current scale factor. Note that you currently have to do this manually for all graphics-related properties and layout-specific measures such as #borderWidth: and #layoutInset:. Only for model windows (see #initialExtent) that are no dialogs, that scaling will happen automatically in ToolBuilder." + + self flag: #discuss. "mt: For self > 4, I would recommend #rounded instead of #truncated. For smaller values, however, rounding makes no sense because we have no sub-pixel access and things would look too big too soon." + ^ (self * RealEstateAgent scaleFactor) truncated!

3 2

[PDFtalk] second fileOut for Squeak and Pharo
by Christian Haider 22 Jun '22

22 Jun '22

With help from the community some issues were fixed which improved the test statistics nicely. Check it out: https://wiki.pdftalk.de/doku.php?id=portingblog#second_pdftalk_fileout_for_… Thanks to everybody involved! Happy hacking, Christian

1 0

← Newer
1
...
8
9
10
11
12
13
14
...
31
Older →

Jump to page: