Packages March 2015

packages@lists.squeakfoundation.org

1 participants
489 discussions

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: ToolBuilder-Morphic-mt.107.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

1 0

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

30 Mar '15

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: Tools-mt.567.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

1 0

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

30 Mar '15

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: Morphic-mt.790.mcz
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

1 0

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

30 Mar '15

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

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2015