[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
|