1060 canContinue := true. |
1060 canContinue := true. |
1061 |
1061 |
1062 terminateButton enable. |
1062 terminateButton enable. |
1063 abortButton enable. |
1063 abortButton enable. |
1064 |
1064 |
1065 sendButton disable. |
1065 sendButton disable; beInvisible. |
1066 sendButton beInvisible. |
1066 stepButton disable; beInvisible. |
1067 stepButton disable. |
1067 nextButton disable; beInvisible. |
1068 stepButton beInvisible. |
1068 nextOverButton notNil ifTrue:[nextOverButton disable; beInvisible]. |
1069 nextButton disable. |
1069 nextOutButton notNil ifTrue:[nextOutButton disable; beInvisible]. |
1070 nextButton beInvisible. |
|
1071 nextOverButton disable. |
|
1072 nextOverButton beInvisible. |
|
1073 nextOutButton disable. |
|
1074 nextOutButton beInvisible. |
|
1075 |
1070 |
1076 aProcess isNil ifTrue:[ |
1071 aProcess isNil ifTrue:[ |
1077 terminateButton disable. |
1072 terminateButton disable. |
1078 abortButton disable. |
1073 abortButton disable. |
1079 continueButton disable. |
1074 continueButton disable. |
1294 |
1289 |
1295 |
1290 |
1296 separator := View extent:(10 @ 5) in:bpanel. |
1291 separator := View extent:(10 @ 5) in:bpanel. |
1297 separator borderWidth:0; level:0. |
1292 separator borderWidth:0; level:0. |
1298 |
1293 |
1299 img := Image fromFile:'bitmaps/stepIn.xpm'. |
|
1300 img isNil ifTrue:[ |
|
1301 img := (resources at:'next') |
|
1302 ]. |
|
1303 nextButton := Button |
1294 nextButton := Button |
1304 label:img |
1295 label:(resources at:'next') |
1305 action:[stepButton turnOff. self doNext] |
1296 action:[stepButton turnOff. self doNext] |
1306 in:bpanel. |
1297 in:bpanel. |
1307 |
1298 |
1308 img := Image fromFile:'bitmaps/stepOver.xpm'. |
1299 "/ cg: |
1309 img isNil ifTrue:[ |
1300 "/ I disabled the stepIn / stepOut buttons - for now. |
1310 img := (resources at:'over') |
1301 "/ they do not work relyable with inlined blocks yet. |
1311 ]. |
1302 "/ |
1312 nextOverButton := Button |
1303 |
1313 label:img |
1304 "/ img := Image fromFile:'bitmaps/stepIn.xpm'. |
1314 action:[stepButton turnOff. self doNextOver] |
1305 "/ img isNil ifTrue:[ |
1315 in:bpanel. |
1306 "/ img := (resources at:'next') |
1316 |
1307 "/ ]. |
1317 img := Image fromFile:'bitmaps/stepOut.xpm'. |
1308 "/ nextButton := Button |
1318 img isNil ifTrue:[ |
1309 "/ label:img |
1319 img := (resources at:'out') |
1310 "/ action:[stepButton turnOff. self doNext] |
1320 ]. |
1311 "/ in:bpanel. |
1321 nextOutButton := Button |
1312 "/ |
1322 label:img |
1313 "/ img := Image fromFile:'bitmaps/stepOver.xpm'. |
1323 action:[stepButton turnOff. self doNextOut] |
1314 "/ img isNil ifTrue:[ |
1324 in:bpanel. |
1315 "/ img := (resources at:'over') |
|
1316 "/ ]. |
|
1317 "/ nextOverButton := Button |
|
1318 "/ label:img |
|
1319 "/ action:[stepButton turnOff. self doNextOver] |
|
1320 "/ in:bpanel. |
|
1321 "/ |
|
1322 "/ img := Image fromFile:'bitmaps/stepOut.xpm'. |
|
1323 "/ img isNil ifTrue:[ |
|
1324 "/ img := (resources at:'out') |
|
1325 "/ ]. |
|
1326 "/ nextOutButton := Button |
|
1327 "/ label:img |
|
1328 "/ action:[stepButton turnOff. self doNextOut] |
|
1329 "/ in:bpanel. |
1325 |
1330 |
1326 stepButton := Button |
1331 stepButton := Button |
1327 label:(resources at:'step') |
1332 label:(resources at:'step') |
1328 action:[stepButton turnOff. self doStep] |
1333 action:[stepButton turnOff. self doStep] |
1329 in:bpanel. |
1334 in:bpanel. |