equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: '__NoProject__' }" |
12 |
14 |
13 DialogBox subclass:#LicenceBox |
15 DialogBox subclass:#LicenceBox |
14 instanceVariableNames:'accepted destroySemaphore fileName textView' |
16 instanceVariableNames:'accepted destroySemaphore fileName textView' |
15 classVariableNames:'LicenceRejectSignal' |
17 classVariableNames:'LicenceRejectSignal' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
216 self abortAction:[self destroy. accepted := false. LicenceRejectSignal raise]. |
218 self abortAction:[self destroy. accepted := false. LicenceRejectSignal raise]. |
217 self okAction:[self destroy. accepted := true]. |
219 self okAction:[self destroy. accepted := true]. |
218 self stickAtBottomWithVariableHeight:textView. |
220 self stickAtBottomWithVariableHeight:textView. |
219 |
221 |
220 "Modified: 9.9.1996 / 17:52:13 / stefan" |
222 "Modified: 9.9.1996 / 17:52:13 / stefan" |
|
223 ! |
|
224 |
|
225 raise |
|
226 "kludge for MS-windows. |
|
227 Raise/Activate seem to work only within my own (ST/X)-windows; |
|
228 they do not raise one of my views above another (for example: command.com)-window. |
|
229 Can anyone tell me what the difference between raise, activate and setForefround |
|
230 really is (I mean really - not what is written in the crappy documentation)" |
|
231 |
|
232 self setForegroundWindow. |
|
233 super raise |
221 ! ! |
234 ! ! |
222 |
235 |
223 !LicenceBox methodsFor:'private'! |
236 !LicenceBox methodsFor:'private'! |
224 |
237 |
225 licenceFile |
238 licenceFile |
304 ! ! |
317 ! ! |
305 |
318 |
306 !LicenceBox class methodsFor:'documentation'! |
319 !LicenceBox class methodsFor:'documentation'! |
307 |
320 |
308 version |
321 version |
309 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.19 2001-11-17 14:22:32 cg Exp $' |
322 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.20 2005-03-10 17:00:48 cg Exp $' |
310 ! ! |
323 ! ! |
|
324 |
311 LicenceBox initialize! |
325 LicenceBox initialize! |