Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

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

30 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.793.mcz ==================== Summary ==================== Name: Morphic-mt.793 Author: mt Time: 30 March 2015, 3:57:32.562 pm UUID: 229243f9-466f-da4c-ac19-b77b846ca678 Ancestors: Morphic-mt.792 Attempt to fix the proceed-bug, which, under certain conditions, caused flickering and slow display update after proceeding a UI process. =============== Diff against Morphic-mt.792 =============== Item was changed: ----- Method: Debugger>>morphicResumeProcess: (in category '*Morphic-opening') ----- morphicResumeProcess: aTopView + | processToResume | + processToResume := interruptedProcess. + interruptedProcess := nil. "Before delete, so release doesn't terminate it" + aTopView delete. + World displayWorld. "We have to redraw *before* resuming the old process." + Smalltalk installLowSpaceWatcher. "restart low space handler" + savedCursor ifNotNil: [Cursor currentCursor: savedCursor]. + processToResume isTerminated ifFalse: [ - interruptedProcess isTerminated ifFalse: [ errorWasInUIProcess + ifTrue: [Project resumeProcess: processToResume] + ifFalse: [processToResume resume]]. - ifTrue: [Project resumeProcess: interruptedProcess] - ifFalse: [interruptedProcess resume]]. "if old process was terminated, just terminate current one" - interruptedProcess := nil. "Before delete, so release doesn't terminate it" - aTopView delete. - World displayWorld. - Smalltalk installLowSpaceWatcher. "restart low space handler" errorWasInUIProcess == false ifFalse: [Processor terminateActive]!

1 0

The Trunk: SUnitTools-topa.2.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Tobias Pape uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-topa.2.mcz ==================== Summary ==================== Name: SUnitTools-topa.2 Author: topa Time: 30 March 2015, 11:20:45.675 am UUID: 39c2ee8e-382f-4c49-b0a6-b9717d7ec5d2 Ancestors: SUnitTools-topa.1 Push up #hasClassWithTestsSelected to not upset, eg, ChangeSorter. Reported by Karl Ramberg. Thanks. =============== Diff against SUnitTools-topa.1 =============== Item was removed: - ----- Method: Browser>>hasClassWithTestsSelected (in category '*SUnitTools-class list functions') ----- - hasClassWithTestsSelected - - ^ (self selectedClass isTestClass and: [self selectedClass isAbstract not])! Item was added: + ----- Method: StringHolder>>hasClassWithTestsSelected (in category '*SUnitTools-testing') ----- + hasClassWithTestsSelected + + ^ self selectedClass + ifNil: [false] + ifNotNil: [:cls | + cls isTestClass and: [cls isAbstract not]]!

1 0

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

30 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.792.mcz ==================== Summary ==================== Name: Morphic-mt.792 Author: mt Time: 30 March 2015, 11:18:11.286 am UUID: 39a16136-7792-1345-9ca5-577960dc6494 Ancestors: Morphic-mt.791 Fix typos. =============== Diff against Morphic-mt.791 =============== Item was changed: ----- Method: ClickExerciser class>>descriptionForPartsBin (in category 'parts bin') ----- descriptionForPartsBin + "ClickExerciser descriptionForPartsBin" + ^ self partName: 'Exercise Click' - "WizClickExample descriptionForPartsBin" - ^ self partName: 'ExersizeClick' categories: #('Demo') + documentation: 'An exerciser for click, double-click, and drag-click in morphic'! - documentation: 'An exersizer for double-click in moprhic'!

1 0

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

30 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.791.mcz ==================== Summary ==================== Name: Morphic-mt.791 Author: mt Time: 30 March 2015, 11:15:05.11 am UUID: 2477a56b-ef43-7746-a965-0fbd71e8cb99 Ancestors: Morphic-mt.790 Defer line-breaking in balloon-texts until actual display time. Having this, even text objects can be stored as balloon-texts and an appropriate renderer may display that. =============== Diff against Morphic-mt.790 =============== Item was changed: ----- Method: Morph>>balloonText (in category 'accessing') ----- balloonText "Answer balloon help text or nil, if no help is available. NB: subclasses may override such that they programatically construct the text, for economy's sake, such as model phrases in a Viewer" | result | extension ifNil: [^nil]. extension balloonText ifNotNil: [:balloonText | result := balloonText] ifNil: [extension balloonTextSelector ifNotNil: [:balloonSelector | result := ScriptingSystem helpStringOrNilFor: balloonSelector. (result isNil and: [balloonSelector == #methodComment]) ifTrue: [result := self methodCommentAsBalloonHelp]. ((result isNil and: [balloonSelector numArgs = 0]) and: [self respondsTo: balloonSelector]) ifTrue: [result := self perform: balloonSelector]]]. + ^ result! - - ^ result ifNotNil: [:balloonText | - balloonText asString withNoLineLongerThan: Preferences maxBalloonHelpLineLength]! Item was changed: ----- Method: Morph>>setBalloonText: (in category 'halos and balloon help') ----- setBalloonText: stringOrText "Set receiver's balloon help text. Pass nil to remove the help." self flag: #deprecated. "mt: Use #balloonText:." + self balloonText: stringOrText.! - self setBalloonText: stringOrText maxLineLength: Preferences maxBalloonHelpLineLength! Item was changed: ----- Method: Morph>>showBalloon:hand: (in category 'halos and balloon help') ----- showBalloon: msgString hand: aHand "Pop up a balloon containing the given string, first removing any existing BalloonMorphs in the world." | w balloon h | (w := self world) ifNil: [^ self]. h := aHand. h ifNil:[ h := w activeHand]. + balloon := BalloonMorph + string: (msgString asString withNoLineLongerThan: Preferences maxBalloonHelpLineLength) + for: self balloonHelpAligner. - balloon := BalloonMorph string: msgString for: self balloonHelpAligner. balloon popUpFor: self hand: h.!

1 0

The Trunk: ToolBuilder-Morphic-mt.107.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.107.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.107 Author: mt Time: 30 March 2015, 11:05:54.366 am UUID: 6b98b55a-8662-944b-baab-7166bf663019 Ancestors: ToolBuilder-Morphic-mt.106 Fix drawing of balloonText in text fields to consider the actual bounds. =============== Diff against ToolBuilder-Morphic-mt.106 =============== Item was changed: ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') ----- drawBalloonTextOn: aCanvas "Show balloon text in the text morph if it has no contents." textMorph contents ifNotEmpty: [^ self]. self balloonText ifNotNil: [:text | aCanvas drawString: text + in: (self innerBounds insetBy: (5@2 corner: 0@0)) - at: self innerBounds topLeft + (5@2) font: textMorph textStyle defaultFont color: (Color gray: 0.7)].!

1 0

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

30 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.567.mcz ==================== Summary ==================== Name: Tools-mt.567 Author: mt Time: 30 March 2015, 11:04:29.662 am UUID: 8188486e-cd12-6b46-825a-9d43c3b3452a Ancestors: Tools-mt.566 Fix the use of inspector in object explorer (i.e., keyboard shortcuts and menus). =============== Diff against Tools-mt.566 =============== Item was removed: - ----- Method: ObjectExplorer>>chasePointers (in category 'menus - callbacks') ----- - chasePointers - "Open a PointerFinder on the selected item" - | path sel savedRoot saved | - path := OrderedCollection new. - sel := currentSelection. - [ sel isNil ] whileFalse: [ path addFirst: sel asString. sel := sel parent ]. - path addFirst: #openPath. - path := path asArray. - savedRoot := self rootObject. - saved := self object. - [ self rootObject: nil. - self changed: #getList. - (Smalltalk includesKey: #PointerFinder) - ifTrue: [PointerFinder on: saved] - ifFalse: [self objectReferencesToSelection ]] - ensure: [ self rootObject: savedRoot. - self changed: #getList. - self changed: path. - ]! Item was removed: - ----- Method: ObjectExplorer>>defsOfSelection (in category 'menus - callbacks') ----- - defsOfSelection - "Open a browser on all defining references to the selected instance variable, if that's what's currently selected." - | aClass sel | - - (aClass := self parentObject class) isVariable ifTrue: [^ self changed: #flash]. - sel := self selector. - self systemNavigation browseAllStoresInto: sel from: aClass! Item was removed: - ----- Method: ObjectExplorer>>doesNotUnderstand: (in category 'error handling') ----- - doesNotUnderstand: aMessage - inspector ifNotNil: [ (inspector respondsTo: aMessage selector) ifTrue: [ ^inspector perform: aMessage selector withArguments: aMessage arguments ]]. - ^super doesNotUnderstand: aMessage! Item was removed: - ----- Method: ObjectExplorer>>explorePointers (in category 'menus - callbacks') ----- - explorePointers - "Open a PointerExplorer on the current selection" - PointerExplorer new openExplorerFor: self object! Item was removed: - ----- Method: ObjectExplorer>>exploreSelection (in category 'menus - callbacks') ----- - exploreSelection - "Open an ObjectExplorer on the current selection" - self object explore! Item was changed: ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') ----- explorerKey: aChar from: view event: event event anyModifierKeyPressed ifFalse: [^ false]. currentSelection ifNotNil: [ + self updateInspectorForSelection. - inspector ifNil: [inspector := Inspector new]. - inspector - inspect: self parentObject; - object: self object. + aChar == $i ifTrue: [self inspector inspectSelection. ^ true]. + aChar == $I ifTrue: [self inspector exploreSelection. ^ true]. - aChar == $i ifTrue: [self inspectSelection. ^ true]. - aChar == $I ifTrue: [self exploreSelection. ^ true]. + aChar == $b ifTrue: [self inspector browseMethodFull. ^ true]. + aChar == $h ifTrue: [self inspector classHierarchy. ^ true]. - aChar == $b ifTrue: [inspector browseMethodFull. ^ true]. - aChar == $h ifTrue: [inspector classHierarchy. ^ true]. aChar == $c ifTrue: [Clipboard clipboardText: self currentSelection key. ^ true]. + aChar == $p ifTrue: [self inspector browseFullProtocol. ^ true]. + aChar == $N ifTrue: [self inspector browseClassRefs. ^ true]. + aChar == $t ifTrue: [self inspector tearOffTile. ^ true]. + aChar == $v ifTrue: [self inspector viewerForValue. ^ true]]. - aChar == $p ifTrue: [inspector browseFullProtocol. ^ true]. - aChar == $N ifTrue: [inspector browseClassRefs. ^ true]. - aChar == $t ifTrue: [inspector tearOffTile. ^ true]. - aChar == $v ifTrue: [inspector viewerForValue. ^ true]]. ^ false! Item was changed: ----- Method: ObjectExplorer>>genericMenu: (in category 'menus') ----- genericMenu: aMenu "Borrow a menu from my inspector" + - | insideObject menu parentObject | currentSelection + ifNil: [ + aMenu - ifNil: [menu := aMenu. - menu add: '*nothing selected*' target: self selector: #yourself] + ifNotNil: [ + self updateInspectorForSelection. + aMenu defaultTarget: self inspector. + self inspector fieldListMenu: aMenu. + - ifNotNil: [insideObject := self object. - parentObject := self parentObject. - inspector - ifNil: [inspector := Inspector new]. - inspector inspect: parentObject; - object: insideObject. - aMenu defaultTarget: inspector. - inspector fieldListMenu: aMenu. - aMenu items - do: [:i | (#(#inspectSelection #exploreSelection #referencesToSelection #defsOfSelection #objectReferencesToSelection #chasePointers #explorePointers) includes: i selector) - ifTrue: [i target: self]]. aMenu addLine; add: 'monitor changes' target: self selector: #monitor: argument: currentSelection]. monitorList isEmptyOrNil ifFalse: [aMenu addLine; add: 'stop monitoring all' target: self selector: #stopMonitoring]. ^ aMenu! Item was removed: - ----- Method: ObjectExplorer>>inspectSelection (in category 'menus - callbacks') ----- - inspectSelection - "Open an Inspector on the current selection" - self object inspect! Item was added: + ----- Method: ObjectExplorer>>inspector (in category 'accessing - other') ----- + inspector + + ^ inspector ifNil: [inspector := Inspector new]! Item was changed: + ----- Method: ObjectExplorer>>monitor: (in category 'monitoring') ----- - ----- Method: ObjectExplorer>>monitor: (in category 'menus - callbacks') ----- monitor: aBinding "Start stepping and watching the given binding for changes." aBinding ifNil: [ ^self ]. self world ifNil: [ ^self ]. self monitorList add: aBinding. self world startStepping: self at: Time millisecondClockValue selector: #step arguments: #() stepTime: 2000.! Item was removed: - ----- Method: ObjectExplorer>>objectReferencesToSelection (in category 'menus - callbacks') ----- - objectReferencesToSelection - "Open a browser on all references to the selected instance variable, if that's what currently selected. " - self systemNavigation - browseAllObjectReferencesTo: self object - except: (Array with: self parentObject with: currentSelection with: inspector) - ifNone: [:obj | self changed: #flash]. - ! Item was removed: - ----- Method: ObjectExplorer>>referencesToSelection (in category 'menus - callbacks') ----- - referencesToSelection - "Open a browser on all references to the selected instance variable, if that's what's currently selected." - | aClass sel | - - (aClass := self parentObject class) isVariable ifTrue: [^ self changed: #flash]. - sel := self selector. - self systemNavigation browseAllAccessesTo: sel from: aClass! Item was added: + ----- Method: ObjectExplorer>>updateInspectorForSelection (in category 'accessing - other') ----- + updateInspectorForSelection + "Reuse the inspector for some callbacks." + + self inspector inspect: (self parentObject ifNil: [self object]). + + self parentObject + ifNil: [self inspector toggleIndex: 1. "self"] + ifNotNil: [ + self inspector toggleIndex: (self inspector fieldList indexOf: self currentSelection key)]. + self assert: self inspector selection == self object.!

1 0

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

30 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.790.mcz ==================== Summary ==================== Name: Morphic-mt.790 Author: mt Time: 30 March 2015, 11:01:51.98 am UUID: 3c6e6fbe-1550-9f4a-bf0c-df2afe94ef69 Ancestors: Morphic-mt.789 Fixed object explorer wrapper to set #parent for external #explorerContents. =============== Diff against Morphic-mt.789 =============== Item was changed: ----- Method: ObjectExplorerWrapper>>contents (in category 'accessing') ----- contents + (self object respondsTo: #explorerContents) ifTrue: [ + ^ self object explorerContents + do: [:wrapper | wrapper parent: self]; + yourself]. - (self object respondsTo: #explorerContents) ifTrue: [^ self object explorerContents]. "For all others, show named vars first, then indexed vars" ^(self object class allInstVarNames asOrderedCollection withIndexCollect: [:each :index | self class with: (self object instVarAt: index) name: each model: self object parent: self]) , ((1 to: self object basicSize) collect: [:index | self class with: (self object basicAt: index) name: index printString model: self object parent: self])! Item was added: + ----- Method: ObjectExplorerWrapper>>parent: (in category 'accessing') ----- + parent: aWrapper + + parent := aWrapper.! Item was changed: ----- Method: ObjectExplorerWrapper>>setItem:name:model:parent: (in category 'initialization') ----- setItem: anObject name: aString model: aModel parent: itemParent + self parent: itemParent. - parent := itemParent. self setItem: anObject name: aString model: aModel!

1 0

The Trunk: ToolBuilder-Morphic-mt.106.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.106.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.106 Author: mt Time: 30 March 2015, 9:54:42.858 am UUID: f3c5f60f-b54f-b044-ab99-a27c5d2f03a4 Ancestors: ToolBuilder-Morphic-mt.105 Draw the balloon text in a pluggable text morph if no content is present. Revert the #helpText thing. See ToolBuilder-Kernel-mt.72. =============== Diff against ToolBuilder-Morphic-mt.105 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildHelpFor:spec: (in category 'pluggable widgets') ----- buildHelpFor: widget spec: aSpec + aSpec help ifNotNil: [:stringOrSymbol | + stringOrSymbol isSymbol + ifTrue: [widget balloonTextSelector: stringOrSymbol] + ifFalse: [widget balloonText: stringOrSymbol]].! - aSpec help - ifNotNil: [widget setBalloonText: aSpec help]! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableInputField: (in category 'pluggable widgets') ----- buildPluggableInputField: aSpec | widget | widget := self buildPluggableText: aSpec. widget acceptOnCR: true. widget hideScrollBarsIndefinitely. - widget getHelpTextSelector: aSpec helpText. ^widget! Item was changed: PluggableTextMorph subclass: #PluggableTextMorphPlus + instanceVariableNames: 'getColorSelector acceptAction unstyledAcceptText styler' - instanceVariableNames: 'getColorSelector acceptAction unstyledAcceptText styler getHelpTextSelector' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTextMorphPlus commentStamp: 'ar 2/11/2005 21:53' prior: 0! A pluggable text morph with support for color.! Item was added: + ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') ----- + drawBalloonTextOn: aCanvas + "Show balloon text in the text morph if it has no contents." + + textMorph contents ifNotEmpty: [^ self]. + + self balloonText ifNotNil: [:text | + aCanvas + drawString: text + at: self innerBounds topLeft + (5@2) + font: textMorph textStyle defaultFont + color: (Color gray: 0.7)].! Item was removed: - ----- Method: PluggableTextMorphPlus>>drawHelpTextOn: (in category 'drawing') ----- - drawHelpTextOn: aCanvas - - | helpText | - - (self getHelpTextSelector notNil and: [textMorph contents isEmpty]) - ifFalse: [^ self]. - - helpText := self getHelpTextSelector isSymbol - ifTrue: [self model perform: self getHelpTextSelector] - ifFalse: [self getHelpTextSelector]. - helpText ifNil: [^ self]. - - aCanvas - drawString: helpText - at: self innerBounds topLeft + (5@2) - font: textMorph textStyle defaultFont - color: (Color gray: 0.7).! Item was changed: ----- Method: PluggableTextMorphPlus>>drawOn: (in category 'drawing') ----- drawOn: aCanvas super drawOn: aCanvas. + self drawBalloonTextOn: aCanvas.! - self drawHelpTextOn: aCanvas.! Item was removed: - ----- Method: PluggableTextMorphPlus>>getHelpTextSelector (in category 'accessing') ----- - getHelpTextSelector - - ^ getHelpTextSelector! Item was removed: - ----- Method: PluggableTextMorphPlus>>getHelpTextSelector: (in category 'accessing') ----- - getHelpTextSelector: aSymbol - - getHelpTextSelector := aSymbol.!

1 0

The Trunk: ToolBuilder-Morphic-mt.105.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.105.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.105 Author: mt Time: 30 March 2015, 9:52:15.9 am UUID: 90b7acde-6e7e-f14d-8e79-037ee8428da1 Ancestors: ToolBuilder-Morphic-dtl.104 Custom #balloonText in pluggable text morphs to use model data. =============== Diff against ToolBuilder-Morphic-dtl.104 =============== Item was added: + ----- Method: PluggableTextMorphPlus>>balloonText (in category 'accessing') ----- + balloonText + "Overridden to send selector to model and not self. Do not use #perform:orSendTo: because super does more than just the send.." + + self balloonTextSelector ifNotNil: [:selector | + (self model respondsTo: selector) ifTrue: [ + ^ self model perform: selector]]. + + ^ super balloonText!

1 0

The Trunk: ToolBuilder-Kernel-mt.72.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.72.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.72 Author: mt Time: 30 March 2015, 9:49:25.642 am UUID: 010594ce-f5e2-684e-9675-7915430cce4d Ancestors: ToolBuilder-Kernel-dtl.71 Revert #helpText because #help was already there. =============== Diff against ToolBuilder-Kernel-dtl.71 =============== Item was changed: PluggableTextSpec subclass: #PluggableInputFieldSpec + instanceVariableNames: '' - instanceVariableNames: 'helpText' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableInputFieldSpec commentStamp: 'ar 2/12/2005 23:13' prior: 0! PluggableInputField is intended as a HINT for the builder that this widget will be used as a single line input field. Unless explicitly supported it will be automatically substituted by PluggableText.! Item was removed: - ----- Method: PluggableInputFieldSpec>>helpText (in category 'accessing') ----- - helpText - - ^ helpText! Item was removed: - ----- Method: PluggableInputFieldSpec>>helpText: (in category 'accessing') ----- - helpText: aSelectorOrString - - helpText := aSelectorOrString.!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
32
Older →

Jump to page: