"

 COPYRIGHT (c) 1996 by eXept Software AG

 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.

"

'From Smalltalk/X, Version:2.10.9 on 23-sep-1996 at 18:24:31'                   !

DialogBox subclass:#LicenceBox

	instanceVariableNames:'accepted destroySemaphore fileName'

	classVariableNames:'LicenceRejectSignal'

	poolDictionaries:''

	category:'Views-DialogBoxes'

!

!LicenceBox  class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996 by eXept Software AG

 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.

"

!

documentation

"

    LicenceBox shows a licence text when opened, an returns true,

    if the licence has been accepted, false otherwise.

    [author:]

	Stefan Vogel

    [see also:]

	AboutBox

"

!

examples

"

						[exBegin]

    LicenceRejectSignal handle:[:ex|

	Transcript showCR:'Licence rejected'.

    ] do:[

	LicenceBox open.

	Transcript showCR:'Licence accepted'.

    ] 

						[exEnd]

"

! !

!LicenceBox  class methodsFor:'initialization'!

initialize

    LicenceRejectSignal isNil ifTrue:[

	LicenceRejectSignal := ErrorSignal newSignalMayProceed:true.

	LicenceRejectSignal nameClass:self message:#licenceRejectSignal.

	LicenceRejectSignal notifierString:'licence rejected by user'.

    ].

    "

     self initialize

    "

! !

!LicenceBox  class methodsFor:'instance creation'!

open

    "open myself modal and return true if accepted, false otherwise"

    ^ super open accepted.

    "

    "

    "Modified: 9.9.1996 / 17:52:48 / stefan"

! !

!LicenceBox  class methodsFor:'Signal constants'!

licenceRejectSignal

    "licence has been rejected by user"

    ^ LicenceRejectSignal

! !

!LicenceBox methodsFor:'accessing'!

accepted

    "return accepted"

    ^ accepted

    "Created: 6.9.1996 / 13:24:44 / stefan"

!

accepted:something

    "set accepted"

    accepted := something.

    "Created: 6.9.1996 / 13:24:44 / stefan"

! !

!LicenceBox methodsFor:'destroying'!

terminate

    "this is the close from a windowmanager

     (only if UseTransientViews == true).

     Redefined, since ModalBox keeps the View alive (only hidden)"

    self destroy.

    "Created: 9.9.1996 / 15:15:31 / stefan"

! !

!LicenceBox methodsFor:'initialization'!

initialize    

    |textView|

    super initialize.

    accepted := false.

    (self addTextLabel:(resources string:'Please read the licence terms:')) adjust:#left.

    textView := self addTextBoxOn:nil 

    self width:(textView preferredExtentForLines:40 cols:70) x.

    textView setText:(self licenceText).

    textView setTopDirectoryName:(self topDirectory).

    self addAbortButtonLabelled:(resources string:'reject licence terms').

    self addOkButtonLabelled:(resources string:'accept licence terms').

    self abortAction:[self destroy. accepted := false. LicenceRejectSignal raise].

    self okAction:[self destroy. accepted := true].

    self stickAtBottomWithVariableHeight:textView.

    "Modified: 9.9.1996 / 17:52:13 / stefan"

! !

!LicenceBox methodsFor:'private'!

licenceFile

    "get filename of licence file"

    |fn|

    fileName isNil ifTrue:[

    ].

    ^ fileName 

    "

     LicenceBox new licenceFile

    "

!

licenceText

    "get licence text"

    |file|

    file := self licenceFile.

    file isNil ifTrue:[

    ].

    ^ file asFilename contents.

    "

     LicenceBox new licenceText

    "

!

topDirectory

    "get name of top directory"

    |file|

    file := self licenceFile.

    file isNil ifTrue:[

    ].

    ^ file asFilename directoryName.

    "

     LicenceBox new topDirectory

    "

! !

!LicenceBox  class methodsFor:'documentation'!

version

! !

LicenceBox initialize!