eXept Software AG Logo

Smalltalk/X Webserver

Documentation of class 'AboutBox':

Home

Documentation
www.exept.de
Everywhere
for:
[back]

Class: AboutBox


Inheritance:

   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

Description:


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


Class protocol:

defaults
o  aboutText
return a string to be shown in the box.
Can be redefined in custom subclasses.

o  defaultGreen
return the boxes default green color (eXept green).

o  defaultIcon
return a Smalltalk/X icon.
Can be redefined in custom subclasses.

o  defaultLabel
return the boxes default window title.

image specs
o  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


Instance protocol:

initialization
o  initialize
setup the box; change all of my components viewBackground to some darkish grey.

show & hide
o  show
show the box.
Redefined to automatically hide myself after some time

usage example(s):

     AboutBox new show


Examples:


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


ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Thu, 28 Mar 2024 13:41:38 GMT