ApplicationModel.st
changeset 4186 728710f3356f
parent 4183 a40f88ee0673
child 4189 d1e0e0a09c1c
equal deleted inserted replaced
4185:6d6795c91e9c 4186:728710f3356f
  1089 !
  1089 !
  1090 
  1090 
  1091 openLauncherOnInitializedDisplayNamed:displayName
  1091 openLauncherOnInitializedDisplayNamed:displayName
  1092     |display app wsClass|
  1092     |display app wsClass|
  1093 
  1093 
  1094     wsClass := Smalltalk classNamed:#XWorkstation.
  1094     wsClass := #XWorkstation asClass.
  1095     wsClass isNil ifTrue:[
       
  1096         self error:'XWorkstation has not been loaded'
       
  1097     ].
       
  1098 
  1095 
  1099     [
  1096     [
  1100         display := wsClass newDispatchingFor:displayName.
  1097         display := wsClass newDispatchingFor:displayName.
  1101         display deviceIOErrorSignal handlerBlock:[:ex |
  1098         display deviceIOErrorSignal handlerBlock:[:ex |
  1102             'DeviceWorkstation [warning]: stop dispatch due to I/O error: ' errorPrint.
  1099             'DeviceWorkstation [warning]: stop dispatch due to I/O error: ' errorPrint.
  1131                         expandMacrosWith:displayName with:ex description).
  1128                         expandMacrosWith:displayName with:ex description).
  1132     ].
  1129     ].
  1133     ^ app
  1130     ^ app
  1134 
  1131 
  1135     "Created: / 01-06-2010 / 11:23:52 / sr"
  1132     "Created: / 01-06-2010 / 11:23:52 / sr"
       
  1133     "Modified: / 10-10-2018 / 00:39:49 / Claus Gittinger"
  1136 !
  1134 !
  1137 
  1135 
  1138 openModal
  1136 openModal
  1139     "create an instance of the application and open its view modal"
  1137     "create an instance of the application and open its view modal"
  1140 
  1138