On Wed, 1 Dec 1999, Daniel V. Oppenheim wrote:

> All these are great!! Will these make it eventually into a release? So many 
> great enactments get posted over (short) time, but it would be very 
> cumbersome to manually file-out and file-in + check for conflicts from 
> release to release...

It's usually a judgement call for Squeak Central as to which enhancements
will make it into the base image...  it never hurts to post to the list if
someone else has submitted an enhancement that you like. :-)

Personally though, I would probably vote against including the Grow Box
enhancement in the base image.  I'm not sure if it's "worth its weight" as
a widget on every window (I've never seen a window system with such a
button), and requiring a modifier key (shift) to use a particular window
button is generally not a good thing. (maybe have a pair of buttons
instead?)  Even if it's not added to the base image, it's good to know
that it's out there as an available goodie, which could be further
tweaked/improved.

I'd agree that some of Stephen's other enhancements would be good to add
to the base image, e.g. the menu-button preference...

- Doug Way
  dway at mat.net



> At 01:48 PM 12/1/99 -0800, you wrote:
> 
> >(I forgot to attach the code to the previous posting...)
> >
> >The enclosed change set is a new version of the grow-box goodie (works 
> >with the 2.6
> >window-menu-button-in-title. This adds a button in the upper-right with 
> >the icon of a caret (^) that grows
> >or shrinks (if shift is down) the window by 50%.
> >
> >--
> >stp
> >
> >Stephen Travis Pope  --  http://www.create.ucsb.edu/~stp
> >stp at expertcity.com   --  stp9 at cornell.edu'From Squeak 2.5 of August 6, 
> >1999 on 28 August 1999 at 11:36:28 am'!
> >
> >SystemWindow addInstVarName: 'growBox ' !
> >
> >!SystemWindow methodsFor: 'initialization' stamp: 'stp 08/28/1999 10:57'!
> >initialize
> >         | aFont |
> >         super initialize.
> >         labelString ifNil: [labelString _ 'Untitled Window'].
> >         isCollapsed := false.
> >         activeOnlyOnTop := true.
> >         paneMorphs := Array new.
> >         paneRects := Array new.
> >         borderColor := #raised.
> >         borderWidth := 1.
> >         color := Color black.
> >         aFont := Preferences fontForScriptorButtons.
> >         stripes := Array with: (RectangleMorph newBounds: bounds)  "see 
> > extent:"
> >                                 with: (RectangleMorph newBounds: bounds).
> >         self addMorph: (stripes first borderWidth: 1).
> >         self addMorph: (stripes second borderWidth: 2).
> >         self addMorph: (label := StringMorph new contents: labelString;
> >                         font: (TextStyle default fontAt: 2) emphasis: 1).
> >         self setLabelWidgetAllowance.
> >         self addCloseBox.
> >         self addMenuControl.
> >         self addMorph: (collapseBox := SimpleButtonMorph new borderWidth: 0;
> >                         label: 'O' font: aFont; color: Color transparent;
> >                         actionSelector: #collapseOrExpand; target: self; 
> > extent: 16 at 16).
> >         self addMorph: (growBox _ SimpleButtonMorph new borderWidth: 0;
> >                         label: '^' font: aFont; color: Color transparent;
> >                         actionSelector: #growOrShrink; target: self; 
> > extent: 16 at 16).
> >         Preferences noviceMode ifTrue:
> >                 [closeBox ifNotNil: [closeBox setBalloonText: 'close 
> > window'].
> >                 menuBox ifNotNil: [menuBox setBalloonText: 'window menu'].
> >                 collapseBox ifNotNil: [collapseBox setBalloonText: 
> > 'collapse/expand window']].
> >         self on: #mouseEnter send: #spawnReframeHandle: to: self.
> >         self on: #mouseLeave send: #spawnReframeHandle: to: self.
> >         label on: #mouseDown send: #relabelEvent: to: self.
> >         self extent: 300 at 200.
> >         mustNotClose := false.
> >         updatablePanes := Array new.! !
> >
> >!SystemWindow methodsFor: 'geometry' stamp: 'stp 09/02/1999 09:49'!
> >extent: newExtent
> >         | inner labelRect |
> >         isCollapsed
> >                 ifTrue: [super extent: newExtent x @ (self labelHeight + 2)]
> >                 ifFalse: [super extent: newExtent].
> >         inner _ self innerBounds.
> >         labelRect _ self labelRect.
> >
> >         stripes first bounds: (labelRect insetBy: 1).
> >         stripes second bounds: (labelRect insetBy: 3).
> >         self setStripeColorsFrom: self paneColor.
> >         closeBox ifNotNil:
> >                 [closeBox align: closeBox topLeft with: inner topLeft + 
> > (4 at 0)].
> >         menuBox ifNotNil:
> >                 [menuBox align: menuBox topLeft with: (inner topLeft + 
> > (19 at 1))].
> >         collapseBox align: collapseBox topRight with: inner topRight - (4 at 0).
> >         growBox ifNotNil:
> >                 [growBox align: growBox topRight with: collapseBox topLeft].
> >         label align: label bounds topCenter with: inner topCenter.
> >         self setBoundsOfPaneMorphs.
> >         isCollapsed
> >                 ifTrue: [collapsedFrame _ self bounds]
> >                 ifFalse: [fullFrame _ self bounds]! !
> >
> >!SystemWindow methodsFor: 'resize/collapse' stamp: 'stp 08/28/1999 11:34'!
> >growOrShrink
> >         "Expand (or shrink if shiftDown) the view by 50% in the X and 
> > 100% in the Y, clipping to the screen size and centering it.
> >         The minimum size is 120 at 120."
> >
> >         | oldSize newSize |
> >         oldSize := self bounds.
> >         newSize := Sensor leftShiftDown
> >                 ifTrue: [(oldSize scaleBy: 0.66 at 0.5) truncated]
> >                 ifFalse: [(oldSize scaleBy: 1.5 at 2.0) truncated].
> >         newSize extent < (120 at 120)
> >                 ifTrue: [^self].
> >         newSize := newSize translateBy: (newSize center - oldSize center) 
> > negated.
> >         newSize := newSize intersect: Display boundingBox.
> >         super bounds: newSize.
> >         paneMorphs reverseDo: [:m | self addMorph: m]! !
> 
> ---
> 
> Dr. Daniel V. 
> Oppenheim 
> 
> Computer Music Center
> 	IBM T.J. Watson Research Center	     phone: (914) 945-1989
> 	P. O. Box 218 (or Route 134)	     fax:   (914) 945-3434
> 	Yorktown Heights, NY 10598	     www.research.ibm.com/music
> 
> 
>