Fixing the look of squeak in 3.9.
Chris Schreiner
chris.schreiner at online.no
Sat Jun 18 18:07:34 UTC 2005
Whats up with the border?? Its thin again...
Rudi Bichler skrev:
> Hi,
> here's my cs as an attachment (for 3.7). I simply changed most of the
> panes of the tools from transparent to white. This creates ugly colors
> for the big button rows so I changed theses colors as well (in the
> browser and in the debugger).
>
> It's not a huge change but IMHO it improves the look (a bit:-)
>
> Rudi
>
>
> */stéphane ducasse <ducasse at iam.unibe.ch>/* wrote:
>
> send a cs.
>
> Stef
>
> On 18 juin 05, at 13:42, Rudi Bichler wrote:
>
> >
> > Yep. I totally agree. Simply coloring oll the text and list panes
> > in the tools to white is already an incredible improvement and - I
> > think - very easy to realize.
> >
> >
> >
> >
> > Chris Schreiner wrote: This
> > LookEnhancement; what a pleasant changeset :-)
> >
> > Stéphane Ducasse skrev:
> >
> > > Hi all
> > >
> > > I was at Lugano and I did yet another squeak demo to young
> > > programmers, they were impressed
> > > but after they show me what they were doing in Java and ....I was
> > > impressed by the quality of the look
> > > of their applications and I thought that if we do not do anything
> > > about look we should not say that we want to have more
> squeakers but
> > > keep playing between us. So does anybody wants that Squeak can
> talk
> > > with young programmer of 2000?
> > >
> > > I would really like that Squeak out of the box look improves.
> > > Here is what I suggest, we have different possibilities
> > >
> > > - (1) either load a skin package and use a nice skin
> > > - (2) load the LookEnhancement available at
> > > MCHttpRepository
> > > location: 'http://squeak.saltypickle.com/LookEnhancements'
> > > user: ''
> > > password: ''
> > > This package is doing a lot of overrides so we cannot load it
> > > simply in 3.9
> > > and it would be better to have it inside the image.
> > > - (3) speed the changes of diego
> > >
> > > - (4) Do a competition of the better look for squeak
> > > -- here the criteria should be that the system should be cool
> > > -- responsive
> > > -- as less intrusive as possible
> > >
> > >
> > > Stef
> > >
> > >
> > >
> > >
> >
> >
> > __________________________________________________
> > Do You Yahoo!?
> > Tired of spam? Yahoo! Mail has the best spam protection around
> > http://mail.yahoo.com
> >
> >
> >
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>------------------------------------------------------------------------
>
>'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 18 June 2005 at 6:53:39 pm'!
>
>!CodeHolder methodsFor: 'controls' stamp: 'RB 6/18/2005 18:10'!
>addOptionalButtonsTo: window at: fractions plus: verticalOffset
> "If the receiver wishes it, add a button pane to the window, and answer the verticalOffset plus the height added"
>
> | delta buttons divider |
> self wantsOptionalButtons ifFalse: [^verticalOffset].
> delta _ self defaultButtonPaneHeight.
> buttons _ self optionalButtonRow
> color: (Display depth <= 8 ifTrue: [Color transparent] ifFalse: [Color gray alpha: 0.2]);
> borderWidth: 0.
> Preferences alternativeWindowLook ifTrue:[
> buttons color: (Color r: 0.73 g: 0.88 b: 0.582).
> buttons submorphsDo:[:m| m borderWidth: 2; borderColor: #raised].
> ].
> divider _ BorderedSubpaneDividerMorph forBottomEdge.
> Preferences alternativeWindowLook ifTrue:[
> divider extent: 4 at 4; color: Color transparent; borderColor: #raised; borderWidth: 2.
> ].
> window
> addMorph: buttons
> fullFrame: (LayoutFrame
> fractions: fractions
> offsets: (0 at verticalOffset corner: 0@(verticalOffset + delta - 1))).
> window
> addMorph: divider
> fullFrame: (LayoutFrame
> fractions: fractions
> offsets: (0@(verticalOffset + delta - 1) corner: 0@(verticalOffset + delta))).
> ^ verticalOffset + delta! !
>
>
>!Debugger methodsFor: 'controls' stamp: 'RB 6/18/2005 18:52'!
>addOptionalButtonsTo: window at: fractions plus: verticalOffset
> "Add button panes to the window. A row of custom debugger-specific buttons (Proceed, Restart, etc.) is always added, and if optionalButtons is in force, then the standard code-tool buttons are also added. Answer the verticalOffset plus the height added."
>
> | delta buttons divider anOffset |
> anOffset _ (Preferences optionalButtons and: [Preferences extraDebuggerButtons])
> ifTrue:
> [super addOptionalButtonsTo: window at: fractions plus: verticalOffset]
> ifFalse:
> [verticalOffset].
>
> delta _ self defaultButtonPaneHeight.
> buttons _ self customButtonRow.
> buttons color: (Display depth <= 8 ifTrue: [Color transparent] ifFalse: [Color gray alpha: 0.2]);
> borderWidth: 0.
> Preferences alternativeWindowLook ifTrue:
> [buttons color: (Color r: 0.73 g: 0.88 b: 0.582).
> buttons submorphsDo:[:m | m borderWidth: 2; borderColor: #raised]].
> divider _ BorderedSubpaneDividerMorph forBottomEdge.
> Preferences alternativeWindowLook ifTrue:
> [divider extent: 4 at 4; color: Color transparent; borderColor: #raised; borderWidth: 2].
> window
> addMorph: buttons
> fullFrame: (LayoutFrame
> fractions: fractions
> offsets: (0 at anOffset corner: 0@(anOffset + delta - 1))).
> window
> addMorph: divider
> fullFrame: (LayoutFrame
> fractions: fractions
> offsets: (0@(anOffset + delta - 1) corner: 0@(anOffset + delta))).
> ^ anOffset + delta! !
>
>
>!PluggableListMorph methodsFor: 'initialization' stamp: 'RB 6/18/2005 18:06'!
>on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel
> self model: anObject.
> getListSelector _ getListSel.
> getIndexSelector _ getSelectionSel.
> setIndexSelector _ setSelectionSel.
> getMenuSelector _ getMenuSel.
> keystrokeActionSelector _ keyActionSel.
> autoDeselect _ true.
> self borderWidth: 1.
> self color: Color white.
> self updateList.
> self selectionIndex: self getCurrentSelectionIndex.
> self initForKeystrokes! !
>
>
>!PluggableMessageCategoryListMorph methodsFor: 'as yet unclassified' stamp: 'RB 6/18/2005 18:09'!
>on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel getRawListSelector: getRawSel.
> self model: anObject.
> getListSelector _ getListSel.
> getIndexSelector _ getSelectionSel.
> setIndexSelector _ setSelectionSel.
> getMenuSelector _ getMenuSel.
> keystrokeActionSelector _ keyActionSel.
> autoDeselect _ true.
> self borderWidth: 1.
> self color: Color white.
> getRawListSelector _ getRawSel.
> self updateList.
> self selectionIndex: self getCurrentSelectionIndex.
> self initForKeystrokes! !
>
>
>!PluggableTextMorph methodsFor: 'initialization' stamp: 'RB 6/18/2005 18:08'!
>on: anObject text: getTextSel accept: setTextSel readSelection: getSelectionSel menu: getMenuSel
>
> self model: anObject.
> getTextSelector _ getTextSel.
> setTextSelector _ setTextSel.
> getSelectionSelector _ getSelectionSel.
> getMenuSelector _ getMenuSel.
> self borderWidth: 1.
> self color: Color white.
> self setText: self getText.
> self setSelection: self getSelection.! !
>
>
>!SystemWindow methodsFor: 'panes' stamp: 'RB 6/18/2005 18:30'!
>addMorph: aMorph fullFrame: aLayoutFrame
>
> super addMorph: aMorph fullFrame: aLayoutFrame.
>
> paneMorphs _ paneMorphs copyReplaceFrom: 1 to: 0 with: (Array with: aMorph).
> Preferences alternativeWindowLook
> ifFalse:
> [aMorph borderWidth: 1.
> aMorph color: Color white]
> ifTrue:
> [aMorph adoptPaneColor: self paneColor.
> aMorph borderWidth: 2; borderColor: #inset].
> Preferences scrollBarsOnRight "reorder panes so flop-out right-side scrollbar is visible"
> ifTrue: [self addMorphBack: aMorph]! !
>
>------------------------------------------------------------------------
>
>
>
>
More information about the Squeak-dev
mailing list
|