equal
deleted
inserted
replaced
444 (MenuItem |
444 (MenuItem |
445 label: 'Show dense WalkBack' |
445 label: 'Show dense WalkBack' |
446 itemValue: toggleVerboseWalkback |
446 itemValue: toggleVerboseWalkback |
447 translateLabel: true |
447 translateLabel: true |
448 isVisible: showingVerboseWalkback |
448 isVisible: showingVerboseWalkback |
|
449 ) |
|
450 (MenuItem |
|
451 label: '-' |
|
452 ) |
|
453 (MenuItem |
|
454 label: 'Raise Debugger when Entering' |
|
455 itemValue: autoRaiseView: |
|
456 translateLabel: true |
|
457 indication: autoRaiseView |
449 ) |
458 ) |
450 (MenuItem |
459 (MenuItem |
451 label: '-' |
460 label: '-' |
452 ) |
461 ) |
453 (MenuItem |
462 (MenuItem |
683 ) |
692 ) |
684 ) |
693 ) |
685 nil |
694 nil |
686 nil |
695 nil |
687 ) |
696 ) |
|
697 |
|
698 "Modified: / 15-05-2007 / 13:31:52 / cg" |
688 ! ! |
699 ! ! |
689 |
700 |
690 !DebugView class methodsFor:'misc'! |
701 !DebugView class methodsFor:'misc'! |
691 |
702 |
692 interestingContextFrom:aContext |
703 interestingContextFrom:aContext |
1157 open any other tools while this debugger is active. |
1168 open any other tools while this debugger is active. |
1158 |
1169 |
1159 Also, there is no event processing (redraw) for other views.' |
1170 Also, there is no event processing (redraw) for other views.' |
1160 ]. |
1171 ]. |
1161 |
1172 |
1162 self raise. |
1173 self autoRaiseView ifTrue:[ |
|
1174 "/ self raise. |
|
1175 self raiseDeiconified. |
|
1176 self topView activate. |
|
1177 self topView setForegroundWindow. |
|
1178 ]. |
1163 |
1179 |
1164 canContinue := true. |
1180 canContinue := true. |
1165 exitAction := nil. |
1181 exitAction := nil. |
1166 |
1182 |
1167 "/ enter private event handling loop. This is left (and we come back here again) |
1183 "/ enter private event handling loop. This is left (and we come back here again) |
1316 OpenDebuggers remove:self ifAbsent:[]. |
1332 OpenDebuggers remove:self ifAbsent:[]. |
1317 ]. |
1333 ]. |
1318 self cacheMyself. |
1334 self cacheMyself. |
1319 ] |
1335 ] |
1320 |
1336 |
1321 "Modified: / 17.4.1997 / 13:01:32 / stefan" |
1337 "Modified: / 17-04-1997 / 13:01:32 / stefan" |
1322 "Created: / 30.10.1997 / 21:08:18 / cg" |
1338 "Created: / 30-10-1997 / 21:08:18 / cg" |
1323 "Modified: / 13.10.1998 / 19:56:59 / ps" |
1339 "Modified: / 13-10-1998 / 19:56:59 / ps" |
1324 "Modified: / 18.11.2001 / 00:48:47 / cg" |
1340 "Modified: / 15-05-2007 / 13:41:46 / cg" |
1325 ! |
1341 ! |
1326 |
1342 |
1327 exit_abort |
1343 exit_abort |
1328 "/ cannot simply raise an abort here, because if there is an abortHandler somewhere, |
1344 "/ cannot simply raise an abort here, because if there is an abortHandler somewhere, |
1329 "/ that one would run on top of this context. |
1345 "/ that one would run on top of this context. |
3109 ignoreBreakpoints := aBoolean not. |
3125 ignoreBreakpoints := aBoolean not. |
3110 self initializeMiddleButtonMenu. |
3126 self initializeMiddleButtonMenu. |
3111 self initializeContextViewsMiddleButtonMenu. |
3127 self initializeContextViewsMiddleButtonMenu. |
3112 ! |
3128 ! |
3113 |
3129 |
|
3130 autoRaiseView |
|
3131 ^ UserPreferences current autoRaiseDebugger |
|
3132 |
|
3133 "Created: / 15-05-2007 / 13:29:55 / cg" |
|
3134 ! |
|
3135 |
|
3136 autoRaiseView:aBoolean |
|
3137 UserPreferences current autoRaiseDebugger:aBoolean |
|
3138 |
|
3139 "Created: / 15-05-2007 / 13:30:04 / cg" |
|
3140 ! |
|
3141 |
3114 autoUpdateOff |
3142 autoUpdateOff |
3115 "stop the update process" |
3143 "stop the update process" |
3116 |
3144 |
3117 updateProcess notNil ifTrue:[ |
3145 updateProcess notNil ifTrue:[ |
3118 monitorToggle lampColor:(Color yellow). |
3146 monitorToggle lampColor:(Color yellow). |
5989 ! ! |
6017 ! ! |
5990 |
6018 |
5991 !DebugView class methodsFor:'documentation'! |
6019 !DebugView class methodsFor:'documentation'! |
5992 |
6020 |
5993 version |
6021 version |
5994 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.414 2007-03-06 13:28:28 cg Exp $' |
6022 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.415 2007-05-15 11:41:23 cg Exp $' |
5995 ! ! |
6023 ! ! |
5996 |
6024 |
5997 DebugView initialize! |
6025 DebugView initialize! |