|
Class: LicenceBox
Object
|
+--GraphicsMedium
|
+--DisplaySurface
|
+--SimpleView
|
+--View
|
+--TopView
|
+--StandardSystemView
|
+--ModalBox
|
+--DialogBox
|
+--LicenceBox
- Package:
- stx:libwidg2
- Category:
- Views-DialogBoxes
- Version:
- rev:
1.31
date: 2018/10/13 07:42:02
- user: cg
- file: LicenceBox.st directory: libwidg2
- module: stx stc-classLibrary: libwidg2
- Author:
- Stefan Vogel
LicenceBox shows a licence text when opened, an returns true,
if the licence has been accepted, false otherwise.
AboutBox
Signal constants
-
licenceRejectSignal
-
licence has been rejected by user
initialization
-
initialize
-
self initialize
instance creation
-
open
-
open myself modal and return true if accepted, false otherwise
usage example(s):
-
openOnFile: aFileName
-
like open, but show the HTML-text found in aFileName.
Can be used for end-user applications which want to display
there own licence text.
usage example(s):
LicenceBox openOnFile:'doc/online/english/TOP.html'
(LicenceBox licenceRejectSignal catch:[
LicenceBox openOnFile:'doc/online/english/TOP.html'
]) ifTrue:[
self information:'rejected'
]
|
accessing
-
accepted
-
return accepted
-
accepted: something
-
set accepted
-
licenceText: someHTMLText
-
set the text which is shown in the box
-
topDirectory: aDirectoryName
-
set the topDirectory, which is required for hyperlinks
to work (in the html text)
destroying
-
terminate
-
this is the close from a windowmanager
(only if UseTransientViews == true).
Redefined, since ModalBox keeps the View alive (only hidden)
initialization
-
initialize
-
(displayHeight < 800) ifTrue:[
-
mapped
-
kludge
private
-
licenceFile
-
get filename of licence file
usage example(s):
LicenceBox new licenceFile
|
-
licenceText
-
get licence text
usage example(s):
LicenceBox new licenceText
|
-
topDirectory
-
get name of top directory
usage example(s):
LicenceBox new topDirectory
|
queries
-
windowStyle
-
self new windowStyle
LicenceBox open
LicenceRejectSignal handle:[:ex|
Transcript showCR:'Licence rejected'.
] do:[
LicenceBox open.
Transcript showCR:'Licence accepted'.
]
|
|