Packages June 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: Morphic-bf.448.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.448.mcz ==================== Summary ==================== Name: Morphic-bf.448 Author: bf Time: 24 June 2010, 3:00:00.714 pm UUID: 858c2c78-7627-4795-bd81-aca5d1e03876 Ancestors: Morphic-ar.447 - when dragging after a ctrl-halo click, resize instead of move the target =============== Diff against Morphic-ar.447 =============== Item was changed: ----- Method: HaloMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt + "Drag our target around or resize it" + growingOrRotating + ifTrue: [ + | newExtent | + newExtent := originalExtent + evt position - positionOffset. + (newExtent x > 1 and: [newExtent y > 1]) + ifTrue: [ target renderedMorph setExtentFromHalo: newExtent]] + ifFalse: [ + | thePoint | + thePoint := target point: (evt position - positionOffset) from: owner. + target setConstrainedPosition: thePoint hangOut: true. + ]! - "Drag our target around" - | thePoint | - thePoint := target point: (evt position - positionOffset) from: owner. - target setConstrainedPosition: thePoint hangOut: true.! Item was changed: ----- Method: HaloMorph>>dragTarget: (in category 'events') ----- dragTarget: event "Begin dragging the target" | thePoint | + event controlKeyPressed ifTrue: [^self growTarget: event]. + growingOrRotating := false. thePoint := target point: event position - positionOffset from: owner. target setConstrainedPosition: thePoint hangOut: true. event hand newMouseFocus: self.! Item was changed: ----- Method: Morph>>handleMouseDown: (in category 'events-processing') ----- handleMouseDown: anEvent "System level event handling." anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand removePendingBalloonFor: self. anEvent hand removePendingHaloFor: self. anEvent wasHandled: true. (anEvent controlKeyPressed + and: [anEvent blueButtonChanged not + and: [Preferences cmdGesturesEnabled]]) - and: [Preferences cmdGesturesEnabled]) ifTrue: [^ self invokeMetaMenu: anEvent]. "Make me modal during mouse transitions" anEvent hand newMouseFocus: self event: anEvent. anEvent blueButtonChanged ifTrue:[^self blueButtonDown: anEvent]. "this mouse down could be the start of a gesture, or the end of a gesture focus" (self isGestureStart: anEvent) ifTrue: [^ self gestureStart: anEvent]. self mouseDown: anEvent. Preferences maintainHalos ifFalse:[ anEvent hand removeHaloFromClick: anEvent on: self ]. (self handlesMouseStillDown: anEvent) ifTrue:[ self startStepping: #handleMouseStillDown: at: Time millisecondClockValue + self mouseStillDownThreshold arguments: {anEvent copy resetHandlerFields} stepTime: self mouseStillDownStepRate ]. ! Item was added: + ----- Method: HaloMorph>>growTarget: (in category 'events') ----- + growTarget: event + "Begin resizing the target" + growingOrRotating := true. + positionOffset := event position. + originalExtent := target extent. + self removeAllHandlesBut: nil. + event hand newMouseFocus: self. + event hand addMouseListener: self. "add handles back on mouse-up"!

1 0

The Trunk: Morphic-bf.448.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

1 0

The Trunk: Morphic-bf.448.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

1 0

The Trunk: Morphic-ar.447.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.447.mcz ==================== Summary ==================== Name: Morphic-ar.447 Author: ar Time: 23 June 2010, 5:15:41.848 pm UUID: 38684bfc-94bf-194b-8d35-036b3cec996e Ancestors: Morphic-cmm.446 Make windows resizable along their edges. Add preference covering the behavior. =============== Diff against Morphic-cmm.446 =============== Item was added: + ----- Method: LeftGripMorph>>ptName (in category 'accessing') ----- + ptName + ^#left! Item was added: + ----- Method: RightGripMorph>>ptName (in category 'accessing') ----- + ptName + ^#right! Item was added: + ----- Method: TopGripMorph>>resizeCursor (in category 'accessing') ----- + resizeCursor + + ^ Cursor resizeForEdge: #top! Item was added: + ----- Method: BorderGripMorph>>drawOn: (in category 'as yet unclassified') ----- + drawOn: aCanvas + + "aCanvas fillRectangle: self bounds color: Color red" "for debugging" + ! Item was added: + ----- Method: LeftGripMorph>>initialize (in category 'initialize') ----- + initialize + super initialize. + self vResizing: #spaceFill.! Item was added: + ----- Method: RightGripMorph>>initialize (in category 'initialize') ----- + initialize + super initialize. + self vResizing: #spaceFill.! Item was added: + ----- Method: BottomGripMorph>>resizeCursor (in category 'accessing') ----- + resizeCursor + + ^ Cursor resizeForEdge: #top! Item was added: + CornerGripMorph subclass: #BorderGripMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! Item was added: + ----- Method: BottomGripMorph>>ptName (in category 'accessing') ----- + ptName + ^#bottom! Item was added: + ----- Method: TopGripMorph>>ptName (in category 'accessing') ----- + ptName + ^#top! Item was added: + ----- Method: SystemWindow class>>resizeAlongEdges (in category 'preferences') ----- + resizeAlongEdges + <preference: 'Resize Windows along edges' + category: 'Morphic' + description: 'When true, windows can be resized along their edges as well as the corners' + type: #Boolean> + ^ResizeAlongEdges ifNil:[true]! Item was added: + ----- Method: BottomGripMorph>>initialize (in category 'initialize') ----- + initialize + super initialize. + self hResizing: #spaceFill.! Item was added: + ----- Method: TopGripMorph>>initialize (in category 'initialize') ----- + initialize + super initialize. + self hResizing: #spaceFill.! Item was added: + ----- Method: LeftGripMorph>>apply: (in category 'target resize') ----- + apply: delta + | oldBounds | + oldBounds := target bounds. + target + bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y))! Item was added: + ----- Method: RightGripMorph>>apply: (in category 'target resize') ----- + apply: delta + | oldBounds | + oldBounds := target bounds. + target + bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y))! Item was added: + BorderGripMorph subclass: #RightGripMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! Item was added: + ----- Method: BottomGripMorph>>defaultHeight (in category 'initialize') ----- + defaultHeight + + ^ 5! Item was added: + ----- Method: TopGripMorph>>defaultHeight (in category 'initialize') ----- + defaultHeight + + ^ 5! Item was added: + BorderGripMorph subclass: #BottomGripMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! Item was added: + BorderGripMorph subclass: #TopGripMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! Item was added: + ----- Method: BottomGripMorph>>apply: (in category 'target resize') ----- + apply: delta + | oldBounds | + oldBounds := target bounds. + target + bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y))! Item was changed: ----- Method: ProportionalSplitterMorph>>handleSize (in category 'displaying') ----- handleSize ^ self class splitterWidth @ 30! Item was added: + ----- Method: TopGripMorph>>apply: (in category 'target resize') ----- + apply: delta + | oldBounds | + oldBounds := target bounds. + target + bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y))! Item was added: + ----- Method: RightGripMorph>>defaultWidth (in category 'initialize') ----- + defaultWidth + + ^ 5! Item was added: + ----- Method: LeftGripMorph>>defaultWidth (in category 'initialize') ----- + defaultWidth + + ^ 5! Item was changed: MorphicModel subclass: #SystemWindow instanceVariableNames: 'labelString stripes label closeBox collapseBox activeOnlyOnTop paneMorphs paneRects collapsedFrame fullFrame isCollapsed menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox' + classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImage CollapseBoxImage DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImage HideExpandButton MenuBoxFrame MenuBoxImage ResizeAlongEdges ReuseWindows TopWindow' - classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImage CollapseBoxImage DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImage HideExpandButton MenuBoxFrame MenuBoxImage ReuseWindows TopWindow' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow commentStamp: '<historical>' prior: 0! SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing. The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.! Item was added: + ----- Method: BorderGripMorph>>setInverseColors (in category 'as yet unclassified') ----- + setInverseColors! Item was added: + ----- Method: SystemWindow class>>resizeAlongEdges: (in category 'preferences') ----- + resizeAlongEdges: aBool + "Preference setter" + ResizeAlongEdges := aBool! Item was added: + ----- Method: SystemWindow>>addCornerGrips (in category 'initialization') ----- + addCornerGrips + "When enabled via preference, also add edge grips" + super addCornerGrips. + self class resizeAlongEdges ifTrue:[self addEdgeGrips].! Item was added: + ----- Method: BorderedMorph>>addEdgeGrips (in category 'lookenhancements') ----- + addEdgeGrips + "Add resizers along the four edges of the receiver" + + self + addMorphBack: (TopGripMorph new target: self;position: self position). + self + addMorphBack: (BottomGripMorph new target: self;position: self position). + self + addMorphBack: (RightGripMorph new target: self;position: self position). + self + addMorphBack: (LeftGripMorph new target: self;position: self position).! Item was added: + ----- Method: LeftGripMorph>>gripLayoutFrame (in category 'accessing') ----- + gripLayoutFrame + ^ LayoutFrame + fractions: (0 @ 0 corner: 0 @ 1) + offsets: (0 @ 0 negated corner: self defaultWidth @ 0)! Item was added: + ----- Method: RightGripMorph>>gripLayoutFrame (in category 'accessing') ----- + gripLayoutFrame + ^ LayoutFrame + fractions: (1 @ 0 corner: 1 @ 1) + offsets: (self defaultWidth negated @ self defaultHeight negated corner: 0@ 0)! Item was added: + BorderGripMorph subclass: #LeftGripMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! Item was added: + ----- Method: BorderGripMorph>>setDefaultColors (in category 'as yet unclassified') ----- + setDefaultColors! Item was added: + ----- Method: LeftGripMorph>>resizeCursor (in category 'accessing') ----- + resizeCursor + + ^ Cursor resizeForEdge: #left! Item was added: + ----- Method: RightGripMorph>>resizeCursor (in category 'accessing') ----- + resizeCursor + + ^ Cursor resizeForEdge: #right! Item was added: + ----- Method: BottomGripMorph>>gripLayoutFrame (in category 'accessing') ----- + gripLayoutFrame + ^ LayoutFrame + fractions: (0 @ 1 corner: 1 @ 1) + offsets: (0 @ self defaultHeight negated corner: 0@ 0)! Item was added: + ----- Method: TopGripMorph>>gripLayoutFrame (in category 'accessing') ----- + gripLayoutFrame + ^ LayoutFrame + fractions: (0 @ 0 corner: 1 @ 0) + offsets: (0 @ -40 corner: 0@ 0)!

1 0

The Trunk: Morphic-ar.447.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

1 0

The Trunk: Morphic-ar.447.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

1 0

The Trunk: Tools-jcg.247.mcz
by commits＠source.squeak.org 23 Jun '10

23 Jun '10

Joshua Gargus uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-jcg.247.mcz ==================== Summary ==================== Name: Tools-jcg.247 Author: jcg Time: 23 June 2010, 12:13:50.59 pm UUID: a06587b9-7aaf-412f-a9a1-c49d97fb8110 Ancestors: Tools-cmm.246 Workspaces can now look up variable-bindings in a user-specified list of SharedPools. See the class-side methods #addLookupPool:, #removeLookupPool:, and #clearLookupPools. =============== Diff against Tools-cmm.246 =============== Item was added: + ----- Method: Workspace class>>removeLookupPool: (in category 'lookup pools') ----- + removeLookupPool: sharedPool + "Workspaces should no longer look up bindings in the specified SharedPool." + LookupPools ifNil: [^self]. + LookupPools remove: sharedPool ifAbsent: [].! Item was added: + ----- Method: Workspace>>lookupInPools: (in category 'binding') ----- + lookupInPools: aString + "Iterate through all of the lookup pools to find a match for the specified name." + LookupPools ifNil: [^nil]. + LookupPools do: [:pool | (pool bindingOf: aString) ifNotNil: [:assoc | ^assoc value]]. + ^nil + ! Item was added: + ----- Method: Workspace class>>clearLookupPools (in category 'lookup pools') ----- + clearLookupPools + LookupPools := nil. + ! Item was changed: ----- Method: Workspace>>bindingOf: (in category 'binding') ----- bindingOf: aString - mustDeclareVariables ifTrue: [^ nil]. "I want to have workspace that force the user to declare variables. Still subclasses may want to do something else" + bindings ifNil: [self initializeBindings]. + (bindings includesKey: aString) ifFalse: [ + | val | + val := self lookupInPools: aString. + val + ifNotNil: [ + "Caveat: since we're not inserting the pool's Association into + the dictionary, assigning a new value to the variable will only + affect the one Workspace (i.e. you can't assign to a variable in a + SharedPool)." + bindings at: aString put: val] + ifNil: [aString first isUppercase + ifTrue: [^nil] + ifFalse: [bindings at: aString put: nil]] + ]. - bindings isNil - ifTrue: [self initializeBindings]. - (bindings includesKey: aString) - ifFalse: [bindings at: aString put: nil]. ^ bindings associationAt: aString! Item was added: + ----- Method: Workspace class>>addLookupPool: (in category 'lookup pools') ----- + addLookupPool: sharedPool + "Add a SharedPool that bindings should be looked up in." + LookupPools ifNil: [LookupPools := IdentitySet new]. + LookupPools add: sharedPool! Item was changed: StringHolder subclass: #Workspace instanceVariableNames: 'bindings acceptDroppedMorphs acceptAction mustDeclareVariables shouldStyle' + classVariableNames: 'LookupPools ShouldStyle' - classVariableNames: 'ShouldStyle' poolDictionaries: '' category: 'Tools-Base'! !Workspace commentStamp: 'ls 10/14/2003 12:13' prior: 0! A Workspace is a text area plus a lot of support for executable code. It is a great place to execute top-level commands to compute something useful, and it is a great place to develop bits of a program before those bits get put into class methods. To open a new workspace, execute: Workspace open A workspace can have its own variables, called "workspace variables", to hold intermediate results. For example, if you type into a workspace "x := 5" and do-it, then later you could type in "y := x * 2" and y would become 10. Additionally, in Morphic, a workspace can gain access to morphs that are on the screen. If acceptDroppedMorphss is turned on, then whenever a morph is dropped on the workspace, a variable will be created which references that morph. This functionality is toggled with the window-wide menu of a workspace. The instance variables of this class are: bindings - holds the workspace variables for this workspace acceptDroppedMorphss - whether dropped morphs should create new variables!

1 0

The Trunk: Tools-jcg.247.mcz
by commits＠source.squeak.org 23 Jun '10

23 Jun '10

1 0

The Trunk: Tools-jcg.247.mcz
by commits＠source.squeak.org 23 Jun '10

23 Jun '10

1 0

The Trunk: Compiler-jcg.147.mcz
by commits＠source.squeak.org 23 Jun '10

23 Jun '10

Joshua Gargus uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-jcg.147.mcz ==================== Summary ==================== Name: Compiler-jcg.147 Author: jcg Time: 23 June 2010, 12:04:54.856 pm UUID: 714d775f-78af-45dc-affc-b33d59d68da5 Ancestors: Compiler-nice.146 Change Parser>>correctVariable:interval: to allow it to look up the proposed variable in the requestor even if it starts with an uppercase letter. =============== Diff against Compiler-nice.146 =============== Item was changed: ----- Method: Parser>>correctVariable:interval: (in category 'error correction') ----- correctVariable: proposedVariable interval: spot "Correct the proposedVariable to a known variable, or declare it as a new variable if such action is requested. We support declaring lowercase variables as temps or inst-vars, and uppercase variables as Globals or ClassVars, depending on whether the context is nil (class=UndefinedObject). Spot is the interval within the test stream of the variable. rr 3/4/2004 10:26 : adds the option to define a new class. " "Check if this is an i-var, that has been corrected already (ugly)" "Display the pop-up menu" + | binding userSelection action | - | tempIvar binding userSelection action | (encoder classEncoding instVarNames includes: proposedVariable) ifTrue: [^InstanceVariableNode new name: proposedVariable index: (encoder classEncoding allInstVarNames indexOf: proposedVariable)]. "If we can't ask the user for correction, make it undeclared" self interactive ifFalse: [^encoder undeclared: proposedVariable]. "First check to see if the requestor knows anything about the variable" + (binding := requestor bindingOf: proposedVariable) + ifNotNil: [^encoder global: binding name: proposedVariable]. - tempIvar := proposedVariable first isLowercase. - (tempIvar and: [(binding := requestor bindingOf: proposedVariable) notNil]) - ifTrue: [^encoder global: binding name: proposedVariable]. userSelection := requestor selectionInterval. requestor selectFrom: spot first to: spot last. requestor select. "Build the menu with alternatives" action := UndeclaredVariable signalFor: self name: proposedVariable inRange: spot. action ifNil: [^self fail]. "Execute the selected action" requestor deselect. requestor selectInvisiblyFrom: userSelection first to: userSelection last. ^action value!

1 0

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