--- a/Win32OperatingSystem.st	Tue Sep 11 13:56:06 2007 +0200
+++ b/Win32OperatingSystem.st	Wed Sep 12 10:28:27 2007 +0200
@@ -10444,6 +10444,132 @@
     ^ PerformanceText
 ! !
 
+!Win32OperatingSystem::PerformanceData class methodsFor:'queries - memory'!
+
+getFreePageFileSizeInKB
+
+    %{
+        MEMORYSTATUS mState;       
+        GlobalMemoryStatus (&mState);
+
+        return __mkSmallInteger(mState.dwAvailPageFile / 1024);
+    %}.
+
+    "
+        self getFreePageFileSizeInKB       
+    "
+!
+
+getFreePageFileSizeInMB
+    ^ (self getFreePageFileSizeInKB / 1024) asInteger       
+
+    "
+        self getFreePageFileSizeInMB        
+    "
+!
+
+getFreePhysicalMemoryInKB
+
+    %{
+        MEMORYSTATUS mState;       
+        GlobalMemoryStatus (&mState);
+
+        return __mkSmallInteger(mState.dwAvailPhys / 1024);
+    %}.
+
+    "
+        self getFreePhysicalMemoryInKB       
+    "
+!
+
+getFreePhysicalMemoryInMB
+    ^ (self getFreePhysicalMemoryInKB / 1024) asInteger       
+
+    "
+        self getFreePhysicalMemoryInMB        
+    "
+!
+
+getPageFileSizeInKB
+    ^ self getPageFileSizeInMB * 1024
+
+    "
+        self getPageFileSizeInKB       
+    "
+!
+
+getPageFileSizeInMB
+
+    %{
+        SYSTEM_INFO sInfo;       
+        GetSystemInfo(&sInfo);
+
+        return __mkSmallInteger(sInfo.dwPageSize);
+    %}.
+
+    "
+        self getPageFileSizeInMB        
+    "
+!
+
+getPhysicalMemoryInKB
+
+    %{
+        MEMORYSTATUS mState;       
+        GlobalMemoryStatus (&mState);
+
+        return __mkSmallInteger(mState.dwTotalPhys / 1024);
+    %}.
+
+    "
+        self getPhysicalMemoryInKB       
+    "
+!
+
+getPhysicalMemoryInMB
+    ^ (self getPhysicalMemoryInKB / 1024) asInteger       
+
+    "
+        self getPhysicalMemoryInMB        
+    "
+!
+
+getUsedMemoryInPercentage
+
+    %{
+        MEMORYSTATUS mState;       
+        GlobalMemoryStatus (&mState);
+
+        return __mkSmallInteger(mState.dwMemoryLoad);
+    %}.
+
+    "
+        self getUsedMemoryInPercentage   
+    "
+!
+
+getVirtualMemoryInKB
+
+    %{
+        MEMORYSTATUS mState;       
+        GlobalMemoryStatus (&mState);
+
+        return __mkSmallInteger(mState.dwTotalVirtual / 1024);
+    %}.
+
+    "
+        self getVirtualMemoryInKB       
+    "
+!
+
+getVirtualMemoryInMB
+    ^ (self getVirtualMemoryInKB / 1024) asInteger       
+
+    "
+        self getVirtualMemoryInMB
+    "
+! !
+
 !Win32OperatingSystem::PerformanceData methodsFor:'accessing'!
 
 objectArray
@@ -11120,7 +11246,7 @@
     ^ self getValuesByCounter:1382     
 
     "
-        self current availableMBytes   
+        self current availableMBytes      
     "
 ! !
 
@@ -14166,7 +14292,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.307 2007-09-11 09:09:48 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.308 2007-09-12 08:28:27 sr Exp $'
 ! !
 
 Win32OperatingSystem initialize!