equal
deleted
inserted
replaced
1 'From Smalltalk/X, Version:2.10.9 on 9-sep-1996 at 18:00:22' ! |
|
2 |
|
3 DialogBox subclass:#LicenceBox |
1 DialogBox subclass:#LicenceBox |
4 instanceVariableNames:'accepted destroySemaphore' |
2 instanceVariableNames:'accepted destroySemaphore' |
5 classVariableNames:'LicenceRejectSignal' |
3 classVariableNames:'LicenceRejectSignal' |
6 poolDictionaries:'' |
4 poolDictionaries:'' |
7 category:'Views-DialogBoxes' |
5 category:'Views-DialogBoxes' |
130 !LicenceBox methodsFor:'private'! |
128 !LicenceBox methodsFor:'private'! |
131 |
129 |
132 licenceText |
130 licenceText |
133 "get licence text" |
131 "get licence text" |
134 |
132 |
135 ^ (resources at:'LICENCEFILE') asFilename readStream contents. |
133 |file| |
|
134 |
|
135 file := (resources at:'LICENCEFILE') asFilename. |
|
136 file exists ifFalse:[ |
|
137 file := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'. |
|
138 file isNil ifTrue:[ |
|
139 file := '../../doc/online/german/LICENCE.STX.html'. |
|
140 ]. |
|
141 file notNil ifTrue:[ |
|
142 file := file asFilename |
|
143 ]. |
|
144 (file isNil or:[file exists not]) ifTrue:[ |
|
145 ^ 'oops - you are not allowed to remove the LICENSE file !!' |
|
146 ]. |
|
147 |
|
148 ]. |
|
149 ^ file readStream contents. |
136 |
150 |
137 "Created: 6.9.1996 / 12:17:07 / stefan" |
151 "Created: 6.9.1996 / 12:17:07 / stefan" |
|
152 "Modified: 10.9.1996 / 02:16:28 / cg" |
138 ! ! |
153 ! ! |
139 |
154 |
140 !LicenceBox class methodsFor:'documentation'! |
155 !LicenceBox class methodsFor:'documentation'! |
141 |
156 |
142 version |
157 alize! ! |
143 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.1 1996-09-09 17:06:46 stefan Exp $' |
|
144 ! ! |
|
145 LicenceBox initialize! |
158 LicenceBox initialize! |