equal
deleted
inserted
replaced
969 by the MenuEditor of ST/X." |
969 by the MenuEditor of ST/X." |
970 |
970 |
971 "Do not manually edit this!! If it is corrupted, |
971 "Do not manually edit this!! If it is corrupted, |
972 the MenuEditor may not be able to read the specification." |
972 the MenuEditor may not be able to read the specification." |
973 |
973 |
|
974 |
974 " |
975 " |
975 MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu |
976 MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu |
976 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp |
977 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp |
977 " |
978 " |
978 |
979 |
985 label: 'File' |
986 label: 'File' |
986 translateLabel: true |
987 translateLabel: true |
987 submenu: |
988 submenu: |
988 (Menu |
989 (Menu |
989 ( |
990 ( |
|
991 (MenuItem |
|
992 label: 'Start Timeslicing' |
|
993 itemValue: startTimeslicing |
|
994 translateLabel: true |
|
995 isVisible: isNotTimeslicing |
|
996 ) |
|
997 (MenuItem |
|
998 label: 'Stop Timeslicing' |
|
999 itemValue: stopTimeslicing |
|
1000 translateLabel: true |
|
1001 isVisible: isTimeslicing |
|
1002 ) |
|
1003 (MenuItem |
|
1004 label: '-' |
|
1005 ) |
990 (MenuItem |
1006 (MenuItem |
991 label: 'Exit' |
1007 label: 'Exit' |
992 itemValue: closeRequest |
1008 itemValue: closeRequest |
993 translateLabel: true |
1009 translateLabel: true |
994 ) |
1010 ) |
1904 currentSortOrder := Dictionary new asValue. |
1920 currentSortOrder := Dictionary new asValue. |
1905 ]. |
1921 ]. |
1906 ^ currentSortOrder |
1922 ^ currentSortOrder |
1907 ! |
1923 ! |
1908 |
1924 |
|
1925 isNotTimeslicing |
|
1926 ^ self isTimeslicing not |
|
1927 |
|
1928 "Created: / 03-11-2011 / 21:26:10 / cg" |
|
1929 ! |
|
1930 |
|
1931 isTimeslicing |
|
1932 ^ Processor isTimeSlicing |
|
1933 |
|
1934 "Created: / 03-11-2011 / 21:25:53 / cg" |
|
1935 ! |
|
1936 |
1909 processList |
1937 processList |
1910 |
1938 |
1911 processList isNil ifTrue:[ |
1939 processList isNil ifTrue:[ |
1912 processList := List new. |
1940 processList := List new. |
1913 ]. |
1941 ]. |
2563 "resume the selected process (i.e. let it run) " |
2591 "resume the selected process (i.e. let it run) " |
2564 |
2592 |
2565 self selectedProcessesSend:#resume |
2593 self selectedProcessesSend:#resume |
2566 ! |
2594 ! |
2567 |
2595 |
|
2596 startTimeslicing |
|
2597 Processor isTimeSlicing ifFalse:[ |
|
2598 Processor startTimeSlicing. |
|
2599 ]. |
|
2600 |
|
2601 "Created: / 03-11-2011 / 21:26:27 / cg" |
|
2602 ! |
|
2603 |
2568 stopProcess |
2604 stopProcess |
2569 "stop the selected process - not even interrupts will wake it up" |
2605 "stop the selected process - not even interrupts will wake it up" |
2570 |
2606 |
2571 self selectedProcessesSend:#stop |
2607 self selectedProcessesSend:#stop |
|
2608 ! |
|
2609 |
|
2610 stopTimeslicing |
|
2611 Processor isTimeSlicing ifTrue:[ |
|
2612 Processor stopTimeSlicing. |
|
2613 ]. |
|
2614 |
|
2615 "Created: / 03-11-2011 / 21:26:40 / cg" |
2572 ! |
2616 ! |
2573 |
2617 |
2574 suspendProcess |
2618 suspendProcess |
2575 "suspend the selected process - interrupts will let it run again" |
2619 "suspend the selected process - interrupts will let it run again" |
2576 |
2620 |
3629 ! ! |
3673 ! ! |
3630 |
3674 |
3631 !ProcessMonitorV2 class methodsFor:'documentation'! |
3675 !ProcessMonitorV2 class methodsFor:'documentation'! |
3632 |
3676 |
3633 version |
3677 version |
3634 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.55 2011-08-17 13:22:29 cg Exp $' |
3678 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.56 2011-11-03 20:28:49 cg Exp $' |
3635 ! |
3679 ! |
3636 |
3680 |
3637 version_CVS |
3681 version_CVS |
3638 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.55 2011-08-17 13:22:29 cg Exp $' |
3682 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.56 2011-11-03 20:28:49 cg Exp $' |
3639 ! ! |
3683 ! ! |