ClassDescription.st
changeset 8694 64a59d1b803c
parent 8552 00f769f4a1b4
child 8711 c5f28b4c719d
equal deleted inserted replaced
8693:e9543a43bb71 8694:64a59d1b803c
  1366     "turn off change file update while evaluating aBlock.
  1366     "turn off change file update while evaluating aBlock.
  1367      Returns the blocks evaluated value."
  1367      Returns the blocks evaluated value."
  1368 
  1368 
  1369     |retVal|
  1369     |retVal|
  1370 
  1370 
  1371     UpdateChangeFileQuerySignal answer:false
  1371     (UpdateChangeFileQuerySignal, UpdateChangeListQuerySignal) answer:false
  1372     do:[
  1372     do:[
  1373 	UpdateChangeListQuerySignal answer:false
  1373         retVal := aBlock value
  1374 	do:[
       
  1375 	   retVal := aBlock value
       
  1376 	].
       
  1377     ].
  1374     ].
  1378     ^ retVal
  1375     ^ retVal
  1379 
  1376 
  1380     "Modified: 17.1.1997 / 20:48:05 / cg"
  1377     "Modified: 17.1.1997 / 20:48:05 / cg"
  1381     "Created: 2.4.1997 / 17:34:35 / stefan"
  1378     "Created: 2.4.1997 / 17:34:35 / stefan"
  3935 ! !
  3932 ! !
  3936 
  3933 
  3937 !ClassDescription class methodsFor:'documentation'!
  3934 !ClassDescription class methodsFor:'documentation'!
  3938 
  3935 
  3939 version
  3936 version
  3940     ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.177 2004-09-20 08:58:53 ca Exp $'
  3937     ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.178 2005-01-21 17:16:07 stefan Exp $'
  3941 ! !
  3938 ! !
  3942 
  3939 
  3943 ClassDescription initialize!
  3940 ClassDescription initialize!
  3944 ClassDescription::MethodRedefinitionNotification initialize!
  3941 ClassDescription::MethodRedefinitionNotification initialize!
  3945 ClassDescription::ClassRedefinitionNotification initialize!
  3942 ClassDescription::ClassRedefinitionNotification initialize!