|
Class: PopUpBanner
Object
|
+--GraphicsMedium
|
+--DisplaySurface
|
+--SimpleView
|
+--View
|
+--TopView
|
+--PopUpView
|
+--PopUpBanner
- Package:
- stx:libview2
- Category:
- Views-Basic
- Version:
- rev:
1.11
date: 2019/07/31 23:52:38
- user: cg
- file: PopUpBanner.st directory: libview2
- module: stx stc-classLibrary: libview2
- Author:
- Claus Gittinger
Shows a banner popUp (splash window);
can be used at startup to make wait-time a bit more interesting.
See use in smalltalk.rc / showBanner.rc / hideBanner.rc.
instance creation
-
forImage: anImage
-
activation & deactivation
-
open
-
default for popUpBanners is to come up modeless
-
showCentered
-
event handling
-
buttonPress: button x: x y: y
-
destroy view when user clicks into
queries
-
grabWhenMapped
-
|img bannerView|
img := Image fromFile:'banner1.xpm'.
bannerView := PopUpBanner forImage:img.
bannerView showCentered.
Delay waitForSeconds:2.
bannerView destroy
|
|