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]! !
>
>------------------------------------------------------------------------
>
>
>  
>