Squeak-dev April 2015

squeak-dev@lists.squeakfoundation.org

38 participants
642 discussions

The Trunk: MonticelloConfigurations-mt.130.mcz
by commits＠source.squeak.org 30 Apr '15

30 Apr '15

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.130.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.130 Author: mt Time: 30 April 2015, 2:06:10.897 pm UUID: be05c73c-06e6-d349-8a41-8eac70ced8fe Ancestors: MonticelloConfigurations-dtl.129 Some hard-coded layout properties refactored to adapt spacing according to fonts. =============== Diff against MonticelloConfigurations-dtl.129 =============== Item was changed: ----- Method: MCConfigurationBrowser>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs ^ #( + ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) + ((listMorph:selection:menu: dependencyList dependencyIndex dependencyMenu:) (0 0 1 1) (0 defaultButtonPaneHeight 0 -180)) - ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((listMorph:selection:menu: dependencyList dependencyIndex dependencyMenu:) (0 0 1 1) (0 30 0 -180)) ((listMorph:selection:menu: repositoryList repositoryIndex repositoryMenu:) (0 1 1 1) (0 -180 0 -120)) ((textMorph: description) (0 1 1 1) (0 -120 0 0)) )!

1 0

The Trunk: Monticello-mt.613.mcz
by commits＠source.squeak.org 30 Apr '15

30 Apr '15

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.613.mcz ==================== Summary ==================== Name: Monticello-mt.613 Author: mt Time: 30 April 2015, 2:05:31.212 pm UUID: 6f63f5b3-e15e-894e-a186-6841c9947c06 Ancestors: Monticello-mt.612 Some hard-coded layout properties refactored to adapt spacing according to fonts. =============== Diff against Monticello-mt.612 =============== Item was changed: ----- Method: MCChangeSelector>>widgetSpecs (in category 'as yet unclassified') ----- widgetSpecs Preferences annotationPanes ifFalse: [ ^#( + ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) + ((multiListMorph:selection:listSelection:menu: list selection listSelectionAt: methodListMenu:) (0 0 1 0.4) (0 defaultButtonPaneHeight 0 0)) + ((innerButtonRow) (0 0.4 1 0.4) (0 0 0 defaultButtonPaneHeight)) + ((textMorph: text) (0 0.4 1 1) (0 defaultButtonPaneHeight 0 0)) - ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((multiListMorph:selection:listSelection:menu: list selection listSelectionAt: methodListMenu:) (0 0 1 0.4) (0 30 0 0)) - ((innerButtonRow) (0 0.4 1 0.4) (0 0 0 30)) - ((textMorph: text) (0 0.4 1 1) (0 30 0 0)) )]. + ^ { + #((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)). + #((multiListMorph:selection:listSelection:menu: list selection listSelectionAt: methodListMenu:) (0 0 1 0.4) (0 defaultButtonPaneHeight 0 0)). + #((innerButtonRow) (0 0.4 1 0.4) (0 0 0 defaultButtonPaneHeight)). + { #(textMorph: annotations). #(0 0.4 1 0.4). { 0. self defaultButtonPaneHeight. 0. self defaultButtonPaneHeight+self defaultAnnotationPaneHeight. }}. + { #(textMorph: text). #(0 0.4 1 1). { 0. self defaultButtonPaneHeight+self defaultAnnotationPaneHeight. 0. 0.}} + }! - ^ #( - ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((multiListMorph:selection:listSelection:menu: list selection listSelectionAt: methodListMenu:) (0 0 1 0.4) (0 30 0 0)) - ((innerButtonRow) (0 0.4 1 0.4) (0 0 0 30)) - ((textMorph: annotations) (0 0.4 1 0.4) (0 30 0 88)) - ((textMorph: text) (0 0.4 1 1) (0 88 0 0)) - )! Item was changed: ----- Method: MCMergeBrowser>>widgetSpecs (in category 'as yet unclassified') ----- widgetSpecs Preferences annotationPanes ifFalse: [ ^#( + ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) + ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 defaultButtonPaneHeight 0 0)) + ((innerButtonRow) (0 0.4 1 0.4) (0 0 0 defaultButtonPaneHeight)) + ((textMorph: text) (0 0.4 1 1) (0 defaultButtonPaneHeight 0 0)) - ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 30 0 0)) - ((innerButtonRow) (0 0.4 1 0.4) (0 0 0 30)) - ((textMorph: text) (0 0.4 1 1) (0 30 0 0)) )]. ^ { + #((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)). + #((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 defaultButtonPaneHeight 0 0)). + #((innerButtonRow) (0 0.4 1 0.4) (0 0 0 defaultButtonPaneHeight)). + { #(textMorph: annotations). #(0 0.4 1 0.4). { 0. self defaultButtonPaneHeight. 0. self defaultButtonPaneHeight+self defaultAnnotationPaneHeight. }}. + { #(textMorph: text). #(0 0.4 1 1). { 0. self defaultButtonPaneHeight+self defaultAnnotationPaneHeight. 0. 0.}} - #((buttonRow) (0 0 1 0) (0 0 0 30)). - #((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 30 0 0)). - #((innerButtonRow) (0 0.4 1 0.4) (0 0 0 30)). - { #(textMorph: annotations). #(0 0.4 1 0.4). { 0. 30. 0. 30+self defaultAnnotationPaneHeight. }}. - { #(textMorph: text). #(0 0.4 1 1). { 0. 30+self defaultAnnotationPaneHeight. 0. 0.}} }! Item was changed: ----- Method: MCOperationsBrowser>>widgetSpecs (in category 'ui') ----- widgetSpecs Preferences annotationPanes ifFalse: [ ^#( ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 0 0 0)) ((textMorph: text) (0 0.4 1 1)) ) ]. + ^ #( + ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 0 0 0)) + ((textMorph: annotations) (0 0.4 1 0.4) (0 0 0 defaultAnnotationPaneHeight)) + ((textMorph: text) (0 0.4 1 1) (0 defaultAnnotationPaneHeight 0 0)) + )! - ^ { - #((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 0 0 0)). - { #(textMorph: annotations). #(0 0.4 1 0.4). { 0. 0. 0. self defaultAnnotationPaneHeight. } }. - { #(textMorph: text). #(0 0.4 1 1). { 0. self defaultAnnotationPaneHeight. 0. 0. } }. - }! Item was changed: ----- Method: MCRepositoryInspector>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs + ^#( ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) + ((listMorph: package) (0 0 0.5 0.6) (0 defaultButtonPaneHeight 0 0)) + ((listMorph: version) (0.5 0 1 0.6) (0 defaultButtonPaneHeight 0 0)) - ^#( ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((listMorph: package) (0 0 0.5 0.6) (0 30 0 0)) - ((listMorph: version) (0.5 0 1 0.6) (0 30 0 0)) ((textMorph: summary) (0 0.6 1 1) (0 0 0 0)) )! Item was changed: ----- Method: MCSaveVersionDialog>>widgetSpecs (in category 'ui') ----- widgetSpecs ^ #( ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 0.5 0.6) (0 0 0 -47) ) + ((inputMorph: versionName) (0.5 0 1 0) (0 0 0 defaultInputFieldHeight)) + ((textMorph: logMessage) (0.5 0 1 0.6) (0 defaultInputFieldHeight 0 -47)) - ((inputMorph: versionName) (0.5 0 1 0) (0 0 0 30)) - ((textMorph: logMessage) (0.5 0 1 0.6) (0 30 0 -47)) ((buttonRow) (0.5 0.6 1 0.6) (0 -47 0 0)) ((textMorph: annotations) (0 0.6 0.5 0.6) (0 -47 0 0)) ((textMorph: text) (0 0.6 1 1) (0 0 0 0)) )! Item was changed: ----- Method: MCSnapshotBrowser>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs Preferences annotationPanes ifFalse: [ ^#( ((listMorph: category) (0 0 0.25 0.4)) ((listMorph: class) (0.25 0 0.50 0.4) (0 0 0 -30)) ((listMorph: protocol) (0.50 0 0.75 0.4)) ((listMorph:selection:menu:keystroke: methodList methodSelection methodListMenu: methodListKey:from:) (0.75 0 1 0.4)) ((buttonRow) (0.25 0.4 0.5 0.4) (0 -30 0 0)) ((codePane: text) (0 0.4 1 1)) ) ]. ^#( ((listMorph: category) (0 0 0.25 0.4)) ((listMorph: class) (0.25 0 0.50 0.4) (0 0 0 -30)) ((listMorph: protocol) (0.50 0 0.75 0.4)) ((listMorph:selection:menu:keystroke: methodList methodSelection methodListMenu: methodListKey:from:) (0.75 0 1 0.4)) ((buttonRow) (0.25 0.4 0.5 0.4) (0 -30 0 0)) + ((inputMorph: annotations) (0 0.4 1 0.4) (0 0 0 defaultInputFieldHeight)) + ((codePane: text) (0 0.4 1 1) (0 defaultInputFieldHeight 0 0)) - ((inputMorph: annotations) (0 0.4 1 0.4) (0 0 0 30)) - ((codePane: text) (0 0.4 1 1) (0 30 0 0)) )! Item was changed: ----- Method: MCTool>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowBuilder | windowBuilder := MCToolWindowBuilder builder: builder tool: self. self widgetSpecs do: [:spec | | send fractions offsets | send := spec first. + fractions := (spec at: 2 ifAbsent: [#(0 0 1 1)]) copy. + offsets := (spec at: 3 ifAbsent: [#(0 0 0 0)]) copy. + + fractions doWithIndex: [:numberOrSymbol :index | + numberOrSymbol isSymbol + ifTrue: [fractions at: index put: (self perform: numberOrSymbol)]]. + offsets doWithIndex: [:numberOrSymbol :index | + numberOrSymbol isSymbol + ifTrue: [offsets at: index put: (self perform: numberOrSymbol)]]. + - fractions := spec at: 2 ifAbsent: [#(0 0 1 1)]. - offsets := spec at: 3 ifAbsent: [#(0 0 0 0)]. windowBuilder frame: (LayoutFrame fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth) offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth)). windowBuilder perform: send first withArguments: send allButFirst]. ^ windowBuilder build ! Item was changed: ----- Method: MCTool>>defaultAnnotationPaneHeight (in category 'morphic ui') ----- defaultAnnotationPaneHeight "Answer the receiver's preferred default height for new annotation panes. Since MC compares two annotations, reserve a bit less than a double the traditional height." + + ^ Preferences standardDefaultTextFont height * 3! - ^ (Preferences parameterAt: #defaultAnnotationPaneHeight ifAbsentPut: [25]) * 5 // 3! Item was changed: ----- Method: MCTool>>defaultButtonPaneHeight (in category 'morphic ui') ----- defaultButtonPaneHeight "Answer the user's preferred default height for new button panes." + ^ (Preferences standardButtonFont height * 2.5) rounded! - ^ Preferences parameterAt: #defaultButtonPaneHeight ifAbsentPut: [25]! Item was added: + ----- Method: MCTool>>defaultInputFieldHeight (in category 'morphic ui') ----- + defaultInputFieldHeight + + ^ Preferences standardDefaultTextFont height * 2! Item was changed: ----- Method: MCVersionInspector>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs ^ #( + ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) + ((textMorph: summary) (0 0 1 1) (0 defaultButtonPaneHeight 0 0)) - ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((textMorph: summary) (0 0 1 1) (0 30 0 0)) )! Item was changed: ----- Method: MCWorkingCopyBrowser>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs ^ #( + ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) + ((treeOrListMorph: workingCopy) (0 0 0.5 1) (0 defaultButtonPaneHeight 0 0)) + ((listMorph: repository) (0.5 0 1 1) (0 defaultButtonPaneHeight 0 0)) - ((buttonRow) (0 0 1 0) (0 0 0 30)) - ((treeOrListMorph: workingCopy) (0 0 0.5 1) (0 30 0 0)) - ((listMorph: repository) (0.5 0 1 1) (0 30 0 0)) )!

1 0

The Trunk: Tools-mt.612.mcz
by commits＠source.squeak.org 30 Apr '15

30 Apr '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.612.mcz ==================== Summary ==================== Name: Tools-mt.612 Author: mt Time: 30 April 2015, 12:05:16.513 pm UUID: 4ffff371-c71a-654a-97a3-fb478e179170 Ancestors: Tools-mt.611 Minor cosmetic fix regarding space between code pane and annotation pane in code holders. It now correctly corresponds to the (surrounding) panel's #cellInset. =============== Diff against Tools-mt.611 =============== Item was changed: ----- Method: CodeHolder>>annotationFrame (in category 'toolbuilder') ----- annotationFrame ^LayoutFrame new leftFraction: 0 offset: 0; + topFraction: 1 offset: self annotationPaneHeight negated; - topFraction: 1 offset: self annotationPaneHeight negated - 1; rightFraction: 1 offset: 0; bottomFraction: 1 offset: 0! Item was changed: ----- Method: CodeHolder>>annotationPaneHeight (in category 'toolbuilder') ----- annotationPaneHeight + ^ (Preferences standardCodeFont height * 3/2) rounded! - ^Preferences standardCodeFont height * 3/2!

1 0

The Trunk: Tools-mt.611.mcz
by commits＠source.squeak.org 30 Apr '15

30 Apr '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.611.mcz ==================== Summary ==================== Name: Tools-mt.611 Author: mt Time: 30 April 2015, 11:56:08.088 am UUID: c60f763b-2f7f-224f-b789-42f04dd883aa Ancestors: Tools-mt.610 Minor cosmetic, pixel-based changes in browsers, package browsers, and debuggers. =============== Diff against Tools-mt.610 =============== Item was changed: ----- Method: Browser>>buildSwitchesWith: (in category 'toolbuilder') ----- buildSwitchesWith: builder "Build the instance/comment/class switch" | panelSpec buttonSpec | panelSpec := builder pluggablePanelSpec new layout: #horizontal; children: OrderedCollection new; yourself. buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self; label: 'instance'; state: #instanceMessagesIndicated; action: #indicateInstanceMessages. panelSpec children addLast: buttonSpec. buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self; + label: '?'; + help: 'Cycle between definition, comment, and hierarchy view' translated; - label: '?'; state: #classCommentIndicated; action: #plusButtonHit. panelSpec children addLast: buttonSpec. buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self; label: 'class'; state: #classMessagesIndicated; action: #indicateClassMessages. panelSpec children addLast: buttonSpec. ^panelSpec! Item was changed: ----- Method: Browser>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" | windowSpec max | max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. windowSpec := self buildWindowWith: builder specs: { (0@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder]. + (self classListFrame: max fromLeft: 0.25 width: 0.25) -> [self buildClassListWith: builder]. + (self switchesFrame: max fromLeft: 0.25 width: 0.25) -> [self buildSwitchesWith: builder]. - (0.25@0 corner: 0.5(a)(max-0.08)) -> [self buildClassListWith: builder]. - (0.25(a)(max-0.08) corner: 0.5@max) -> [self buildSwitchesWith: builder]. (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. }. ^builder build: windowSpec! Item was changed: ----- Method: Browser>>classListFrame:fromTop:fromLeft:width: (in category 'initialize-release') ----- classListFrame: bottomFraction fromTop: topFraction fromLeft: leftFraction width: rightFraction ^LayoutFrame new leftFraction: leftFraction offset: 0; topFraction: topFraction offset: 0; rightFraction: (leftFraction + rightFraction) offset: 0; + bottomFraction: bottomFraction offset: self buttonHeight negated! - bottomFraction: bottomFraction offset: self buttonHeight negated - 3! Item was changed: ----- Method: Browser>>openOnClassWithEditString: (in category 'initialize-release') ----- openOnClassWithEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." "Example: Browser newOnClass: Browser. " | builder max | builder := ToolBuilder default. max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. ^self buildWindowWith: builder specs: { + (self topConstantHeightFrame: self buttonHeight fromLeft: 0 width: 0.5) -> [self buildClassListSingletonWith: builder]. - (0.0(a)0.0 corner: 0.5(a)0.08) -> [self buildClassListSingletonWith: builder]. (self frameOffsetFromTop: self buttonHeight fromLeft: 0 width: 0.5 bottomFraction: max) -> [self buildMessageCategoryListWith: builder]. (self topConstantHeightFrame: self buttonHeight fromLeft: 0.5 width: 0.5) -> [self buildSwitchesWith: builder]. (self frameOffsetFromTop: self buttonHeight fromLeft: 0.5 width: 0.5 bottomFraction: max) -> [self buildMessageListWith: builder]. (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. } ! Item was changed: ----- Method: Browser>>switchesFrame:fromLeft:width: (in category 'initialize-release') ----- switchesFrame: bottomFraction fromLeft: leftFraction width: rightFraction ^LayoutFrame new leftFraction: leftFraction offset: 0; + topFraction: bottomFraction offset: self buttonHeight negated; - topFraction: bottomFraction offset: self buttonHeight negated - 4; rightFraction: (leftFraction + rightFraction) offset: 0; bottomFraction: bottomFraction offset: 0! Item was changed: ----- Method: Debugger>>contextStackFrame (in category 'toolbuilder') ----- contextStackFrame + + | topOffset | - | spacing topOffset | - spacing := 3. topOffset := self wantsOptionalButtons + ifTrue: [self buttonHeight] + ifFalse: [0]. - ifTrue: [self buttonHeight + spacing] - ifFalse: [spacing]. ^LayoutFrame new leftFraction: 0 offset: 0; topFraction: 0 offset: topOffset; rightFraction: 1 offset: 0; bottomFraction: 1 offset: 0! Item was changed: ----- Method: PackagePaneBrowser>>openEditString: (in category 'initialize-release') ----- openEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." "Example: PackagePaneBrowser fullOnClass: Browser. " | builder max | builder := ToolBuilder default. max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. ^self buildWindowWith: builder specs: { (0@0 corner: 0.15@max) -> [self buildPackageListWith: builder]. (0.15@0 corner: 0.35@max) -> [self buildSystemCategoryListWith: builder]. + (self classListFrame: max fromLeft: 0.35 width: 0.25) -> [self buildClassListWith: builder]. + (self switchesFrame: max fromLeft: 0.35 width: 0.25) -> [self buildSwitchesWith: builder]. - (0.35@0 corner: 0.6(a)(max-0.1)) -> [self buildClassListWith: builder]. - (0.35(a)(max-0.1) corner: 0.6@max) -> [self buildSwitchesWith: builder]. (0.6@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. }!

1 0

The Trunk: Morphic-mt.951.mcz
by commits＠source.squeak.org 30 Apr '15

30 Apr '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.951.mcz ==================== Summary ==================== Name: Morphic-mt.951 Author: mt Time: 30 April 2015, 11:22:31.617 am UUID: cd0add46-eb53-a74e-87aa-c6824f6f2512 Ancestors: Morphic-mt.950 Some layout issues fixed in Font importer tool. Code clean-up, too. =============== Diff against Morphic-mt.950 =============== Item was changed: + Model subclass: #FontImporterTool + instanceVariableNames: 'title allFonts emphasis currentSelection currentParent warningSeen' - StringHolder subclass: #FontImporterTool - instanceVariableNames: 'title allFonts emphasis window currentSelection currentParent warningSeen' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Support'! !FontImporterTool commentStamp: 'topa 3/9/2015 18:56' prior: 0! A tool to import platform (native) fonts into the image! Item was removed: - ----- Method: FontImporterTool class>>default (in category 'accessing') ----- - default - "Answer the default font imporer tool, ie me - (polymorphic with font chooser) - " - ^ self! Item was removed: - ----- Method: FontImporterTool class>>openWithWindowTitle:for:setSelector:getSelector: (in category 'opening') ----- - openWithWindowTitle: titleString for: anObject setSelector: setSelector getSelector: getSelector - " - FontChooserTool - openWithWindowTitle: 'Choose the Menu Font' - for: Preferences - setSelector: #setMenuFontTo: - getSelector: #standardMenuFont. - " - ^(self withTitle: titleString for: anObject setSelector: setSelector getSelector: getSelector) open! Item was removed: - ----- Method: FontImporterTool class>>windowTitle:for:setSelector:getSelector: (in category 'opening') ----- - windowTitle: titleString for: anObject setSelector: setSelector getSelector: getSelector - | instance | - - instance := self new. - instance - title: titleString; - target: anObject; - setSelector: setSelector; - getSelector: getSelector. - ^instance open! Item was removed: - ----- Method: FontImporterTool class>>withTitle:for:setSelector:getSelector: (in category 'opening') ----- - withTitle: titleString for: anObject setSelector: setSelector getSelector: getSelector - " - (FontChooserTool - withTitle: 'Choose the Menu Font' - for: Preferences - setSelector: #setMenuFontTo: - getSelector: #standardMenuFont) open. - " - | instance | - instance := self new. - instance - title: titleString; - target: anObject; - setSelector: setSelector; - getSelector: getSelector. - ^instance! Item was changed: ----- Method: FontImporterTool>>buildButtonBarWith: (in category 'toolbuilder') ----- buildButtonBarWith: builder "Build the button bar" | panelSpec buttonSpec | panelSpec := builder pluggablePanelSpec new. + panelSpec + layout: #horizontal; + children: OrderedCollection new. - panelSpec children: OrderedCollection new. buttonSpec := builder pluggableButtonSpec new model: self; + label: 'Import' translated; - label: ' Import ' translated; help: 'Include the font data in the image and provide a TextStyle for the font'; action: #import; - frame: (0@0 corner: 0.5@1); yourself. panelSpec children addLast: buttonSpec. buttonSpec := builder pluggableButtonSpec new model: self; + label: 'Close' translated; - label: ' Close ' translated; action: #close; - frame: (0.5@0 corner: 1@1); yourself. panelSpec children addLast: buttonSpec. ^panelSpec! Item was changed: ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'toolbuilder') ----- buildPreviewPaneWith: builder "Build the preview panel" ^ builder pluggablePanelSpec new + wantsResizeHandles: true; children: { builder pluggableInputFieldSpec new model: self; getText: #filename; readOnly: true; indicateUnacceptedChanges: false; font: self filenameFont; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ self filenameHeight)); yourself. + builder pluggableTextSpec new + model: self; + getText: #previewText; - (self buildCodePaneWith: builder) - name: #preview; askBeforeDiscardingEdits: false; indicateUnacceptedChanges: false; + softLineWrap: false; frame: (LayoutFrame fractions: (0@0 corner: 1(a)0.75) offsets: (0@ self filenameHeight corner: 0@0)); yourself. builder pluggableTextSpec new model: self; getText: #copyright; readOnly: true; indicateUnacceptedChanges: false; frame: (LayoutFrame fractions: (0(a)0.75 corner: 1@1)); yourself }; yourself! Item was added: + ----- Method: FontImporterTool>>buildWindowWith:specs: (in category 'toolbuilder') ----- + buildWindowWith: builder specs: specs + | windowSpec | + windowSpec := builder pluggableWindowSpec new. + windowSpec + model: self; + label:'Choose a Font to import' translated; + extent: self initialExtent; + children: OrderedCollection new. + + specs do:[:assoc| + | rect action widgetSpec | + rect := assoc key. + action := assoc value. + widgetSpec := action value. + widgetSpec ifNotNil:[ + widgetSpec frame: rect. + windowSpec children add: widgetSpec]]. + ^windowSpec! Item was changed: ----- Method: FontImporterTool>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" "ToolBuilder open: self" + | windowSpec | windowSpec := self buildWindowWith: builder specs: { (self fontListFrame) -> [self buildFontListWith: builder]. (self previewFrame) -> [self buildPreviewPaneWith: builder]. (self buttonsFrame) -> [self buildButtonBarWith: builder]. }. + ^ builder build: windowSpec! - windowSpec extent: self initialExtent. - window := builder build: windowSpec. - "Yes, that's a hack. But it looks ugly with line breaks." - (builder widgetAt: #preview) textMorph wrapFlag: false. - ^window! Item was changed: + ----- Method: FontImporterTool>>buttonHeight (in category 'layout') ----- - ----- Method: FontImporterTool>>buttonHeight (in category 'toolbuilder') ----- buttonHeight ^ Preferences standardButtonFont height * 3! Item was changed: + ----- Method: FontImporterTool>>buttonsFrame (in category 'layout') ----- - ----- Method: FontImporterTool>>buttonsFrame (in category 'toolbuilder') ----- buttonsFrame ^ LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@ self buttonHeight negated corner: 0@0) ! Item was changed: ----- Method: FontImporterTool>>close (in category 'actions') ----- close + self changed: #close.! - ToolBuilder default close: window.! Item was removed: - ----- Method: FontImporterTool>>contents (in category 'toolbuilder') ----- - contents - | sample i c f | - sample := WriteStream on: ''. - f := self selectedFont ifNil:[^Text new]. - (f isSymbolFont or: [(self font: f hasGlyphOf: $a) not]) ifFalse:[ - sample - nextPutAll: 'the quick brown fox jumps over the lazy dog' ;cr; - nextPutAll: 'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' ;cr;cr; - nextPutAll: '0123456789'; cr; cr; - nextPutAll: - 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, - sed do eiusmod tempor incididunt ut labore et dolore - magna aliqua. Ut enim ad minim veniam, quis nostrud - exercitation ullamco laboris nisi ut aliquip ex ea commodo - consequat. Duis aute irure dolor in reprehenderit in voluptate - velit esse cillum dolore eu fugiat nulla pariatur. Excepteur - sint occaecat cupidatat non proident, sunt in culpa qui - officia deserunt mollit anim id est laborum.' - ] ifTrue:[ - i := 0. - 33 to: 255 do:[:ci | - sample nextPut: (c:=Character value: ci). - i := i + 1. - (('@Z`z' includes:c) or:[i = 30]) - ifTrue:[i :=0. sample cr]]. - ]. - sample := sample contents asText. - sample addAttribute: (TextFontReference toFont: f). - ^sample! Item was changed: + ----- Method: FontImporterTool>>copyright (in category 'model access') ----- - ----- Method: FontImporterTool>>copyright (in category 'toolbuilder') ----- copyright | f | f := self selectedFont ifNil:[^ '']. ^ f isTTCFont ifTrue: [f ttcDescription copyright ifNil: ['']] ifFalse: ['']! Item was changed: + ----- Method: FontImporterTool>>filename (in category 'model access') ----- - ----- Method: FontImporterTool>>filename (in category 'toolbuilder') ----- filename ^ self currentSelection ifNil: [''] ifNotNil: [:sel | String streamContents: [:stream | sel allFilenames do: [:filename | stream nextPutAll: filename] separatedBy: [stream nextPut: $,;nextPut: $ ]]]! Item was changed: + ----- Method: FontImporterTool>>filenameHeight (in category 'layout') ----- - ----- Method: FontImporterTool>>filenameHeight (in category 'toolbuilder') ----- filenameHeight + ^ self filenameFont height * 2! - ^ (self filenameFont lineGrid * 1.5) truncated! Item was changed: + ----- Method: FontImporterTool>>font:hasGlyphOf: (in category 'helper') ----- - ----- Method: FontImporterTool>>font:hasGlyphOf: (in category 'toolbuilder') ----- font: f hasGlyphOf: aCharacter | font | font := f isFontSet ifTrue: [f fontArray first] ifFalse: [f]. ^ font isTTCFont ifFalse: [font hasGlyphOf: aCharacter] ifTrue: [ " [(f hasGlyphOf: aCharacter) not] does not work, the fallback glyph is always found instead. So we fake. if aCharacter is the same form as Character null aka 0, we assume absence." (font characterFormAt: aCharacter) bits ~= font fallbackForm bits] ! Item was changed: + ----- Method: FontImporterTool>>fontListFrame (in category 'layout') ----- - ----- Method: FontImporterTool>>fontListFrame (in category 'toolbuilder') ----- fontListFrame ^ LayoutFrame fractions: (0@0 corner: 0.4@1) + offsets: (0@0 corner: 0@ self buttonHeight negated)! - offsets: (0@0 corner: 0@ self buttonHeight negated + 4)! Item was changed: ----- Method: FontImporterTool>>initialize (in category 'initialize') ----- initialize + super initialize. - title := 'Choose a Font to import'. emphasis := 0. ! Item was changed: + ----- Method: FontImporterTool>>labelOf: (in category 'model access') ----- - ----- Method: FontImporterTool>>labelOf: (in category 'accessing') ----- labelOf: aFontDescription ^ aFontDescription fontname ! Item was changed: + ----- Method: FontImporterTool>>open (in category 'initialize') ----- - ----- Method: FontImporterTool>>open (in category 'toolbuilder') ----- open ^ToolBuilder open: self! Item was changed: + ----- Method: FontImporterTool>>previewFrame (in category 'layout') ----- - ----- Method: FontImporterTool>>previewFrame (in category 'toolbuilder') ----- previewFrame ^ LayoutFrame fractions: (0.4@0 corner: 1@1) + offsets: (0@0 corner: 0@ self buttonHeight negated)! - offsets: (0@0 corner: 0@ self buttonHeight negated + 4)! Item was added: + ----- Method: FontImporterTool>>previewText (in category 'model access') ----- + previewText + | sample i c f | + sample := WriteStream on: ''. + f := self selectedFont ifNil:[^Text new]. + (f isSymbolFont or: [(self font: f hasGlyphOf: $a) not]) ifFalse:[ + sample + nextPutAll: 'the quick brown fox jumps over the lazy dog' ;cr; + nextPutAll: 'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' ;cr;cr; + nextPutAll: '0123456789'; cr; cr; + nextPutAll: + 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, + sed do eiusmod tempor incididunt ut labore et dolore + magna aliqua. Ut enim ad minim veniam, quis nostrud + exercitation ullamco laboris nisi ut aliquip ex ea commodo + consequat. Duis aute irure dolor in reprehenderit in voluptate + velit esse cillum dolore eu fugiat nulla pariatur. Excepteur + sint occaecat cupidatat non proident, sunt in culpa qui + officia deserunt mollit anim id est laborum.' + ] ifTrue:[ + i := 0. + 33 to: 255 do:[:ci | + sample nextPut: (c:=Character value: ci). + i := i + 1. + (('@Z`z' includes:c) or:[i = 30]) + ifTrue:[i :=0. sample cr]]. + ]. + sample := sample contents asText. + sample addAttribute: (TextFontReference toFont: f). + ^sample! Item was changed: + ----- Method: FontImporterTool>>textForFamily:subfamily: (in category 'helper') ----- - ----- Method: FontImporterTool>>textForFamily:subfamily: (in category 'accessing') ----- textForFamily: familyName subfamily: subfamilyName subfamilyName ifNil: [ ^ (TextStyle named: familyName) ifNil: [familyName] ifNotNil: [:style | style isTTCStyle ifTrue: ["we are already present " Text string: familyName attribute: TextEmphasis underlined] ifFalse: [familyName]]]. " frome here on it is only about subfamilies" (self isStyleNameSupported: subfamilyName) ifFalse: [^ Text string: subfamilyName attribute: TextColor gray]. ^ (TextStyle named: familyName) ifNil: ["importable" subfamilyName] ifNotNil: [:style | (style isTTCStyle and: [ | regular emph | regular := style fonts anyOne. emph := TTCFont indexOfSubfamilyName: subfamilyName. " detect if this style is already imported " regular emphasis = emph or: [(regular emphasis: emph) ~= regular]]) ifFalse: ["again importable" subfamilyName] ifTrue: [Text string: subfamilyName attribute: TextEmphasis underlined]]! Item was removed: - ----- Method: FontImporterTool>>title (in category 'accessing') ----- - title - - ^ title! Item was removed: - ----- Method: FontImporterTool>>title: (in category 'accessing') ----- - title: anObject - "Set the value of title" - - title := anObject! Item was removed: - ----- Method: FontImporterTool>>window (in category 'accessing') ----- - window - ^window! Item was removed: - ----- Method: FontImporterTool>>window: (in category 'accessing') ----- - window: anObject - - window := anObject! Item was removed: - ----- Method: FontImporterTool>>windowTitle (in category 'initialize') ----- - windowTitle - ^ title translated!

1 0

The Trunk: Files-cmm.144.mcz
by commits＠source.squeak.org 30 Apr '15

30 Apr '15

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.144.mcz ==================== Summary ==================== Name: Files-cmm.144 Author: cmm Time: 29 April 2015, 8:53:59.602 pm UUID: 308a68a6-d0f3-4fdb-a4ba-e8fe35fa6a99 Ancestors: Files-dtl.143 - Fix up asBytesDescription. - Remove a redundant override. =============== Diff against Files-dtl.143 =============== Item was changed: ----- Method: Integer>>asBytesDescription (in category '*files') ----- asBytesDescription "Answer a terse, easily-readable representation of this Integer as a number of bytes. Useful for file-browsers." + | sign abs suffixes units | + sign := self negative ifTrue: ['-'] ifFalse: [String empty]. + abs := self abs. + suffixes := { '' "bytes". 'k'"ilobytes". 'M'"egabytes". 'G'"igabytes". 'T'"erabytes". 'P'"etabytes". 'E'"xabytes". 'Z'"ettabytes". 'Y'"ottabytes"}. + 1 to: suffixes size do: + [ : index | - | suffixes | - self isZero ifTrue: [ ^ '0' ]. - suffixes := { 'k'"ilobytes". 'M'"egabytes". 'G'"igabytes". 'T'"erabytes". 'P'"etabytes". 'E'"xabytes". 'Z'"ettabytes". 'Y'"ottabytes"}. - suffixes size to: 1 by: -1 do: - [ : index | | units rounded | units := 1000 raisedTo: index. + units>abs ifTrue: [ ^ sign,(abs/(units/1000)) rounded asString,(suffixes at: index) ] ]. + ^ sign,(abs/units) rounded,'Y'! - rounded := ((self/units) rounded)*units. - (rounded/self between: 0.95 and: 1.05) ifTrue: [ ^ ((self / units) rounded) asString, (suffixes at: index) ] ]. - ^ self asString! Item was removed: - ----- Method: StandardFileStream>>next:into:startingAt: (in category 'read, write, position') ----- - next: n into: aString startingAt: startIndex - "Read n bytes into the given string. - Return aString or a partial copy if less than - n elements have been read." - - | count | - count := self readInto: aString startingAt: startIndex count: n. - count = n - ifTrue:[ ^aString ] - ifFalse:[ ^aString copyFrom: 1 to: startIndex + count - 1 ]!

1 0

Daily Commit Log
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-April/008168.html Name: System-cmm.728 Ancestors: System-cmm.724, System-kfr.727 Restored the much safer version of Preferences class>>#preferenceAt:ifAbsent:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008169.html Name: Morphic-mt.946 Ancestors: Morphic-mt.945, Morphic-DS.916 Basic hook added to support non-uniform border styles such as "top line only". ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008170.html Name: System-kfr.729 Ancestors: System-cmm.728 Add a 'refresh this menu' item to the Standard System Fonts menu, so it can update to reflect the current selected fonts ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008171.html Name: System-kfr.730 Ancestors: System-kfr.729 Make sure the menu icons are added if needed to Standard System Fonts menu ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008172.html Name: Morphic-kfr.947 Ancestors: Morphic-mt.946 Add items from Standard System Fonts menu so they are decorated with icons ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008173.html Name: Graphics-mt.312 Ancestors: Graphics-mt.311 Some descriptive testing functions added to layout frame. Also extracted calculation of minimum extent to separate methods for allowing layouting algorithms to process them separately and thus avoiding unnecessary calculations. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008174.html Name: ToolBuilder-Kernel-mt.85 Ancestors: ToolBuilder-Kernel-mt.84 Added configuration options for margin, padding, and resize handles (i.e. splitter morphs in Morphic) to widget and composite specs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008175.html Name: Tools-mt.609 Ancestors: Tools-cmm.608 Removed an old hack for editors (?) that received all menu callbacks (instead of the model). This is not good for new tools as we can see in almost all subclasses of Model and what they overwrite (first?). :) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008176.html Name: ToolBuilder-Kernel-mt.86 Ancestors: ToolBuilder-Kernel-mt.85 Removed default value for #wantsResizeHandles because we want to decide that in the specific builders. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008177.html Name: Tools-mt.610 Ancestors: Tools-mt.609 Remove hard-coded spacing below optional buttons in code holder. (Not needed anymore.) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008178.html Name: Morphic-mt.948 Ancestors: Morphic-kfr.947 Fixed several layouting issues regarding splitters, grips, panes, and windows. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008179.html Name: Morphic-mt.949 Ancestors: Morphic-mt.948 Fixed minor glitches in buttons. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008180.html Name: ToolBuilder-Morphic-mt.142 Ancestors: ToolBuilder-Morphic-mt.141 Fixed some minor layout issues when building panes or windows. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008181.html Name: Morphic-mt.950 Ancestors: Morphic-mt.949 Add some useful defaults for layoutInset and cellInset to support non-Toolbuilder tools and their system windows. =============================================

1 0

ARM Cog fires up
by tim Rowledge 29 Apr '15

29 Apr '15

After a lot of ‘fun’ yesterday I managed to compile a debug cog arm vm a few minutes ago. It started up loaded the image and very quickly failed. The really cool part is that it failed ‘politely’ by detecting its own problem and opening a debugger (squeak, not gdb) and it failed pretty much exactly where the simulation failed last week. Which means around 130 million bytecodes were translated and run, with some 2500 compiled methods translated and at least one full garbage collection. https://plus.google.com/107730379469391818270/posts/hiGXJeLjbUq tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Science adjusts its views based on what is observed. Faith denies observation so belief can be preserved

4 4

MCMcmUpdater update map name
by David T. Lewis 29 Apr '15

29 Apr '15

In MCMcmUpdater, the UpdateMapName is initialized from a preference. This is 'update.spur' for the Spur image, and 'update' otherwise. This supports the parallel update streams for Spur and non-Spur images. A side effect is that certain packages (e.g. head branch for OSProcess) cannot be loaded from SqueakMap because the loader does this: MCMcmUpdater updateFromRepositories: #('http://www.squeaksource.com/OSProcess') which does not work when UpdateMapName is set to 'update.spur' because the OSProcess repository has only update maps named 'update' (and there would be no difference between Spur and non-Spur anyway). MCMcmUpdater is a collection of class-side methods, and this is making me think that it may be time to have it be instance based, so that different updaters (one for OSProcess, another for Squeak trunk) could know what update map files to look for. I am not entirely clear on how the update stream (or streams?) for trunk will work after we move to the Spur image in 5.0/4.6, but it seems desirable that an external package (OSProcess, VMMaker, others) should be able to specify the name of its own update maps independent of the Squeak trunk update preferences. How should this work? Does it make sense to move the logic for MCMcmUpdater into instance side methods so that more than one instance of MCMcmUpdater can exist? Or maybe it is sufficient to find a way to implement this: MCMcmUpdater class>>updateFromRepositories:updateMapName: so that a SqueakMap package loader could override the default preferences for trunk? Dave

3 3

The Trunk: Morphic-mt.950.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.950.mcz ==================== Summary ==================== Name: Morphic-mt.950 Author: mt Time: 29 April 2015, 7:25:04.297 pm UUID: 54cdcc0b-9f1f-f84c-9d8d-7a47a1f82885 Ancestors: Morphic-mt.949 Add some useful defaults for layoutInset and cellInset to support non-Toolbuilder tools and their system windows. =============== Diff against Morphic-mt.949 =============== Item was changed: ----- Method: SystemWindow>>initialize (in category 'initialization') ----- initialize "Initialize a system window. Add label, stripes, etc., if desired" super initialize. self layoutPolicy: ProportionalLayout new. + self wantsPaneSplitters: true. + self layoutInset: ProportionalSplitterMorph gripThickness. + self cellInset: ProportionalSplitterMorph gripThickness. + self initializeLabelArea. self addCornerGrips. self setDefaultParameters. allowReframeHandles := true. isCollapsed := false. activeOnlyOnTop := true. paneMorphs := Array new. mustNotClose := false. updatablePanes := Array new.!

1 0

← Newer
1
2
3
4
5
6
7
...
65
Older →

Jump to page: