|
Class: AboutBox
Object
|
+--GraphicsMedium
|
+--DisplaySurface
|
+--SimpleView
|
+--View
|
+--TopView
|
+--StandardSystemView
|
+--ModalBox
|
+--DialogBox
|
+--InfoBox
|
+--AboutBox
- Package:
- stx:libtool
- Category:
- Views-DialogBoxes
- Version:
- rev:
1.49
date: 2018/05/11 07:57:19
- user: cg
- file: AboutBox.st directory: libtool
- module: stx stc-classLibrary: libtool
A box specialized to show the ST/X about-information (also usable for Applications).
As a speciality, this box automatically closes if left
alone for a while.
Can be subclasses for your own aboutBoxes; to do so, redefine
#defaultIcon and #aboutText.
examples:
AboutBox new open
AboutBox new showAtPointer
defaults
-
aboutText
-
return a string to be shown in the box.
Can be redefined in custom subclasses.
-
defaultGreen
-
return the boxes default green color (eXept green).
-
defaultIcon
-
return a Smalltalk/X icon.
Can be redefined in custom subclasses.
-
defaultLabel
-
return the boxes default window title.
image specs
-
stxIconTemplate
-
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
self stxIconTemplate inspect
ImageEditor openOnClass:self andSelector:#stxIconTemplate
Icon flushCachedIcons
|
initialization
-
initialize
-
setup the box; change all of my components viewBackground to some darkish grey.
show & hide
-
show
-
show the box.
Redefined to automatically hide myself after some time
usage example(s):
|box|
box := AboutBox new.
box autoHideAfter:10 with:[].
box showAtCenter
|
|box|
box := AboutBox title:'About me'.
box image:((Smalltalk
bitmapFromFileNamed:'gifImages/claus.gif'
inPackage:'stx:goodies')
magnifiedTo:100@100).
box label:'Example'.
box autoHideAfter:10 with:[].
box showAtPointer.
|
|