equal
deleted
inserted
replaced
585 oldData := Array new:1000. |
585 oldData := Array new:1000. |
586 newData := Array new:1000. |
586 newData := Array new:1000. |
587 freeData := Array new:1000. |
587 freeData := Array new:1000. |
588 |
588 |
589 updateIndex := 1. |
589 updateIndex := 1. |
590 org := font widthOf:'max 99999k'. |
590 |
|
591 self font:((Font family:'courier' face:'medium' style:'roman' size:10) onDevice:device). |
|
592 org := font widthOf:'max 99999k '. |
591 level := 0. |
593 level := 0. |
592 |
594 |
593 maxTotal := minTotal := ObjectMemory oldSpaceSize |
595 maxTotal := minTotal := ObjectMemory oldSpaceSize |
594 + ObjectMemory symSpaceSize |
596 + ObjectMemory symSpaceSize |
595 + ObjectMemory newSpaceSize. |
597 + ObjectMemory newSpaceSize. |
604 newColor := Color grey:67. |
606 newColor := Color grey:67. |
605 freeColor := Color grey:33. |
607 freeColor := Color grey:33. |
606 oldColor := Color white. |
608 oldColor := Color white. |
607 ]. |
609 ]. |
608 |
610 |
609 self font:(Font family:'courier' face:'medium' style:'roman' size:10). |
|
610 |
|
611 self model:self. |
611 self model:self. |
612 self menu:#memoryMenu |
612 self menu:#memoryMenu |
613 |
613 |
614 " |
614 " |
615 MemoryMonitor open |
615 MemoryMonitor open |
616 " |
616 " |
617 |
617 |
618 "Modified: 23.1.1997 / 22:37:06 / cg" |
618 "Modified: / 27.7.1998 / 19:57:07 / cg" |
619 ! |
619 ! |
620 |
620 |
621 memoryMenu |
621 memoryMenu |
622 |m specialMenu items| |
622 |m specialMenu items| |
623 |
623 |
676 ! |
676 ! |
677 |
677 |
678 realize |
678 realize |
679 super realize. |
679 super realize. |
680 updateBlock notNil ifTrue:[ |
680 updateBlock notNil ifTrue:[ |
681 Processor addTimedBlock:updateBlock afterSeconds:updateInterval. |
681 Processor addTimedBlock:updateBlock afterSeconds:updateInterval. |
682 ] ifFalse:[ |
682 ] ifFalse:[ |
683 myProcess := [ |
683 myProcess := [ |
684 |d| |
684 |d| |
685 |
685 |
686 [true] whileTrue:[ |
686 [true] whileTrue:[ |
687 (Delay forSeconds:updateInterval) wait. |
687 (Delay forSeconds:updateInterval) wait. |
688 self updateDisplay |
688 self updateDisplay |
689 ] |
689 ] |
690 ] forkAt:6. |
690 ] forkAt:6. |
691 myProcess name:'monitor [' , |
691 myProcess name:'monitor [' , |
692 Processor activeProcess id printString , |
692 Processor activeProcess id printString , |
693 '] update' |
693 '] update' |
694 ]. |
694 ]. |
695 |
695 |
696 newColor := newColor on:device. |
696 newColor := newColor on:device. |
697 freeColor := freeColor on:device. |
697 freeColor := freeColor on:device. |
698 oldColor := oldColor on:device. |
698 oldColor := oldColor on:device. |
699 |
699 |
700 font := font on:device. |
700 "Modified: / 27.7.1998 / 19:57:51 / cg" |
701 ! ! |
701 ! ! |
702 |
702 |
703 !MemoryMonitor methodsFor:'menu functions'! |
703 !MemoryMonitor methodsFor:'menu functions'! |
704 |
704 |
705 backgroundCollect |
705 backgroundCollect |
897 ! ! |
897 ! ! |
898 |
898 |
899 !MemoryMonitor class methodsFor:'documentation'! |
899 !MemoryMonitor class methodsFor:'documentation'! |
900 |
900 |
901 version |
901 version |
902 ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.50 1998-07-15 11:01:02 cg Exp $' |
902 ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.51 1998-07-27 17:58:22 cg Exp $' |
903 ! ! |
903 ! ! |