Class: AboutBox

• Inheritance
• Description
• Class protocol
  • defaults
• Instance protocol
  • initialization
  • show & hide
• Examples

Inheritance:

   Object
   |
   +--GraphicsMedium
      |
      +--DisplaySurface
         |
         +--SimpleView
            |
            +--View
               |
               +--TopView
                  |
                  +--StandardSystemView
                     |
                     +--ModalBox
                        |
                        +--DialogBox
                           |
                           +--InfoBox
                              |
                              +--AboutBox

Package:

stx:libtool

Category:

Views-DialogBoxes

Version:

rev: 1.53 date: 2021/09/20 13:37:47

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

copyright
COPYRIGHT (c) 1995 by Claus Gittinger
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

Class protocol:

 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.

Instance protocol:

 initialize

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

 postRealize

Redefined to automatically hide myself after some time

Usage example(s):

Transcript showCR:'------'; showCR:'before postRealize'.

Usage example(s):

Transcript showCR:'------'; showCR:'after postRealize'.

 realize

Transcript cr; showCR:'------'; showCR:'before'.

Examples:

  |box|

  box := AboutBox new.
  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 showAtPointer.