#! ../mofe --f
mergeResources topLevel \
    *background gainsboro \
    *foreground black \
    *mp2*activateCallback "sV g orientation %w"

XmMainWindow main topLevel  scrollingPolicy AUTOMATIC width 600 height 550

  XmMenuBar menu_bar main
    XmPulldownMenu mp1 menu_bar unmanaged
      XmPushButton Load      mp1 activateCallback "manageChild fs"
      XmPushButton Next-Page mp1 activateCallback "GhostviewNextPage g" 
      XmPushButton Quit      mp1 activateCallback quit
    XmCascadeButton File menu_bar subMenuId mp1  mnemonic F

    XmPulldownMenu mp2 menu_bar unmanaged
      XmPushButton portrait    mp2 
      XmPushButton landscape   mp2 
      XmPushButton upside-down mp2
      XmPushButton seascape    mp2
    XmCascadeButton Orientation menu_bar subMenuId mp2 mnemonic O

    XmPulldownMenu mp3 menu_bar unmanaged
      XmPushButton Zoom-in     mp3 activateCallback "zoom 1.2"
      XmPushButton Zoom-out    mp3 activateCallback "zoom 1/1.2"
    XmCascadeButton Zoom menu_bar subMenuId mp3  mnemonic Z

    XmPulldownMenu mph menu_bar unmanaged
      XmPushButton Help    mph activateCallback "manageChild helpbox"
      XmPushButton Version mph activateCallback "manageChild versionbox"
    XmCascadeButton Help menu_bar subMenuId mph  mnemonic H

if {[lsearch $PACKAGES GHOSTVIEW] == -1} {
  set msg {
    This program can only be used, when mofe was compiled with Ghostview
    support. Your version of mofe supports only the following packages
  }
  append msg $PACKAGES
  XmLabel g main labelString $msg recomputeSize false width 500 height 300 
  sV Load sensitive false
} else {
   Ghostview g main  filename golfer.ps
}

XmMainWindowSetAreas main menu_bar NULL NULL NULL g
sV menu_bar menuHelpWidget Help

realize

regexp {[^/]*$} $argv0 progName
XmMessageDialog versionbox mph unmanaged \
	dialogTitle "Motif Demo Program using the Ghostview widget" \
	okLabelString "Close" \
	messageString "$progName Version 0.00001, Jun 19, 1994"

XmMessageDialog helpbox mph unmanaged \
	dialogTitle "$progName Help" \
	okLabelString "Close" \
	messageString "This program is a simple demo program for the Ghostview Widget."

XmFileSelectionDialog fs mp1 unmanaged \
	dialogTitle "Select a Postscript File for Viewing" \
	okLabelString "Load" \
	pattern "*ps" \
	autoUnmanage true \
	okCallback "sV g filename %s"


unmanageChild \
	[XmMessageBoxGetChild versionbox DIALOG_CANCEL_BUTTON] \
	[XmMessageBoxGetChild versionbox DIALOG_HELP_BUTTON] 
unmanageChild \
	[XmMessageBoxGetChild helpbox DIALOG_CANCEL_BUTTON] \
	[XmMessageBoxGetChild helpbox DIALOG_HELP_BUTTON] 
unmanageChild \
	[XmFileSelectionBoxGetChild fs DIALOG_HELP_BUTTON] 

proc zoom {factor} {
   sV g xdpi [expr [gV g xdpi]*$factor]
   sV g ydpi [expr [gV g ydpi]*$factor]
}

#register term {puts stderr ignore}

