'From Squeak3.1alpha of 28 February 2001 [latest update: #3991] on 8 May 2001 at 4:42:58 pm'! "Change Set: KeyGen-ar Date: 8 May 2001 Author: Andreas Raab Fix automatic key generation."! !SecurityManager methodsFor: 'private' stamp: 'ar 5/8/2001 16:41'! generateKeyPairInBackground "SecurityManager default generateKeyPairInBackground" "Silently generate a key set on the local machine while running in the background." | guesstimate startTime | guesstimate _ [10 benchmark] timeToRun * 150. startTime _ Time millisecondClockValue. privateKeyPair _ nil. [self generateLocalKeyPair] fork. Utilities informUserDuring:[:bar| [privateKeyPair == nil] whileTrue:[ bar value:'Initializing Squeak security system (', (Time millisecondClockValue - startTime * 100 // guesstimate) printString,'%)'. (Delay forSeconds: 1) wait. ]. ]. ! !