--- a/LicenceBox.st Thu Nov 15 21:05:07 2001 +0100
+++ b/LicenceBox.st Sat Nov 17 15:22:32 2001 +0100
@@ -211,8 +211,8 @@
self width:(textView preferredExtentForLines:nLines 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 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.
@@ -228,34 +228,34 @@
|relName|
fileName isNil ifTrue:[
- fileName := relName := resources at:'LICENCEFILE' default:nil.
- fileName isNil ifTrue:[
- Smalltalk releaseIdentification = 'ST/X_free_demo_vsn' ifTrue:[
- relName := 'doc/online/english/LICENCE_DEMO_STX.html'.
- ] ifFalse:[
- relName := 'doc/online/english/LICENCE_STX.html'.
- ].
- fileName := relName.
- ].
+ fileName := relName := resources at:'LICENCEFILE' default:nil.
+ fileName isNil ifTrue:[
+ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn' ifTrue:[
+ relName := 'doc/online/english/LICENCE_DEMO_STX.html'.
+ ] ifFalse:[
+ relName := 'doc/online/english/LICENCE_STX.html'.
+ ].
+ fileName := relName.
+ ].
- fileName asFilename exists ifFalse:[
- fileName := Smalltalk getSystemFileName:relName.
- fileName isNil ifTrue:[
- fileName := Smalltalk getSystemFileName:('../' , relName).
- fileName isNil ifTrue:[
- fileName := Smalltalk getSystemFileName:('../../' , relName).
- fileName isNil ifTrue:[
- 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 asFilename exists ifFalse:[
+ fileName := Smalltalk getSystemFileName:relName.
+ fileName isNil ifTrue:[
+ fileName := Smalltalk getSystemFileName:('../' , relName).
+ fileName isNil ifTrue:[
+ fileName := Smalltalk getSystemFileName:('../../' , relName).
+ fileName isNil ifTrue:[
+ 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
@@ -273,7 +273,7 @@
file := self licenceFile.
file isNil ifTrue:[
- ^ 'oops - you are not supposed to remove the LICENSE file !!
+ ^ 'oops - you are not supposed to remove the LICENSE file !!
- or the documentation files have not been installed correctly;
- or your systemPath settings are not correct.'
@@ -306,6 +306,6 @@
!LicenceBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.18 1999-12-03 18:10:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.19 2001-11-17 14:22:32 cg Exp $'
! !
LicenceBox initialize!