--- a/WinWorkstation.st	Tue Mar 06 19:52:23 2012 +0100
+++ b/WinWorkstation.st	Wed Mar 07 11:20:43 2012 +0100
@@ -7413,6 +7413,25 @@
     ^ true "/ false
 !
 
+smallestMonitorHeight
+    "returns the usable height of the smallest monitor in a mult-monito setup"
+
+    |info minH|
+
+    minH := self usableHeight.
+    self monitorHandles do:[:eachHandle |
+        info := self monitorInfoFor:eachHandle.
+        info notNil ifTrue:[ minH := minH min: info workHeight ].
+    ].
+    ^ minH
+
+    "
+     Display smallestMonitorHeight
+    "
+
+    "Modified: / 22-10-2010 / 15:34:44 / cg"
+!
+
 supportedImageFormats
     "return an array with supported image formats; each array entry
      is another array, consisting of depth and bitsPerPixel values."
@@ -19049,11 +19068,11 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.458 2012-02-14 18:25:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.459 2012-03-07 10:20:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.458 2012-02-14 18:25:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.459 2012-03-07 10:20:43 stefan Exp $'
 ! !
 
 WinWorkstation initialize!