--- a/InspectorView.st	Sat Feb 05 14:06:56 2011 +0100
+++ b/InspectorView.st	Sat Feb 05 16:19:05 2011 +0100
@@ -910,6 +910,12 @@
 
     sel := self selection.
     (object isFilename or:[sel isFilename]) ifTrue:[
+        OperatingSystem isMSWINDOWSlike ifTrue:[
+            ^ #(
+                       ('Show in Explorer'             #showInWindowsExplorer)
+                       ('Open FileBrowser'             #openFileBrowser)
+              ).
+        ].
         ^ #(
                ('Open FileBrowser'             #openFileBrowser)
           ).
@@ -917,6 +923,7 @@
     ^ #()
 
     "Created: / 09-02-2007 / 16:10:30 / cg"
+    "Modified: / 05-02-2011 / 15:49:48 / cg"
 !
 
 optionalMethodOrBlockSelectionItems
@@ -952,6 +959,12 @@
 
     sel isStream ifTrue:[
         sel isFileStream ifTrue:[
+            OperatingSystem isMSWINDOWSlike ifTrue:[
+                ^ #(
+                       ('Show in Explorer'             #showInWindowsExplorer)
+                       ('Open FileBrowser'             #openFileBrowser)
+                  ).
+            ].
             ^ #(
                        ('Open FileBrowser'             #openFileBrowser)
               ).
@@ -965,6 +978,7 @@
     ^ #()
 
     "Created: / 09-02-2007 / 16:09:15 / cg"
+    "Modified: / 05-02-2011 / 15:49:55 / cg"
 !
 
 optionalToolItems
@@ -1312,6 +1326,27 @@
     "Modified: / 25-01-2011 / 17:23:38 / cg"
 !
 
+showInWindowsExplorer
+    "show in explorer"
+
+    |fn dir|
+
+    fn := self selection.
+    fn isNil ifTrue:[ fn := inspectedObject ].
+    fn isStream ifTrue:[
+        fn := fn pathName asFilename
+    ].
+    dir := fn isDirectory
+            ifTrue:[ fn ]
+            ifFalse:[ fn directory ].
+
+    OperatingSystem
+        openApplicationForDocument:dir 
+        operation:#explore.
+
+    "Created: / 05-02-2011 / 15:49:33 / cg"
+!
+
 showOwners
     |o|
 
@@ -2519,9 +2554,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.230 2011-02-05 13:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.231 2011-02-05 15:19:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.230 2011-02-05 13:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.231 2011-02-05 15:19:05 cg Exp $'
 ! !