Changeset 220 for trunk

Timestamp:

03/14/07 16:50:19 (17 years ago)

Author:

smasson

Message:

add gv and ggv in ps viewers list

File:

• trunk/SRC/Postscript/printps.pro (modified) (2 diffs)

trunk/SRC/Postscript/printps.pro

@@ -105 +105 @@
 ; call the viewers
       CASE event.value OF
-        'Ghostview':spawn, '\ghostview -'+papsize+' -quiet -'+ori+' '+uval.nameps
-        'Ghostscript':spawn, '\gs -sPAPERSIZE='+papsize+' -q '+uval.nameps
-        'Kghostview':spawn, '\kghostview '+uval.nameps
+        'GNU Ghostview':cmd = '\gv --media='+papsize+' --orientation='+ori+' '+uval.nameps
+        'Gnome Ghostview':cmd = '\ggv '+uval.nameps
+        'Ghostview':cmd = '\ghostview -'+papsize+' -quiet -'+ori+' '+uval.nameps
+        'Ghostscript':cmd = '\gs -sPAPERSIZE='+papsize+' -q '+uval.nameps
+        'Kghostview':cmd = '\kghostview '+uval.nameps
       ENDCASE
+      spawn, cmd
       return
     END
@@ -276 +279 @@
 ; ps viewers grouped button
   psviewers = ['no psviewers found']
+  IF file_which(getenv('PATH'), 'gv') NE '' THEN $
+    psviewers = [psviewers, 'GNU Ghostview']
+  IF file_which(getenv('PATH'), 'ggv') NE '' THEN $
+    psviewers = [psviewers, 'Gnome Ghostview']
   IF file_which(getenv('PATH'), 'ghostview') NE '' THEN $
     psviewers = [psviewers, 'Ghostview']