Converting the Way Errors are Shown

By Joe Winchester

Completed code listing

Application create: #JrwNewConverterManagers with:
     (#( AbtViewApplication)
       collect: [:each | Smalltalk at: each ifAbsent: [
          Application errorPrerequisite: #JrwNewConverterManagers missing: 
          each
]])!

JrwNewConverterManagers becomeDefault! 
AbtTextConverterManager subclass: #JrwTextConverterManager
     instanceVariableNames: ''
     classVariableNames: ''
     poolDictionaries: ''!

JrwNewConverterManagers becomeDefault!
AbtViewApplicationAbtPackage subclass: #JrwNewConverterManagersAbtPackage
     instanceVariableNames: ''
     classVariableNames: ''
     poolDictionaries: ''!

JrwNewConverterManagers becomeDefault! 
Application subclass: #JrwNewConverterManagers
     instanceVariableNames: ''
     classVariableNames: ''
     poolDictionaries: ''!


JrwNewConverterManagers becomeDefault!

!AbtMultiLineEditView class privateMethods !

newPart

    ^super superNewPart! !


!AbtTextView class privateMethods !

newPart

    ^super newPart setJrwConverterManager!

superNewPart

    ^super newPart! !


!AbtTextView privateMethods !

setJrwConverterManager

  converterManager := JrwTextConverterManager forView: self! !


!JrwNewConverterManagers class privateMethods !

runtimeStartUp 

  self abtViewApplicationPackage runtimeStartUp! !


!JrwTextConverterManager privateMethods !

errorString

  ^self userInputString!

setWidgetDisplay

self isUserInputInError 
  ifTrue: [ 
   self view
    backgroundColor: 'red' ;
    foregroundColor: 'white' ]
  ifFalse: [ 
   self view
    backgroundColor: 'white' ;
    foregroundColor: 'black' ].

 super setWidgetDisplay! !


JrwTextConverterManager initializeAfterLoad!
JrwNewConverterManagersAbtPackage initializeAfterLoad!
JrwNewConverterManagers initializeAfterLoad!

JrwNewConverterManagers loaded!

Return to Joe's Article

Home Page