ByteCodeCompiler.st
changeset 3514 51d1435bab3b
parent 3451 3bf71ab30730
child 3531 94f9fcb3672f
equal deleted inserted replaced
3513:ec270f0832ea 3514:51d1435bab3b
  3173                         ] ifFalse:[
  3173                         ] ifFalse:[
  3174                             dialogText :=     
  3174                             dialogText :=     
  3175 'installation of binary code for ''%1>>%2''
  3175 'installation of binary code for ''%1>>%2''
  3176 is not possible or disabled.
  3176 is not possible or disabled.
  3177 
  3177 
  3178 Shall I use the old methods functionality
  3178 Shall I use the old method''s functionality
  3179 or instead create a dummy trap method for it ?
  3179 or instead create a dummy trap method for it ?
  3180 
  3180 
  3181 Hint:
  3181 Hint:
  3182   if that method is needed by the system, you better leave the
  3182   if that method is needed by the system, you better leave the
  3183   original functionality in the system.
  3183   original functionality in the system.
  3184 
  3184 
  3185 Close this warnBox to abort the compilation.
  3185 Close this warnBox to abort the compilation.
  3186 '
  3186 '
  3187                         ].
  3187                         ].
  3188                         answer := Dialog
  3188                         answer := Dialog
  3189                                      confirmWithCancel:(dialogText bindWith:aClass name with:selector)
  3189                                      confirmWithCancel:(dialogText bindWith:aClass name allBold with:selector allBold)
  3190                                      labels:#('cancel' 'keep old' 'trap code')
  3190                                      labels:#('Cancel' 'Keep Old' 'Trap Code')
  3191                                      default:2.
  3191                                      default:2.
  3192                         answer isNil ifTrue:[
  3192                         answer isNil ifTrue:[
  3193                             ^ failBlock value
  3193                             ^ failBlock value
  3194                         ].
  3194                         ].
  3195                         answer == false ifTrue:[
  3195                         answer == false ifTrue:[
  3608 ! !
  3608 ! !
  3609 
  3609 
  3610 !ByteCodeCompiler class methodsFor:'documentation'!
  3610 !ByteCodeCompiler class methodsFor:'documentation'!
  3611 
  3611 
  3612 version
  3612 version
  3613     ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.287 2014-05-21 22:26:43 cg Exp $'
  3613     ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.288 2014-09-30 09:24:59 cg Exp $'
  3614 !
  3614 !
  3615 
  3615 
  3616 version_CVS
  3616 version_CVS
  3617     ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.287 2014-05-21 22:26:43 cg Exp $'
  3617     ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.288 2014-09-30 09:24:59 cg Exp $'
  3618 !
  3618 !
  3619 
  3619 
  3620 version_SVN
  3620 version_SVN
  3621     ^ '$ Id $'
  3621     ^ '$ Id $'
  3622 ! !
  3622 ! !