--- a/LicenceBox.st Tue Sep 24 00:44:55 1996 +0200
+++ b/LicenceBox.st Tue Sep 24 00:45:32 1996 +0200
@@ -10,8 +10,10 @@
hereby transferred.
"
+'From Smalltalk/X, Version:2.10.9 on 23-sep-1996 at 18:24:31' !
+
DialogBox subclass:#LicenceBox
- instanceVariableNames:'accepted destroySemaphore'
+ instanceVariableNames:'accepted destroySemaphore fileName'
classVariableNames:'LicenceRejectSignal'
poolDictionaries:''
category:'Views-DialogBoxes'
@@ -136,12 +138,13 @@
(self addTextLabel:(resources string:'Please read the licence terms:')) adjust:#left.
textView := self addTextBoxOn:nil
- class:HTMLDocumentView
- withNumberOfLines:40
- hScrollable:true
- vScrollable:true.
+ class:HTMLDocumentView
+ withNumberOfLines:40
+ hScrollable:true
+ vScrollable:true.
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].
@@ -153,34 +156,70 @@
!LicenceBox methodsFor:'private'!
+licenceFile
+ "get filename of licence file"
+
+ |fn|
+
+ fileName isNil ifTrue:[
+ fileName := fn := resources at:'LICENCEFILE' default:nil.
+ fileName isNil ifTrue:[
+ fileName := fn := 'doc/online/english/LICENCE.STX.html'.
+ ].
+ fileName asFilename exists ifFalse:[
+ fileName := Smalltalk getSystemFileName:fileName.
+ fileName isNil ifTrue:[
+ fileName := '../../' , fn.
+ fileName asFilename exists ifFalse:[
+ fileName := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'.
+ fileName isNil ifTrue:[
+ fileName := '../../doc/online/german/LICENCE.STX.html'.
+ ]
+ ]
+ ].
+ ].
+ fileName asFilename exists ifFalse:[
+ fileName := nil
+ ].
+ ].
+ ^ fileName
+
+ "
+ LicenceBox new licenceFile
+ "
+
+!
+
licenceText
"get licence text"
- |fn file|
+ |file|
- file := fn := resources at:'LICENCEFILE' default:nil.
+ file := self licenceFile.
file isNil ifTrue:[
- file := fn := 'doc/online/english/LICENCE.STX.html'.
- ].
- file asFilename exists ifFalse:[
- file := Smalltalk getSystemFileName:file.
- file isNil ifTrue:[
- file := '../../' , fn.
- file asFilename exists ifFalse:[
- file := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'.
- file isNil ifTrue:[
- file := '../../doc/online/german/LICENCE.STX.html'.
- ]
- ]
- ].
- ].
- file asFilename exists ifFalse:[
^ 'oops - you are not allowed to remove the LICENSE file !!'
].
- ^ file asFilename readStream contents.
+ ^ file asFilename contents.
"
- self open
+ LicenceBox new licenceText
+ "
+
+!
+
+topDirectory
+ "get name of top directory"
+
+ |file|
+
+ file := self licenceFile.
+ file isNil ifTrue:[
+ ^ ''
+ ].
+ ^ file asFilename directoryName.
+
+ "
+ LicenceBox new topDirectory
"
! !
@@ -188,6 +227,6 @@
!LicenceBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.5 1996-09-11 10:51:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.6 1996-09-23 22:45:32 stefan Exp $'
! !
LicenceBox initialize!