Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: System-ct.1297.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1297.mcz ==================== Summary ==================== Name: System-ct.1297 Author: ct Time: 31 January 2022, 8:02:46.547876 pm UUID: 9f3500d4-cb3b-1f4c-9950-7f27f7b2f965 Ancestors: System-ct.1296 Fixes DoIt tests for Windows. Uses Files-ct.189 (FileDirectory class >> #startUpDefaultDirectory). See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218179.… =============== Diff against System-ct.1296 =============== Item was changed: ----- Method: DoItFirst>>parse: (in category 'evaluating') ----- parse: argumentList "Iterate over the argument list, creating actions blocks. Register each action block in the actions dictionary, and collect a list of the actions blocks to be evaluated now. If any action blocks will require files or directory initialization, send the appropriate startUp messages. Answer the list of action blocks to be evaluated." | args listOfBlocks needsFiles needsDirectory | needsFiles := needsDirectory := false. args := argumentList readStream. listOfBlocks := OrderedCollection new. [ args atEnd ] whileFalse: [ | key | (key := self keyFor: args next) caseOf: { [ #help ] -> [ self addFirst: [ self help ] to: listOfBlocks at: key. needsFiles := true] . [ #debug ] -> [ self addWithoutEvaluation: [ self debug ] at: key] . [ #doit ] -> [ | list | list := self nextTokensFrom: args. self add:[ self doIt: list ] to: listOfBlocks at: key. needsFiles := true] . [ #evaluate ] -> [ | arg | arg := args next. self add:[ self evaluateOption: arg ] to: listOfBlocks at: key. needsFiles := true] . [ #file ] -> [ | arg | arg := args next. self add:[ self evaluateFileContents: arg ] to: listOfBlocks at: key. needsFiles := true] . [ #filein ] -> [ | list | list := self nextTokensFrom: args. self add:[ self fileIn: list ] to: listOfBlocks at: key. needsFiles := needsDirectory := true] . [ #cwd ] -> [ | arg | arg := args next. self addFirst:[ self cwd: arg ] to: listOfBlocks at: key. needsFiles := needsDirectory := true] . } otherwise: [] ]. needsFiles ifTrue: [ FileStream startUp: true. "initialize stdout and stderr" ]. + needsDirectory ifTrue: [ FileDirectory startUpDefaultDirectory ]. + ^ listOfBlocks! - needsDirectory ifTrue: [ FileDirectory startUp "set default directory" ]. - ^ listOfBlocks. - !

1 0

The Trunk: PreferenceBrowser-mt.128.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.128.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.128 Author: mt Time: 31 January 2022, 2:01:38.104089 pm UUID: 59284507-bd8a-6543-82fe-3a77a6f18a0a Ancestors: PreferenceBrowser-dtl.127 Complements Installer-Core-mt.444. Feel free to revise the help texts if you find a better phrasing. =============== Diff against PreferenceBrowser-dtl.127 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initializePage99ExtraPackages (in category 'initialization - pages') ----- initializePage99ExtraPackages "Let the user install extra packages." | currentPage packagesList installButton | currentPage := self createPage. currentPage cellPositioning: #topCenter; addMorphBack: self createHorizontalSpacer; addMorphBack: ((self createLabel: 'Do you want to install extra packages?' color: Color white) hResizing: #shrinkWrap; yourself); addMorphBack: ((self createLabel: 'Note that the installation process requires a network connection with Internet access and might take several minutes.' color: (Color gray: 0.9)) hResizing: #rigid; vResizing: #shrinkWrap; width: (self defaultFont widthOf: $x) * 55; yourself). currentPage submorphs last text addAttribute: TextAlignment centered. currentPage submorphs last layoutChanged. currentPage addMorphBack: (self createVerticalSpace height: self layoutInset). packagesList := self createScrollPane. packagesList width: (self defaultFont widthOf: $x) * 40; hResizing: #rigid; vResizing: #spaceFill. packagesList scroller firstSubmorph addAllMorphsBack: { self createCheckbox: 'Latest system updates' translated for: #InstallLatestUpdates help: 'Install the latest patches for ' translated, SystemVersion current version. + self createCheckbox: 'Refactoring support in code browsers' translated for: #InstallRefactoringTools help: 'Refactoring is a process of re-writing or re-organizing text or code. The purpose of a refactor is to make the code or text more understandable and readable while exactly preserving its meaning and behavior' translated. + self createCheckbox: 'Autocomplete in code editors' translated for: #InstallAutoComplete help: 'Package that provides interactive, context-sensitive auto-completion for Squeak' translated. + self createCheckbox: 'Git support and browser' translated for: #InstallGitInfrastructure help: 'From the Git Browser, you can create new commits, synchronize with remote repositories (fetch, pull, push), manage and merge branches, switch between them, and compare different versions' translated. - self createCheckbox: 'Refactoring support in code browsers' translated for: #InstallRefactoringTools help: 'Refactoring is a process of re-writing or re-organizing text or code. The purpose of a refactor is to make the code or text more understandable and readable while exactly preserving its meaning and behavior.' translated. - self createCheckbox: 'Autocomplete in code editors' translated for: #InstallAutoComplete help: 'Package that provides interactive, context-sensitive auto-completion for Squeak.' translated. - self createCheckbox: 'Git support and browser' translated for: #InstallGitInfrastructure help: 'From the Git Browser, you can create new commits, synchronize with remote repositories (fetch, pull, push), manage and merge branches, switch between them, and compare different versions.' translated. self createCheckbox: 'Foreign function interface (FFI)' translated for: #InstallFFI help: 'FFI, the Squeak Foreign Function Interface, is used to call functions located in shared libraries that are not part of the Squeak VM nor its plugins' translated. + self createCheckbox: 'Access OS functions' translated for: #InstallOSProcess help: 'OSProcess provides access to operating system functions, including pipes and child process creation' translated. + self createCheckbox: 'Integrate Squeak''s mailing lists' translated for: #InstallSqueakInboxTalk help: 'Through Squeak Inbox Talk, you can engage with our community from within Squeak using tools that integrate our mailing lists such as squeak-dev and vm-dev' translated. - self createCheckbox: 'Access OS functions' translated for: #InstallOSProcess help: 'OSProcess provides access to operating system functions, including pipes and child process creation.' translated. }. currentPage addMorphBack: packagesList. currentPage addMorphBack: ((self createLabel: 'Find more on www.squeak.org/projects' color: (Color gray: 0.9)) hResizing: #shrinkWrap; yourself). installButton := (self createButton action: #installExtraPackages). currentPage addMorphBack: installButton. currentPage addMorphBack: (self createButton action: #showSqueak; label: 'No, maybe later.' translated). self setProperty: #checkInternet toValue: true. self checkInternetOn: installButton. ^ currentPage! Item was changed: ----- Method: PreferenceWizardMorph>>installExtraPackages (in category 'actions') ----- installExtraPackages "Removes the buttons and adds the progress bar during installation." | steps page | self removeProperty: #checkInternet. "No frequent checks for connectivity from here." steps := #( InstallLatestUpdates InstallMetacello InstallRefactoringTools InstallAutoComplete InstallGitInfrastructure InstallFFI + InstallOSProcess + InstallSqueakInboxTalk ) - InstallOSProcess ) select: [:ea | self perform: ('state', ea) asSymbol]. page := controlMorph firstSubmorph. page submorphs second hide. "question" page submorphs last delete. "url" page submorphs last delete. "no button" page submorphs last delete. "yes button" page submorphs last delete. "package list" self refreshWorld. [ PreferenceWizardProgressMorph install. page addMorphBack: PreferenceWizardProgressMorph uniqueInstance; addMorphBack: self createVerticalSpacer. steps do: [:step | self perform: step withFirstCharacterDownshifted asSymbol] displayingProgress: [:step | String streamContents: [:s | step findFeatureIndicesDo: [:start :end | s nextPutAll: (step copyFrom: start to: end); space]. s nextPutAll: '...']]. ] ensure: [ PreferenceWizardProgressMorph reset. self showSqueak].! Item was added: + ----- Method: PreferenceWizardMorph>>installSqueakInboxTalk (in category 'actions - packages') ----- + installSqueakInboxTalk + + Installer installSqueakInboxTalk.! Item was added: + ----- Method: PreferenceWizardMorph>>stateInstallSqueakInboxTalk (in category 'actions - packages') ----- + stateInstallSqueakInboxTalk + + ^ self + valueOfProperty: #InstallSqueakInboxTalk + ifAbsent: [false]! Item was added: + ----- Method: PreferenceWizardMorph>>toggleInstallSqueakInboxTalk (in category 'actions - packages') ----- + toggleInstallSqueakInboxTalk + + self + setProperty: #InstallSqueakInboxTalk + toValue: self stateInstallSqueakInboxTalk not. + self changed: #stateInstallSqueakInboxTalk.!

1 0

The Trunk: Morphic-mt.1864.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1864.mcz ==================== Summary ==================== Name: Morphic-mt.1864 Author: mt Time: 31 January 2022, 2:00:33.995089 pm UUID: ff70875a-4681-214c-bae9-6d1c2c88ac22 Ancestors: Morphic-mt.1863 Complements Installer-Core-mt.444. =============== Diff against Morphic-mt.1863 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>installAndOpenSqueakInboxTalk (in category 'menu actions') ----- + installAndOpenSqueakInboxTalk + + (Smalltalk hasClassNamed: #TalkInboxBrowser) + ifFalse: [ (Project uiManager + confirm: 'Squeak Inbox Talk is not yet installed.\\Do you want to install it?\\(Note that this step requires an internet connection and\may take several minutes.)' withCRs translated + title: 'Confirm Installation Request' ) + ifTrue: [ Installer + ensureRecentMetacello; + installSqueakInboxTalk. + TheWorldMainDockingBar updateInstances ] + ifFalse: [ ^self ] ]. + (Smalltalk classNamed: #TalkInboxBrowser) open. + ! Item was added: + ----- Method: TheWorldMainDockingBar>>squeakInboxTalkMenuItemOn: (in category 'submenu - tools') ----- + squeakInboxTalkMenuItemOn: menu + + menu addItem: [:item | + item + contents: ((Smalltalk hasClassNamed: #TalkInboxBrowser) + ifTrue: ['Squeak Inbox Talk' translated] + ifFalse: ['Squeak Inbox Talk (click to install)' translated]); + help: 'Engage with our community from within Squeak using tools that integrate our mailing lists such as squeak-dev and vm-dev' translated; + icon: (self colorIcon: ((Smalltalk classNamed: #TalkInboxBrowser) ifNil: Model) + basicNew windowColorToUse); + target: self; + selector: #installAndOpenSqueakInboxTalk]! Item was changed: ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') ----- toolsMenuOn: aDockingBar aDockingBar addItem: [ :item | item contents: 'Tools' translated; addSubMenu: [ :menu | self browserMenuItemOn: menu; workspaceMenuItemOn: menu; transcriptMenuItemOn: menu; testRunnerMenuItemOn: menu; methodFinderMenuItemOn: menu; messageNamesMenuItemOn: menu. menu addLine. self simpleChangeSorterMenuItemOn: menu; dualChangeSorterMenuItemOn: menu; monticelloBrowserMenuItemOn: menu; + monticelloConfigurationsMenuItemOn: menu. - monticelloConfigurationsMenuItemOn: menu ; - gitInfrastructureMenuItemOn: menu. menu addLine. self + gitInfrastructureMenuItemOn: menu; + squeakInboxTalkMenuItemOn: menu. + menu addLine. + self processBrowserMenuItemOn: menu; preferenceBrowserMenuItemOn: menu; fileListMenuItemOn: menu. ] ]! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'! - (PackageInfo named: 'Morphic') postscript: '"Fixes custom edits that were not propagated properly to pluggable windows." - StringMorph allInstances do: [:ea | ea acceptContents].'!

1 0

The Trunk: Installer-Core-mt.444.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Marcel Taeumel uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-mt.444.mcz ==================== Summary ==================== Name: Installer-Core-mt.444 Author: mt Time: 31 January 2022, 1:59:06.923089 pm UUID: 19ed2eee-09fd-eb45-98b4-86d7cd0b1113 Ancestors: Installer-Core-cmm.443 Adds script to conveniently install "Squeak Inbox Talk", which is besides "Git Browser" the second external tool that can be beneficial for modern software development -- given that Nabble (i.e. forum.world.st) is not connected to squeak-dev and vm-dev anymore. Fixes label issue in "Tools" menu for "Git Browser". =============== Diff against Installer-Core-cmm.443 =============== Item was added: + ----- Method: Installer class>>installAndOpenSqueakInboxTalk (in category 'scripts') ----- + installAndOpenSqueakInboxTalk + "For more information on Squeak Inbox Talk, visit https://github.com/hpi-swa-lab/squeak-inbox-talk" + + self installSqueakInboxTalk. + (Smalltalk at: #TalkInboxBrowser) open.! Item was changed: ----- Method: Installer class>>installGitInfrastructure (in category 'scripts') ----- installGitInfrastructure | priorSetting | "for INIFileTest>>#testComplexRead" priorSetting := Scanner allowUnderscoreAsAssignment. [Scanner allowUnderscoreAsAssignment: true. (Smalltalk at: #Metacello) new baseline: 'Squot'; repository: 'github://hpi-swa/Squot:latest-release/src'; "repository: 'github://hpi-swa/Squot:develop/src';" load. + "Remove '(click to install)' note in 'Tools' menu." + TheWorldMainDockingBar updateInstances. + + ] ensure: [Scanner allowUnderscoreAsAssignment: priorSetting]! - ] ensure: [Scanner allowUnderscoreAsAssignment: priorSetting] - ! Item was added: + ----- Method: Installer class>>installSqueakInboxTalk (in category 'scripts') ----- + installSqueakInboxTalk + "For more information on Squeak Inbox Talk, visit https://github.com/hpi-swa-lab/squeak-inbox-talk" + + (Smalltalk at: #Metacello) new + baseline: 'SqueakInboxTalk'; + repository: 'github://hpi-swa-lab/squeak-inbox-talk:main/packages'; + load. + + "Remove '(click to install)' note in 'Tools' menu." + TheWorldMainDockingBar updateInstances.!

1 0

The Trunk: SUnitGUI-ct.86.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Christoph Thiede uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-ct.86.mcz ==================== Summary ==================== Name: SUnitGUI-ct.86 Author: ct Time: 31 January 2022, 1:21:40.607693 am UUID: a1c6ba52-df92-6346-b7a6-d2d4c37f158f Ancestors: SUnitGUI-ct.84 Revises widget names and help strings in TestRunner. Complements Tools-ct.1123. =============== Diff against SUnitGUI-ct.84 =============== Item was changed: ----- Method: TestRunner>>buildErrorListWith: (in category 'building') ----- buildErrorListWith: aBuilder ^ aBuilder pluggableListSpec new model: self; + name: #errorList; + help: 'Errors' translated; - name: 'Error List'; list: #errorList; menu: #errorMenu:; getIndex: #errorSelected; setIndex: #errorSelected:; yourself.! Item was changed: ----- Method: TestRunner>>buildFailureListWith: (in category 'building') ----- buildFailureListWith: aBuilder ^ aBuilder pluggableListSpec new model: self; + name: #failureList; + help: 'Failures' translated; - name: 'Failure List'; list: #failedList; menu: #failureMenu:; getIndex: #failedSelected; setIndex: #failedSelected:; yourself.!

1 0

The Trunk: Tools-ct.1123.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1123.mcz ==================== Summary ==================== Name: Tools-ct.1123 Author: ct Time: 31 January 2022, 1:20:41.747693 am UUID: 4d7aacd6-8428-d046-954f-906f1fd1e8e7 Ancestors: Tools-ct.1122 Revises widget names and help strings in DependencyBrowser. Explanation: ToolBuilderSpec>>#name is just an identifier to be used in programmatic contexts. To communicate the meaning of a widget to the user, use ToolBuilderSpec>>#help instead. =============== Diff against Tools-ct.1122 =============== Item was changed: ----- Method: DependencyBrowser>>buildClassDepsWith: (in category 'toolbuilder') ----- buildClassDepsWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; + name: #classDepsList; + help: 'Required classes' translated; - name: 'Required Classes' ; list: #classDepsList; getIndex: #classDepsIndex; setIndex: #classDepsIndex:; menu: #classDepsMenu:; keyPress: #classDepsKey:from:. ^listSpec ! Item was changed: ----- Method: DependencyBrowser>>buildClassListWith: (in category 'toolbuilder') ----- buildClassListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; + name: #classList; + help: 'Client classes' translated; - name: 'Client classes' ; list: #classList; getIndex: #classListIndex; setIndex: #classListIndex:; menu: #classListMenu:; keyPress: #classListKey:from:. ^listSpec ! Item was changed: ----- Method: DependencyBrowser>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; + name: #messageList; + help: 'Client methods' translated; - name: 'Client methods' ; list: #messageList; getIndex: #messageListIndex; setIndex: #messageListIndex:; menu: #messageListMenu:; keyPress: #messageListKey:from:. + ^listSpec! - ^listSpec - ! Item was changed: ----- Method: DependencyBrowser>>buildPackageDepsWith: (in category 'toolbuilder') ----- buildPackageDepsWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; + name: #packageDepsList; + help: 'Required Packages' translated; - name: 'Required Packages' ; list: #packageDepsList; getIndex: #packageDepsIndex; setIndex: #packageDepsIndex:; menu: #packageDepsMenu:; keyPress: #packageDepsKey:from:. ^listSpec ! Item was changed: ----- Method: DependencyBrowser>>buildPackageListWith: (in category 'toolbuilder') ----- buildPackageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; + name: #packageList; + help: 'Packages' translated; - name: 'Packages' ; list: #packageList; getIndex: #packageListIndex; setIndex: #packageListIndex:; menu: #packageListMenu:; keyPress: #packageListKey:from:. ^listSpec !

1 0

The Trunk: Tools-ct.1122.mcz
by commits＠source.squeak.org 31 Jan '22

31 Jan '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1122.mcz ==================== Summary ==================== Name: Tools-ct.1122 Author: ct Time: 31 January 2022, 12:09:47.193979 am UUID: a16ebf6e-8c03-a644-a2d8-1165ac1ef7ff Ancestors: Tools-mt.1121 Protects the debugger against evaluating a symbol label as a selector on the model. Formerly, the following would break your project with a recursive error: [] newProcess debugWithTitle: #myDebugger full: false Thanks to Marcel for the help! =============== Diff against Tools-mt.1121 =============== Item was changed: ----- Method: Debugger>>buildNotifierWith:label:message: (in category 'toolbuilder') ----- buildNotifierWith: builder label: label message: messageString | windowSpec listSpec textSpec panelSpec quads | windowSpec := builder pluggableWindowSpec new model: self; extent: self initialExtentForNotifier; + label: label asString; - label: label; children: OrderedCollection new. panelSpec := builder pluggablePanelSpec new. panelSpec children: OrderedCollection new. quads := self preDebugButtonQuads. (self interruptedContext selector == #doesNotUnderstand:) ifTrue: [ quads := quads copyWith: { 'Create'. #createMethod. #magenta. 'create the missing method' } ]. (#(#notYetImplemented #shouldBeImplemented #requirement) includes: self interruptedContext selector) ifTrue: [ quads := quads copyWith: { 'Create'. #createImplementingMethod. #magenta. 'implement the marked method' } ]. (self interruptedContext selector == #subclassResponsibility) ifTrue: [ quads := quads copyWith: { 'Create'. #createOverridingMethod. #magenta. 'create the missing overriding method' } ]. quads do:[:spec| | buttonSpec | buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self. buttonSpec label: spec first. buttonSpec action: spec second. buttonSpec help: spec fourth. spec size >= 5 ifTrue: [buttonSpec enabled: spec fifth]. panelSpec children add: buttonSpec. ]. panelSpec layout: #horizontal. "buttons" panelSpec frame: self preDebugButtonQuadFrame. windowSpec children add: panelSpec. Preferences eToyFriendly | messageString notNil ifFalse:[ listSpec := builder pluggableListSpec new. listSpec model: self; list: #contextStackList; getIndex: #contextStackIndex; setIndex: #debugAt:; icon: #messageIconAt:; helpItem: #messageHelpAt:; frame: self contextStackFrame. windowSpec children add: listSpec. ] ifTrue:[ message := messageString. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #preDebugMessageString; setText: nil; selection: nil; menu: #debugProceedMenu:; frame: self contextStackFrame. windowSpec children add: textSpec. ]. ^windowSpec!

1 0

The Trunk: Tools-mt.1121.mcz
by commits＠source.squeak.org 30 Jan '22

30 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1121.mcz ==================== Summary ==================== Name: Tools-mt.1121 Author: mt Time: 30 January 2022, 9:46:23.414064 pm UUID: 6f4e1943-136a-ab49-80e3-3d3cddb6c525 Ancestors: Tools-mt.1120 Revise Tools-mt.1120. I forgot to show the most important info: code-point range and fall-back code point. :-) (Sorry for the noise.) =============== Diff against Tools-mt.1120 =============== Item was changed: ----- Method: AbstractFont>>browseGlyphsFrom:to: (in category '*Tools-Browsing') ----- browseGlyphsFrom: firstCodePoint to: lastCodePoint "Browse all glyphs in the given range of code points. Use a fall-back character if an inner code point does not have a glyph. DO NOT TRANSLATE!!" + | contents first last fallbackChar | + first := firstCodePoint max: (self minCodePoint max: 32+1 "first printable after space"). + last := lastCodePoint min: self maxCodePoint. + fallbackChar := Character space. + - | contents | contents := String streamContents: [:s | - | first last fallbackChar | - first := firstCodePoint max: (self minCodePoint max: 32+1 "first printable after space"). - last := lastCodePoint min: self maxCodePoint. - fallbackChar := Character space. first to: last do: [:codePoint | | char | (self hasGlyphOf: (char := Character value: codePoint)) ifTrue: [s nextPut: char] ifFalse: [s nextPut: fallbackChar]]]. contents := contents asText addAttribute: (TextFontReference toFont: self); yourself. + contents := (('Family name: {1}\ Emphasis: {2}\ Point size: {3} ({4}ppi {5}px)\Code points: 16r{6} to: 16r{7}\ Fallback: 16r{8} ({9})\\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. self emphasisString. self pointSize. self pixelsPerInch. self pixelSize. first printStringBase: 16 length: 6 padded: true. last printStringBase: 16 length: 6 padded: true. fallbackChar codePoint printStringBase: 16 length: 6 padded: true. fallbackChar storeString}) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself), - contents := ((' Family name: {1}\ Emphasis: {2}\ Point size: {3}\Pixels per inch: {4}\ Pixel size: {5}\\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. self emphasisString. self pointSize. self pixelsPerInch. self pixelSize }) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself), contents. contents editWithLabel: self printString.!

1 0

The Trunk: TrueType-mt.59.mcz
by commits＠source.squeak.org 30 Jan '22

30 Jan '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.59.mcz ==================== Summary ==================== Name: TrueType-mt.59 Author: mt Time: 30 January 2022, 9:44:17.397064 pm UUID: 11314af0-20e9-834f-b83d-7a66f37d12df Ancestors: TrueType-mt.58 Make #widthOf: in TTCFont do the same things as StrikeFont does. =============== Diff against TrueType-mt.58 =============== Item was changed: ----- Method: TTCFont>>widthOf: (in category 'public') ----- widthOf: aCharacter "This method cannot use #formOf: because formOf: discriminates the color and causes unnecessary bitmap creation." + (self hasGlyphOf: aCharacter) + ifFalse: [^ self fallbackFont widthOf: aCharacter]. - (self hasGlyphOf: aCharacter) ifFalse: [ - (fallbackFont notNil and: [fallbackFont hasGlyphOf: aCharacter]) ifTrue: - [^ fallbackFont widthOf: aCharacter]. - ^ 1 - ]. ^(self formOf: aCharacter) width!

1 0

The Trunk: ToolsTests-ct.109.mcz
by commits＠source.squeak.org 30 Jan '22

30 Jan '22

Christoph Thiede uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-ct.109.mcz ==================== Summary ==================== Name: ToolsTests-ct.109 Author: ct Time: 30 January 2022, 9:28:24.728804 pm UUID: c56e0d9a-d3df-4230-97bf-e1823ca8d154 Ancestors: ToolsTests-ct.108 Fixes #testUnwindDebugger on CI contexts where the StandardToolSet is not present by default. =============== Diff against ToolsTests-ct.108 =============== Item was changed: ----- Method: DebuggerTests>>tearDown (in category 'running') ----- tearDown debugger ifNotNil: [debugger close]. process ifNotNil: [process terminateAggressively]. process := nil. debugger := nil. window := nil. + reset ifNotNil: [ + reset do: #value]. - reset do: #value. super tearDown.! Item was changed: ----- Method: DebuggerUnwindBug>>testUnwindDebugger (in category 'tests') ----- testUnwindDebugger "test if unwind blocks work properly when a debugger is closed" | sema process debugger top | sema := Semaphore forMutualExclusion. self assert: sema isSignaled. process := [sema critical:[sema wait]] forkAt: Processor userInterruptPriority. self deny: sema isSignaled. "everything set up here - open a debug notifier" + debugger := Debugger + openOn: process + context: process suspendedContext + label: 'test' + contents: nil + fullView: false. - debugger := process debugWithTitle: 'test' full: false. "get into the debugger" debugger debug. top := debugger topView. "set top context" debugger toggleContextStackIndex: 1. "close debugger" top delete. + - "and see if unwind protection worked" self assert: sema isSignaled.!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2022