equal
deleted
inserted
replaced
471 <resource: #menu> |
471 <resource: #menu> |
472 |
472 |
473 ^ |
473 ^ |
474 #(Menu |
474 #(Menu |
475 ( |
475 ( |
|
476 (MenuItem |
|
477 label: 'File' |
|
478 translateLabel: true |
|
479 submenu: |
|
480 (Menu |
|
481 ( |
|
482 (MenuItem |
|
483 label: 'Report a Bug via eMail' |
|
484 itemValue: doOpenReportMailApp |
|
485 translateLabel: true |
|
486 ) |
|
487 (MenuItem |
|
488 label: '-' |
|
489 ) |
|
490 (MenuItem |
|
491 label: 'Exit' |
|
492 itemValue: closeRequest |
|
493 translateLabel: true |
|
494 isVisible: isInspecting |
|
495 ) |
|
496 (MenuItem |
|
497 label: 'Close Debugger and Abort' |
|
498 itemValue: closeRequest |
|
499 translateLabel: true |
|
500 isVisible: isNotInspecting |
|
501 ) |
|
502 ) |
|
503 nil |
|
504 nil |
|
505 ) |
|
506 ) |
|
507 |
476 (MenuItem |
508 (MenuItem |
477 label: 'View' |
509 label: 'View' |
478 translateLabel: true |
510 translateLabel: true |
479 submenu: |
511 submenu: |
480 (Menu |
512 (Menu |
508 ) |
540 ) |
509 (MenuItem |
541 (MenuItem |
510 label: '-' |
542 label: '-' |
511 ) |
543 ) |
512 (MenuItem |
544 (MenuItem |
513 label: 'Exit' |
545 label: 'Settings...' |
514 itemValue: closeRequest |
546 itemValue: openSettingsDialog |
515 translateLabel: true |
547 translateLabel: true |
516 isVisible: isInspecting |
|
517 ) |
|
518 (MenuItem |
|
519 label: 'Close Debugger and Abort' |
|
520 itemValue: closeRequest |
|
521 translateLabel: true |
|
522 isVisible: isNotInspecting |
|
523 ) |
548 ) |
524 ) |
549 ) |
525 nil |
550 nil |
526 nil |
551 nil |
527 ) |
552 ) |
4233 openSettingsDialog |
4258 openSettingsDialog |
4234 |settingsList settingsApp| |
4259 |settingsList settingsApp| |
4235 |
4260 |
4236 settingsList := |
4261 settingsList := |
4237 #( |
4262 #( |
|
4263 #('Debugger' #'AbstractSettingsApplication::DebuggerSettingsAppl' ) |
4238 #('Editor' #'AbstractSettingsApplication::EditSettingsAppl' ) |
4264 #('Editor' #'AbstractSettingsApplication::EditSettingsAppl' ) |
4239 #('Syntax Color' #'AbstractSettingsApplication::SyntaxColorSettingsAppl' ) |
4265 #('Syntax Color' #'AbstractSettingsApplication::SyntaxColorSettingsAppl' ) |
4240 #('Code Format' #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl' ) |
4266 #('Code Format' #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl' ) |
4241 #('Debugger' #'AbstractSettingsApplication::DebuggerSettingsAppl' ) |
|
4242 ). |
4267 ). |
4243 |
4268 |
4244 settingsApp := SettingsDialog new. |
4269 settingsApp := SettingsDialog new. |
4245 settingsApp requestor:self. |
4270 settingsApp requestor:self. |
4246 settingsApp installSettingsEntries:settingsList. |
4271 settingsApp installSettingsEntries:settingsList. |
6644 ! ! |
6669 ! ! |
6645 |
6670 |
6646 !DebugView class methodsFor:'documentation'! |
6671 !DebugView class methodsFor:'documentation'! |
6647 |
6672 |
6648 version |
6673 version |
6649 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.466 2009-05-12 07:43:22 cg Exp $' |
6674 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.467 2009-05-13 08:03:14 cg Exp $' |
6650 ! ! |
6675 ! ! |
6651 |
6676 |
6652 DebugView initialize! |
6677 DebugView initialize! |