Packages March 2015

packages@lists.squeakfoundation.org

1 participants
489 discussions

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

31 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.108.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.108 Author: mt Time: 31 March 2015, 6:01:50.569 pm UUID: 790df11a-d082-fa48-a59d-43eeffc5c092 Ancestors: ToolBuilder-Morphic-mt.107 Support added for list item-specific balloon help. (Similar to the one in tree morphs.) =============== Diff against ToolBuilder-Morphic-mt.107 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'pluggable widgets') ----- buildPluggableList: aSpec | widget listClass getIndex setIndex | aSpec getSelected ifNil:[ listClass := self listClass. getIndex := aSpec getIndex. setIndex := aSpec setIndex. ] ifNotNil:[ listClass := self listByItemClass. getIndex := aSpec getSelected. setIndex := aSpec setSelected. ]. widget := listClass on: aSpec model list: aSpec list selected: getIndex changeSelected: setIndex menu: aSpec menu keystroke: aSpec keyPress. self register: widget id: aSpec name. widget getListElementSelector: aSpec listItem. widget getListSizeSelector: aSpec listSize. widget getIconSelector: aSpec icon. + widget getHelpSelector: aSpec help. widget doubleClickSelector: aSpec doubleClick. widget dragItemSelector: aSpec dragItem. widget dropItemSelector: aSpec dropItem. widget wantsDropSelector: aSpec dropAccept. widget autoDeselect: aSpec autoDeselect. widget keystrokePreviewSelector: aSpec keystrokePreview. aSpec color isNil ifTrue: [widget borderWidth: 1; borderColor: Color lightGray; color: Color white] ifFalse: [widget color: aSpec color]. - self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. parent ifNotNil:[self add: widget to: parent]. panes ifNotNil:[ aSpec list ifNotNil:[panes add: aSpec list]. ]. ^widget! Item was changed: PluggableListMorph subclass: #PluggableListMorphPlus + instanceVariableNames: 'dragItemSelector dropItemSelector wantsDropSelector getHelpSelector' - instanceVariableNames: 'dragItemSelector dropItemSelector wantsDropSelector' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableListMorphPlus commentStamp: 'ar 7/15/2005 11:10' prior: 0! Extensions for PluggableListMorph needed by ToolBuilder! Item was added: + ----- Method: PluggableListMorphPlus>>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 getHelpSelector ifNotNil: [:selector | + ((self model respondsTo: selector) and: [self hoverRow > 0]) ifTrue: [ + ^ self model perform: selector with: self hoverRow]]. + + ^ super balloonText! Item was added: + ----- Method: PluggableListMorphPlus>>getHelpSelector (in category 'accessing') ----- + getHelpSelector + + ^ getHelpSelector! Item was added: + ----- Method: PluggableListMorphPlus>>getHelpSelector: (in category 'accessing') ----- + getHelpSelector: aSelector + "Get help for list entries." + + getHelpSelector := aSelector.! Item was added: + ----- Method: PluggableListMorphPlus>>hoverRow: (in category 'accessing') ----- + hoverRow: anInteger + + self hoverRow ~= anInteger ifTrue: [ + super hoverRow: anInteger. + self wantsBalloon ifTrue: [ + self activeHand + removePendingBalloonFor: self; + triggerBalloonFor: self after: self balloonHelpDelayTime]]. + + !

1 0

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

31 Mar '15

1 0

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

31 Mar '15

1 0

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

31 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.796.mcz ==================== Summary ==================== Name: Morphic-mt.796 Author: mt Time: 31 March 2015, 5:30:16.582 pm UUID: 4b95c232-4447-6f41-a251-e2a3f4196f23 Ancestors: Morphic-mt.795 Indicate hovered item in lists. Can be turned off via preference. Redraw of the highlight is fast because we only invalidate the rectangles from the affected rows. Extended #handleMouseMove: and not #mouseMove: because there is a mouse-button guard in #handleMouseMove:, which is exploited in the multi-selection list morphs. =============== Diff against Morphic-mt.795 =============== Item was changed: ----- Method: LazyListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | | listItems size = 0 ifTrue: [ ^self ]. + - self drawPreSelectionOn: aCanvas; drawSelectionOn: aCanvas. (self topVisibleRowForCanvas: aCanvas) to: (self bottomVisibleRowForCanvas: aCanvas) do: [ :row | (listSource itemSelectedAmongMultiple: row) ifTrue: [ + self drawBackgroundForMulti: row on: aCanvas. ]]. + + PluggableListMorph highlightHoveredRow ifTrue: [ + listSource hoverRow > 0 ifTrue: [ + self highlightHoverRow: listSource hoverRow on: aCanvas ] ]. + + (self topVisibleRowForCanvas: aCanvas) to: (self bottomVisibleRowForCanvas: aCanvas) do: [ :row | - self drawBackgroundForMulti: row on: aCanvas. ]. self display: (self item: row) atRow: row on: aCanvas. ]. listSource potentialDropRow > 0 ifTrue: [ self highlightPotentialDropRow: listSource potentialDropRow on: aCanvas ].! Item was added: + ----- Method: LazyListMorph>>highlightHoverRow:on: (in category 'drawing') ----- + highlightHoverRow: row on: aCanvas + | drawBounds | + drawBounds := self drawBoundsForRow: row. + drawBounds := drawBounds intersect: self bounds. + aCanvas fillRectangle: drawBounds color: (self class listSelectionColor darker alpha: 0.3).! Item was added: + ----- Method: LazyListMorph>>rowChanged: (in category 'updating') ----- + rowChanged: anInteger + + self invalidRect: (self drawBoundsForRow: anInteger).! Item was changed: ScrollPane subclass: #PluggableListMorph + instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow hoverRow listMorph hScrollRangeCache keystrokePreviewSelector priorSelection getIconSelector' + classVariableNames: 'ClearFilterAutomatically FilterableLists HighlightHoveredRow' - instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow listMorph hScrollRangeCache keystrokePreviewSelector priorSelection getIconSelector' - classVariableNames: 'ClearFilterAutomatically FilterableLists' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableListMorph commentStamp: 'cmm 8/21/2011 23:37' prior: 0! When a PluggableListMorph is in focus, type in a letter (or several letters quickly) to go to the next item that begins with that letter (if FilterableLists is false). Special keys (up, down, home, etc.) are also supported.! Item was added: + ----- Method: PluggableListMorph class>>highlightHoveredRow (in category 'preferences') ----- + highlightHoveredRow + + <preference: 'Highlight Hovered Row in Lists' + category: #Morphic + description: 'Indicate, which row will be affected before any further iteraction takes place.' + type: #Boolean> + ^ HighlightHoveredRow ifNil: [true]! Item was added: + ----- Method: PluggableListMorph class>>highlightHoveredRow: (in category 'preferences') ----- + highlightHoveredRow: aBoolean + + HighlightHoveredRow := aBoolean.! Item was changed: ----- Method: PluggableListMorph>>handleMouseMove: (in category 'events-processing') ----- handleMouseMove: anEvent "Reimplemented because we really want #mouseMove when a morph is dragged around" anEvent wasHandled ifTrue:[^self]. "not interested" + self hoverRow: (self rowAtLocation: anEvent position). (anEvent anyButtonPressed and:[anEvent hand mouseFocus == self]) ifFalse:[^self]. anEvent wasHandled: true. self mouseMove: anEvent. (self handlesMouseStillDown: anEvent) ifTrue:[ "Step at the new location" self startStepping: #handleMouseStillDown: at: Time millisecondClockValue arguments: {anEvent copy resetHandlerFields} stepTime: 1]. ! Item was added: + ----- Method: PluggableListMorph>>hoverItem (in category 'accessing') ----- + hoverItem + + ^ self hoverRow = 0 + ifTrue: [nil] + ifFalse: [self getListItem: self hoverRow]! Item was added: + ----- Method: PluggableListMorph>>hoverRow (in category 'accessing') ----- + hoverRow + + ^ hoverRow ifNil: [0]! Item was added: + ----- Method: PluggableListMorph>>hoverRow: (in category 'accessing') ----- + hoverRow: anInteger + + hoverRow = anInteger ifTrue: [^ self]. + + hoverRow ifNotNil: [self listMorph rowChanged: hoverRow]. + hoverRow := anInteger. + hoverRow ifNotNil: [self listMorph rowChanged: hoverRow].! Item was changed: ----- Method: PluggableListMorph>>mouseLeave: (in category 'events') ----- mouseLeave: event "The mouse has left the area of the receiver" super mouseLeave: event. + + self hoverRow: nil. + Preferences mouseOverForKeyboardFocus ifTrue:[ + event hand releaseKeyboardFocus: self].! - event hand releaseKeyboardFocus: self]! Item was changed: ----- Method: PluggableListMorph>>mouseLeaveDragging: (in category 'events') ----- mouseLeaveDragging: anEvent + + self hoverRow: nil. (self dropEnabled and:[anEvent hand hasSubmorphs]) ifFalse: ["no d&d" ^ super mouseLeaveDragging: anEvent]. self resetPotentialDropRow. anEvent hand releaseMouseFocus: self. "above is ugly but necessary for now" !

1 0

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

31 Mar '15

1 0

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

31 Mar '15

1 0

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

31 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.568.mcz ==================== Summary ==================== Name: Tools-mt.568 Author: mt Time: 31 March 2015, 11:57:54.177 am UUID: 852a3dac-ba3b-9e42-9bf1-937c81eea6e0 Ancestors: Tools-mt.567 Help message added to object explorer code pane. =============== Diff against Tools-mt.567 =============== Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; label: #label. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph scroller submorphs collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}] ifFalse: []); frame: (0@0 corner: 1(a)0.85). windowSpec children add: treeSpec. textSpec := builder pluggableTextSpec new. textSpec model: self; menu: #codePaneMenu:shifted:; + help: 'Evaluate expressions for the current tree selection...' translated; frame: (0(a)0.85 corner: 1@1). windowSpec children add: textSpec. ^ builder build: windowSpec!

1 0

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

31 Mar '15

1 0

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

31 Mar '15

1 0

The Trunk: MorphicExtras-mt.158.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.158.mcz ==================== Summary ==================== Name: MorphicExtras-mt.158 Author: mt Time: 31 March 2015, 11:50:53.299 am UUID: fc9c79dc-8f8a-f247-8cff-60a50ca2d16f Ancestors: MorphicExtras-mt.157 Classify new-style balloon morphs as valid balloon help. =============== Diff against MorphicExtras-mt.157 =============== Item was added: + ----- Method: NewBalloonMorph>>isBalloonHelp (in category '*MorphicExtras-classification') ----- + isBalloonHelp + ^ true!

1 0

← Newer
1
2
3
4
5
6
7
...
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