[BUG][FIX] Bad layout in <?> panel of Preferences

Jesse Welton jwelton at pacific.mps.ohio-state.edu
Fri Feb 16 21:58:17 UTC 2001


The buttons on the <?> panel of the Preferences were spaced slightly
too far, so that the bottom of the contents stuck out below the bottom
of the window by a pixel or two.  The attached changeset fixes this by
reducing the spacing.

-Jesse

-------------- next part --------------
'From Squeak3.0 of 4 February 2001 [latest update: #3522] on 16 February 2001 at 4:59:25 pm'!
"Change Set:		PreferencesAppearanceTweak
Date:			16 February 2001
Author:			Jesse Welton

Fixes minor layout problem with PreferencesPanel: Items in <?> category extended below panel bottom."!


!PreferencesPanel methodsFor: 'find' stamp: 'JW 2/16/2001 16:51'!
addHelpItemsTo: panelPage
	"Add special items to the page"

	| aButton aTextMorph aMorph |
	aTextMorph _  TextMorph new contents: 'Search Preferences for:'.
	aTextMorph beAllFont: ((TextStyle default fontOfSize: 21) emphasized: 1).
	panelPage addMorphBack: aTextMorph lock.
	panelPage addTransparentSpacerOfSize: 0 at 10.

	aMorph _ RectangleMorph new clipSubmorphs: true; beTransparent; borderWidth: 2; borderColor: Color black; extent: 250 @ 36.
	aMorph vResizing: #rigid; hResizing: #rigid.
	aTextMorph _  PluggableTextMorph new
				on: self
				text: #searchString
				accept: #setSearchStringTo:
				readSelection: nil
				menu: nil.
"	aTextMorph hResizing: #rigid."
	aTextMorph borderWidth: 0.
	aTextMorph font: ((TextStyle default fontOfSize: 21) emphasized: 1); setTextColor: Color red.
	aMorph addMorphBack: aTextMorph.
	aTextMorph acceptOnCR: true.
	aMorph clipLayoutCells: true.
	aTextMorph width: 250.
	panelPage addMorphBack: aMorph.
	aTextMorph setBalloonText: 'Type what you want to search for here, then hit the "Search" button'.
	panelPage addTransparentSpacerOfSize: 0 at 10.

	aButton _ SimpleButtonMorph new target: self; color: Color transparent; actionSelector: #initiateSearch:; arguments: {aTextMorph}; label: 'Search'.
	panelPage addMorphBack: aButton.
	aButton setBalloonText: 'Type what you want to search for in the box above, then click here (or hit RETURN or ENTER) to start the search; results will appear in the "search results" category.'.

	panelPage addTransparentSpacerOfSize: 0 at 30.
	panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Restore all Default Preference Settings'; target: Preferences; actionSelector: #chooseInitialSettings; setBalloonText: 'Click here to reset all the preferences to their standard default values.'; yourself).

	panelPage addTransparentSpacerOfSize: 0 at 10.
	panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 
'Save Current Settings as my Personal Preferences'; 
		target: Preferences; actionSelector: #savePersonalPreferences; setBalloonText: 'Click here to save the current constellation of Preferences settings as your personal defaults; you can get them all reinstalled with a single gesture by clicking the "Restore my Personal Preferences".'; yourself).

	panelPage addTransparentSpacerOfSize: 0 at 10.
	panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Restore my Personal Preferences'; target: Preferences; actionSelector: #restorePersonalPreferences; setBalloonText: 'Click here to reset all the preferences to their values in your Personal Preferences.'; yourself).

	panelPage addTransparentSpacerOfSize: 0 at 30.

	panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Inspect Parameters'; target: Preferences; actionSelector: #inspectParameters; setBalloonText: 'Click here to view all the values stored in the system Parameters dictionary'; yourself).

	panelPage addTransparentSpacerOfSize: 0 at 10.

	panelPage addMorphBack: (SimpleButtonMorph new color: Color transparent; label: 'Help!!'; target: Preferences; actionSelector: #giveHelpWithPreferences; setBalloonText: 'Click here to get some hints on use of this Preferences Panel'; yourself).! !



More information about the Squeak-dev mailing list