Squeak-dev June 2010

squeak-dev@lists.squeakfoundation.org

96 participants
269 discussions

SystemWindow resizing
by Andreas Raab 24 Jun '10

24 Jun '10

Hi there - We just finished upgrading our images from 3.8 to 4.1 and one issue that keeps coming up is the inability to resize a SystemWindow other than in its corners. I vaguely remember that someone posted a fix for this (i.e., so that one can resize windows on any edge) but I can't find it - any quick pointers? Cheers, - Andreas

5 14

FFI/OSProcess Plugins for Cog VM
by Jon Hylands 24 Jun '10

24 Jun '10

So, in my continuing quest to use the Cog VM in my robotics work, I've run into another roadblock. It appears that the old Windows FFI plugin that I have doesn't work with this new VM. Has someone built a new FFI plugin, and if so, can you send it to me? I would also really like to get an OSProcess plugin, if possible. Thanks, Jon

1 0

4.1 GUI Changes - Buttons not working in my code
by Torsten Bergmann 24 Jun '10

24 Jun '10

Jon wrote: >Just as a followup - without the alignment morph, buttons work fine. >But I really like being able to group together things like buttons... Maybe you should use layouts (LayoutFrame) instead of alignment morphs to construct the UI. See [1] http://pharocasts.blogspot.com/2010/06/proportional-layout.html [2] http://book.pharo-project.org/book/GUI/PolymorphTutorial/Layout [3] http://pharocasts.blogspot.com/2010/01/basic-ui-building.html The links are for Pharo but Squeak has them too. Bye T. -- GMX DSL: Internet-, Telefon- und Handy-Flat ab 19,99 EUR/mtl. Bis zu 150 EUR Startguthaben inklusive! http://portal.gmx.net/de/go/dsl

2 1

The Trunk: Morphic-bf.449.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.449.mcz ==================== Summary ==================== Name: Morphic-bf.449 Author: bf Time: 24 June 2010, 3:41:52.939 pm UUID: f588bcdb-0e0e-4541-aa83-224c90a97e60 Ancestors: Morphic-bf.448 - grow equally in all directions on ctrl-halo drag =============== Diff against Morphic-bf.448 =============== Item was changed: ----- Method: HaloMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt "Drag our target around or resize it" growingOrRotating ifTrue: [ + | oldExtent newExtent newPosition | + newExtent := originalExtent + (evt position - positionOffset * 2). - | newExtent | - newExtent := originalExtent + evt position - positionOffset. (newExtent x > 1 and: [newExtent y > 1]) + ifTrue: [ + oldExtent := target extent. + target setExtentFromHalo: newExtent. + newPosition := target position - (target extent - oldExtent // 2). + target setConstrainedPosition: newPosition hangOut: true]] - ifTrue: [ target renderedMorph setExtentFromHalo: newExtent]] ifFalse: [ | thePoint | thePoint := target point: (evt position - positionOffset) from: owner. target setConstrainedPosition: thePoint hangOut: true. ]!

1 0

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

COG crash while recompiling
by Nicolas Cellier 24 Jun '10

24 Jun '10

I got several crash dump while recompiling some classes. For example try to load http://source.squeak.org/trunk/SUnit-dtl.79.mcz in a cog image. Nicolas

2 1

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

Daily Commit Log
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-June/003485.html Name: Compiler-jcg.147 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. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-June/003486.html Name: Tools-jcg.247 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. =============================================

1 0

[ANN] ESUG Awards 2010
by Luc Fabresse 23 Jun '10

23 Jun '10

Dear Smalltalkers, You are invited to submit your nice Smalltalk based software to the 7th ESUG Innovation Technology Awards. The top 3 teams with the most innovative software will receive, respectively, 500 Euros, 300 Euros and 200 Euros during an awards ceremony at the 18th International Smalltalk Joint Conference 2010 in Barcelona, Spain. No constraints are put on the software except that it should be Smalltalk-based or Smalltalk-related and all flavours of Smalltalk are accepted. More details on the web (submission process, ...): http://www.esug.org/Conferences/2010/Innovation+Technology+Awards Results of the 2009 edition: http://www.esug.org/Conferences/2009/Innovation+Technology+Awards/Winners+a…

2 1

Re: [Seaside] [Cross-posted]Re: [lively-kernel] Call for Participation: Lively Mockups
by Lawson English 23 Jun '10

23 Jun '10

On 6/23/10 1:37 PM, Lawson English wrote: > [x-posting this to squeak-dev sand seaside dev] > > Comment: Lively Kernel can be seen as a fork of Morphic. While the > needs of an internet interface won't always be the same as the needs > of a desktop-oriented application, it would probably be good for there > to be some (at least semi-formal) examination by the Squeak world of > what is going on in the Lively Kernel world. > > Anyone interested in Morphic's (and Tweak's?) future direction should > be at least be monitoring that url below. Also, the documentation of > LK might be suitable for use with Morphic, with suitable > modifications. And of course, useful insights can go both ways. > > Just more of my B.rainS.torming.... > > Lawson > > On 6/22/10 2:50 PM, Philip Weaver wrote: >> Seventy-eight people are subscribed to this mailing list for Lively. >> Eighteen people are subscribed to the digest. I want to find at least >> one individual who has interest in contributing to UI mockups for >> Lively's future and to help keep conversation related to this on this >> mailing list alive daily. No coding involved necessarily and it ought >> to be fun and rewarding. >> >> I made an effort to get started over at Google Drawings - Google >> Drawings already supports live collaboration. At some point these >> drawings could be exported as SVG and imported into Lively worlds. >> I'm also currently working on a design document to explain some of >> these drawings and related concepts. >> >> http://tinyurl.com/lively-panel/ >> >> Thanks, >> Philip Weaver >> >> >> _______________________________________________ >> lively-kernel mailing list >> lively-kernel(a)hpi.uni-potsdam.de >> http://lists.hpi.uni-potsdam.de/listinfo/lively-kernel >> > > > _______________________________________________ > seaside mailing list > seaside(a)lists.squeakfoundation.org > http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside >

1 0

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

Jump to page: