Class: LicenceBox

• Inheritance
• Description
• Class protocol
  • Signal constants
  • initialization
  • instance creation
• Instance protocol
  • accessing
  • destroying
  • initialization
  • private
  • queries
• Examples

Inheritance:

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

Package:

stx:libwidg2

Category:

Views-DialogBoxes

Version:

rev: 1.34 date: 2024/03/26 13:07:08

user: cg

file: LicenceBox.st directory: libwidg2

module: stx stc-classLibrary: libwidg2

Description:

LicenceBox shows a licence text when opened, an returns true,
if the licence has been accepted, false otherwise.

copyright
COPYRIGHT (c) 1996 by eXept Software AG
             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:

 licenceRejectSignal

licence has been rejected by user

 initialize

self initialize

 open

open myself modal and return true if accepted, false otherwise

Usage example(s):

LicenceBox open

 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' ]

Instance protocol:

 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)

 terminate

this is the close from a windowmanager
(only if UseTransientViews == true).
Redefined, since ModalBox keeps the View alive (only hidden)

 initialize

(displayHeight < 800) ifTrue:[

 mapped

kludge

 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

 windowStyle

self new windowStyle

Examples:

    LicenceRejectSignal handle:[:ex|
        Transcript showCR:'Licence rejected'.
    ] do:[
        LicenceBox open.
        Transcript showCR:'Licence accepted'.
    ]