AbstractOperatingSystem.st
changeset 13107 1bfbec80d8e3
parent 12971 8aa39c96e885
child 13111 26b9ff898bc6
--- a/AbstractOperatingSystem.st	Wed Oct 27 16:35:25 2010 +0200
+++ b/AbstractOperatingSystem.st	Fri Oct 29 12:17:02 2010 +0200
@@ -591,6 +591,29 @@
     ]
 ! !
 
+!AbstractOperatingSystem class methodsFor:'dummy shell operations'!
+
+openApplicationForDocument:aFilenameOrString operation:operationSymbol
+    "open a windows-shell application to present the document contained in aFilenameOrString.
+     This looks for the files extension, and is typically used to present help-files,
+     html documents, pdf documents etc.
+     operationSymbol is one of:
+        open
+        edit"
+
+    "/ use a fileBrowser
+    UserPreferences current fileBrowserClass openOn:aFilenameOrString
+
+    "
+     self openApplicationForDocument: Filename currentDirectory operation:#open
+     self openApplicationForDocument: '..\..\doc\books\ArtOfSmalltalk\artMissing186187Fix1.pdf' asFilename operation:#open
+
+     self openApplicationForDocument: 'C:\WINDOWS\Help\clipbrd.chm' asFilename operation:#open
+    "
+
+    "Created: / 29-10-2010 / 12:16:38 / cg"
+! !
+
 !AbstractOperatingSystem class methodsFor:'error messages'!
 
 clearLastErrorNumber
@@ -6953,11 +6976,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.199 2010-07-29 10:14:05 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.200 2010-10-29 10:17:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.199 2010-07-29 10:14:05 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.200 2010-10-29 10:17:02 cg Exp $'
 ! !
 
 AbstractOperatingSystem initialize!