ifmapper 0.5

data/lib/IFMapper/FXMapDialogBox.rb

@@ -0,0 +1,51 @@
+
+
+class FXMapDialogBox < FXDialogBox
+
+  def copy_to()
+    @map.name       = @name.text
+    @map.creator    = @creator.text
+    @map.navigation = (@read.checkState == 1)
+    @map.update_title
+  end
+
+  def copy_from(map)
+    @name.text       = map.name
+    @creator.text    = map.creator
+    @read.checkState = map.navigation
+    @map = map
+  end
+
+  def initialize(parent)
+    decor = DECOR_TITLE|DECOR_BORDER|DECOR_CLOSE
+
+    super( parent, "Map Information", decor, 40, 40, 0, 0 )
+    mainFrame = FXVerticalFrame.new(self,
+				    FRAME_SUNKEN|FRAME_THICK|
+				    LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    frame = FXHorizontalFrame.new(mainFrame, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    FXLabel.new(frame, "Name: ", nil, 0, LAYOUT_FILL_X)
+    @name = FXTextField.new(frame, 40, nil, 0, LAYOUT_FILL_ROW)
+
+    frame = FXVerticalFrame.new(mainFrame, 
+				LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    FXLabel.new(frame, "Creator: ", nil, 0, LAYOUT_FILL_X)
+    @creator = FXTextField.new(frame, 40, nil, 0, LAYOUT_FILL_ROW)
+    
+    @read = FXCheckButton.new(frame, "Read Only Map", nil, 0,
+			      ICON_BEFORE_TEXT|LAYOUT_LEFT|
+			      LAYOUT_SIDE_RIGHT)
+
+    @name.connect(SEL_CHANGED) { copy_to() }
+    @creator.connect(SEL_CHANGED) { copy_to() }
+    @read.connect(SEL_COMMAND) { copy_to() }
+    
+    @parent = parent
+
+    # We need to create the dialog box first, so we can use select text.
+    create
+  end
+end

data/lib/IFMapper/FXMapFileDialog.rb

@@ -0,0 +1,29 @@
+
+
+#
+# A simple class to show a filerequester that remembers the
+# last directory visited.
+#
+class FXMapFileDialog < FXFileDialog
+  @@last_path = nil
+
+  KNOWN_EXTENSIONS = [
+    "Map Files (*.map,*.ifm)",
+    "All Files (*)",
+  ]
+
+
+  def initialize(parent, title, patterns = KNOWN_EXTENSIONS)
+    opts = 0
+    if RUBY_PLATFORM =~ /mswin/
+      opts |= FILEMATCH_NOESCAPE
+    end
+    super(parent, title, opts)
+    setPatternList(patterns)
+    self.directory = @@last_path if @@last_path
+    if execute != 0
+      @@last_path = filename.sub(/[\\\/][^\\\/]+$/, '')
+    end
+  end
+end
+

data/lib/IFMapper/FXMapperSettings.rb

@@ -0,0 +1,45 @@
+
+#
+# This class contains the applicatio and map's settings
+#
+class FXMapperSettings < Hash
+  def write
+    file = File.expand_path('~/.ifmapper')
+    f = File.open(file, 'w')
+    f.puts YAML.dump(self)
+    f.close
+  end
+
+  def initialize
+    f = File.expand_path('~/.ifmapper')
+    begin
+      self.replace( YAML.load_file(f) )
+    rescue
+      self.replace( {
+		     # Colors
+		     'BG Color'           => 'dark grey',
+		     'Arrow Color'        => 'black',
+		     'Box BG Color'       => 'white',
+		     'Box Darkness Color' => 'grey',
+		     'Box Border Color'   => 'black',
+		     'Box Number Color'   => 'grey',
+		     
+		     # Fonts
+		     'Font Text'          => 'times new roman',
+		     'Font Objects'       => 'times new roman',
+		     
+		     # Creation options
+		     'Create on Connection' => true,
+		     'Edit on Creation'     => false,
+		     'Automatic Connection' => true,
+		     
+		     # Display options
+		     'Paths as Curves'      => true,
+		     'Location Numbers'     => true,
+		     'Grid Boxes' => true,
+		     'Grid Straight Connections' => true,
+		     'Grid Diagonal Connections' => false,
+		   } )
+    end
+  end
+end

data/lib/IFMapper/FXMapperWindow.rb

@@ -0,0 +1,1051 @@
+
+begin
+  require 'fox12'
+rescue => e
+  $stderr.puts "Please install the fox library v1.2 or later."
+  if $rubygems
+    $stderr.puts "You can usually do so if you do 'gem install fox'."
+  end
+  exit(1)
+end
+
+begin
+  require 'yaml'
+rescue => e
+  $stderr.puts "Please install the yaml library."
+  $stderr.puts "Without it, preferences cannot be saved."
+  exit(1)
+end
+
+
+include Fox
+
+require 'IFMapper/FXMap'
+require 'IFMapper/FXMapperSettings'
+require 'IFMapper/FXWarningBox'
+require 'IFMapper/FXAboutDialogBox'
+require 'IFMapper/FXSearchDialogBox'
+require 'IFMapper/FXMapFileDialog'
+require 'IFMapper/IFMReader'
+
+
+class FXMapperWindow < FXMainWindow
+
+  PROGRAM_NAME = "Interactive Fiction Mapper"
+  VERSION      = 0.5
+  AUTHOR       = "Gonzalo Garramuno"
+  TITLE = "#{PROGRAM_NAME} v#{VERSION} - Written by #{AUTHOR}"
+
+  @@copy_buffer = nil
+  @@default_options = FXMapperSettings.new
+
+  def open_map(file)
+    tmp = nil
+    begin
+      f = File.open(file, 'rb')
+      tmp = Marshal.load(f)
+      f.close
+      tmp.filename = file
+    rescue => e
+      tmp = e
+    end
+    return tmp
+  end
+
+  def open_ifm(file, map)
+    IFMReader.new(file, map)
+    return map
+  end
+
+  def open_cb(sender, sel, ptr)
+    file = FXMapFileDialog.new(self, "Load New Map").filename
+    return if file == ''
+
+    # First, make sure we don't have it loaded already...
+    @maps.each { |m|
+      if m.filename == file
+	@mdiclient.setActiveChild(m.window)
+	return
+      end
+    }
+
+    # Then, check if we have a single and empty map.
+    # If so, we can just use that one to load the file in.
+    # If not, we need to create a new map
+    make_new_map = false
+    if @maps.size == 1
+      @maps[0].pages.each { |p|
+	if p.rooms.size != 0
+	  make_new_map = true
+	  break
+	end
+      }
+    else
+      make_new_map = true
+    end
+
+    if make_new_map
+      map = new_map
+    else
+      map = @maps[0]
+    end
+    status "Loading '#{file}'..."
+
+    tmp = nil
+    if file =~ /\.ifm$/i
+      tmp = open_ifm(file, map)
+    else
+      tmp = open_map(file)
+    end
+
+    if not tmp.kind_of?(Map) and not tmp.kind_of?(FXMap)
+      status "Could not load '#{file}'. Error: #{tmp}."
+      if map.close_cb
+	@maps.delete(map) if make_new_map
+      end
+      sleep 2
+      return
+    end
+    
+    map.copy(tmp)
+    map.create_pathmap
+    map.update_title
+    map.window.create
+    update_page
+    status "Loaded '#{file}'."
+  end
+
+  def status(msg)
+    @statusbar.statusLine.text = msg
+  end
+
+  def current_map
+    window = @mdiclient.activeChild
+    return nil unless window
+
+    @maps.each { |m|
+      return m if m.window == window
+    }
+    return nil
+  end
+
+  def save_cb(sender, sel, ptr)
+    map = current_map
+    return unless map
+    map.save
+  end
+
+  def save_as_cb(sender, sel, ptr)
+    map = current_map
+    return unless map
+    map.save_as
+  end
+
+  def new_map_cb(*args)
+    m = new_map
+    m.window.create
+  end
+
+  def new_map
+    mapname  = "Empty Map \##{@maps.size+1}"
+    @maps.push( FXMap.new(mapname, @mdiclient, @@default_options.dup,
+			  @mdiicon, @mdimenu, MDI_NORMAL, 0, 0, 790, 500) )
+    @maps[-1].window.connect(SEL_PAINT) { |sender, sel, event|
+      map = current_map
+      map.draw
+    }
+    @maps[-1].window.connect(SEL_CLOSE) { |sender, sel, event|
+      map = current_map
+      if map.close_cb
+	@maps.delete(map)
+      end
+    }
+
+    # Make it active
+    @mdiclient.setActiveChild(@maps[-1].window)
+    return @maps[-1]
+  end
+
+  # Load the named PNG icon from a file
+  def load_icon(filename)
+    begin
+      filename = File.join("icons", filename) + ".png"
+      icon = nil
+      File.open(filename, "rb") { |f|
+        icon = FXPNGIcon.new(getApp(), f.read)
+      }
+      icon
+    rescue
+      raise RuntimeError, "Couldn't load icon: #{filename}"
+    end
+  end
+
+  def complex_connection_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+    map.complex_connection
+  end
+
+  def delete_selected_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+    map.delete_selected
+  end
+
+  #
+  # Export current map as a Postscript file
+  #
+  def ps_export
+    map = current_map
+    return unless map
+    raise "Postscript Exporting not yet supported."
+
+    begin
+      require "IFMapper/PSMapExporter"
+    rescue => e
+      # bring up fox warning dialog box
+      return
+    end
+
+    printer = printer_dialog
+    map.ps_export(printer) if printer
+  end
+
+
+  #
+  # Popup a printer dialog and return the settings or false if user cancels
+  #
+  def printer_dialog
+    map = current_map
+    dlg = FXPrintDialog.new(self, "Print Map #{map.name}")
+    # Set printer to always use Landscape printing
+    dlg.printer.flags |= PRINT_DEST_PAPER | PRINT_LANDSCAPE | PRINT_NOBOUNDS
+    return dlg.printer if dlg.execute != 0
+    return false
+  end
+
+  def print_locations_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+
+    w = FXWarningBox.new( self, "Sorry, but printing is not yet implemented\n" + 
+			 "in this version.")
+    w.execute
+    return
+
+    printer = printer_dialog
+    map.print_locations( printer ) if printer
+  end
+
+  def ifm_export_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+
+    w = FXWarningBox.new( self, "Sorry, but IFM exporting is not yet implemented\n" + 
+			 "in this version.")
+    w.execute
+    return
+  end
+
+  def ps_export_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+
+    w = FXWarningBox.new( self, "Sorry, but Postscript exporting is not implemented\n" +
+			 "in this version.")
+    w.execute
+    return
+  end
+
+  def pdf_export_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+
+    begin
+      require 'IFMapper/PDFMapExporter'
+    rescue => e
+      w = FXWarningBox.new( self, "#{e}")
+      w.execute
+      return
+    end
+
+
+    d = FXMapFileDialog.new(self, "Save Acrobat PDF File", 
+			    [
+			      "Acrobat PDF (*.pdf)"
+			    ])
+    if d.filename != ''
+      map.pdf_export(d.filename)
+    end
+  end
+
+  def print_cb(sender, sel, msg)
+    map = current_map
+    return unless map
+
+    w = FXWarningBox.new( self, "Sorry, but printing is not yet implemented\n" + 
+			 "in this version.")
+    w.execute
+    return
+
+    printer = printer_dialog
+    map.print( printer ) if printer
+  end
+
+  def create_mdiclient
+    # MDI Client
+    @maps = []
+
+    @mdiclient = FXMDIClient.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # MDI buttons in menu:- note the message ID's!!!!!
+    # Normally, MDI commands are simply sensitized or desensitized;
+    # Under the @menubar, however, they're hidden if the MDI Client is
+    # not maximized.  To do this, they must have different ID's.
+    FXMDIWindowButton.new(@menubar, @mdimenu, @mdiclient,
+      FXMDIClient::ID_MDI_MENUWINDOW, LAYOUT_LEFT)
+    FXMDIDeleteButton.new(@menubar, @mdiclient,
+      FXMDIClient::ID_MDI_MENUCLOSE, FRAME_RAISED|LAYOUT_RIGHT)
+    FXMDIRestoreButton.new(@menubar, @mdiclient,
+      FXMDIClient::ID_MDI_MENURESTORE, FRAME_RAISED|LAYOUT_RIGHT)
+    FXMDIMinimizeButton.new(@menubar, @mdiclient,
+      FXMDIClient::ID_MDI_MENUMINIMIZE, FRAME_RAISED|LAYOUT_RIGHT)
+
+    # Icon for MDI Child
+    @mdiicon = load_icon("winapp")
+
+    # Make MDI Window Menu
+    @mdimenu = FXMDIMenu.new(self, @mdiclient)
+  end
+
+  def self.copy_buffer
+    return @@copy_buffer
+  end
+
+  def self.copy_selected(map)
+    selection = map.pages[map.page].rooms.find_all { |r| r.selected }
+    return if selection.size > 1
+    @@copy_buffer = selection[0]
+  end
+
+  def self.cut_selected(map)
+    FXMapperWindow::copy_selected(map)
+    map.delete_selected
+  end
+
+  def self.paste_selected(map)
+    selection = map.pages[map.page].rooms.find_all { |r| r.selected }
+    selection.each { |r| r.copy(@@copy_buffer) }
+  end
+
+  def cut_selected_cb(*o)
+    map = current_map
+    return unless map
+    FXMapperWindow::cut_selected(map)
+  end
+
+  def copy_selected_cb(*o)
+    map = current_map
+    return unless map
+    FXMapperWindow::copy_selected(map)
+  end
+
+  def paste_selected_cb(*o)
+    map = current_map
+    return if not map or not @@copy_buffer
+    FXMapperWindow::paste_selected(map)
+  end
+
+  def hilite_matches(map, matches, re, idx = 0 )
+    if matches.size == 0
+      status "No objects match regex '#{re}'."
+      return
+    end
+
+    # sort matches by page
+    matches.sort_by { |a| a[0] }
+
+    # Jump to first page of match
+    map.page = matches[idx][0]
+    map.pages[map.page].rooms.each { |r| r.selected = false }
+
+    matches.each { |p, r| r.selected = true }
+
+    num = matches.find_all { |p, r| p == matches[idx][0] }
+
+    status "#{matches.size} in map, #{num.size} in page."
+    map.draw
+  end
+
+  def find_in_map(s, m, e)
+    map = current_map
+    return unless map
+
+    re = /#{s.text}/
+    matches = []
+    (0...map.pages.size).each { |p|
+      map.pages[p].rooms.each { |r|
+	next unless r.name =~ re
+	matches.push( [p, r] )
+      }
+    }
+    idx = @search.index
+    @search.index = matches.size-1 if idx >= matches.size
+    hilite_matches(map, matches, re, @search.index)
+  end
+
+  def find_in_map_cb(s, m, e)
+    map = current_map
+    return unless map
+
+    title = "Find Location In Map"
+    if not @search
+      @search = FXSearchDialogBox.new(self)
+    end
+    @search.proc  = method(:find_in_map)
+    @search.title = title
+    @search.text  = ''
+    @search.show
+  end
+
+  def find_in_page(s, m, e)
+    map = current_map
+    return unless map
+
+    re = /#{s.text}/
+    matches = []
+    map.pages[map.page].rooms.each { |r|
+      next unless r.name =~ re
+      matches.push( [ map.page, r] )
+    }
+    hilite_matches(map, matches, re)
+  end
+
+  def find_in_page_cb(s, m, e)
+    map = current_map
+    return unless map
+
+    title = "Find Location in this Section"
+    if not @search
+      @search = FXSearchDialogBox.new(self)
+    end
+    @search.proc  = method(:find_in_page)
+    @search.title = title
+    @search.text  = ''
+    @search.show
+  end
+
+  def find_object_in_map(s, m, e)
+    map = current_map
+    return unless map
+
+    re = /#{s.text}/
+    matches = []
+    (0...map.pages.size).each { |p|
+      map.pages[p].rooms.each { |r|
+	next unless r.objects =~ re
+	matches.push( [p, r] )
+      }
+    }
+    idx = @search.index
+    @search.index = matches.size-1 if idx >= matches.size
+    hilite_matches(map, matches, re, @search.index)
+  end
+
+  def find_object_in_map_cb(s, m, e)
+    map = current_map
+    return unless map
+
+    title = "Find Object In Map"
+    if not @search
+      @search = FXSearchDialogBox.new(self)
+    end
+    @search.proc  = method(:find_object_in_map)
+    @search.title = title
+    @search.text  = ''
+    @search.show
+  end
+
+  def about_cb(sender, id, msg)
+    FXAboutDialogBox.new(self, "About This Software...", <<"EOF").execute
+#{TITLE} - #{VERSION}
+
+A WYSIWYG mapping tool for interactive fiction.
+Written by Gonzalo Garramuno.
+
+ggarra@advancedsl.com.ar
+GGarramuno@aol.com
+EOF
+  end
+
+  def create_menus
+    # Construct these icons
+    newdoc    = load_icon("filenew")
+    opendoc   = load_icon("fileopen")
+    savedoc   = load_icon("filesave")
+    saveasdoc = load_icon("filesaveas")
+
+    # File Menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuTitle.new(@menubar, "&File", nil, filemenu)
+    cmd = FXMenuCommand.new(filemenu, "&New...\tCtl-N\tCreate new document.", newdoc)
+    cmd.connect(SEL_COMMAND, method(:new_map_cb))
+
+    cmd = FXMenuCommand.new(filemenu, "&Open...\tCtl-O\tOpen document file.", opendoc)
+    cmd.connect(SEL_COMMAND, method(:open_cb))
+    cmd = FXMenuCommand.new(filemenu, "&Save\tCtl-S\tSave document.", savedoc)
+    cmd.connect(SEL_COMMAND, method(:save_cb))
+    cmd = FXMenuCommand.new(filemenu, "Save &As...\t\tSave document to another file.",
+			    saveasdoc)
+    cmd.connect(SEL_COMMAND, method(:save_as_cb))
+
+    # Export submenu
+    submenu = FXMenuPane.new(self)
+
+    cmd = FXMenuCommand.new(submenu, "&Export as PDF...\t\tExport map as Acrobat PDF document.", nil)
+    cmd.connect(SEL_COMMAND, method(:pdf_export_cb))
+
+    cmd = FXMenuCommand.new(submenu, "&Export as Postscript...\t\tExport map as Postscript document.", nil)
+    cmd.connect(SEL_COMMAND, method(:ps_export_cb))
+
+    cmd = FXMenuCommand.new(submenu, "&Export as IFM...\t\tExport map as an IFM map.", nil)
+    cmd.connect(SEL_COMMAND, method(:ifm_export_cb))
+    FXMenuCascade.new(filemenu, "Export", nil, submenu)
+
+
+    submenu = FXMenuPane.new(self)
+    cmd = FXMenuCommand.new(submenu, "&Map...\t\tPrint map (as graph).",
+			    nil)
+    cmd.connect(SEL_COMMAND, method(:print_cb))
+
+    cmd = FXMenuCommand.new(submenu, "Map &Locations...\t\tPrint map locations as text list.", nil)
+    cmd.connect(SEL_COMMAND, method(:print_locations_cb))
+    FXMenuCascade.new(filemenu, "Print", nil, submenu)
+
+
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit the application.", nil, 
+		      getApp(), FXApp::ID_QUIT)
+
+    # Edit Menu
+    editmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(@menubar, "&Edit", nil, editmenu)
+    cmd = FXMenuCommand.new(editmenu, "&Copy\tCtl-C\tCopy Location Data", nil)
+    cmd.connect(SEL_COMMAND, method(:copy_selected_cb))
+    cmd = FXMenuCommand.new(editmenu, "Cu&t\tCtl-X\tCut Location", nil)
+    cmd.connect(SEL_COMMAND, method(:cut_selected_cb))
+    cmd = FXMenuCommand.new(editmenu, "&Paste\tCtl-V\tPaste Location Data", 
+			    nil) 
+    cmd.connect(SEL_COMMAND, method(:paste_selected_cb))
+
+    # Searching menu
+    FXMenuSeparator.new(editmenu)
+    cmd = FXMenuCommand.new(editmenu, "&Search Location in Map\tCtl-F\tFind a Location Name in Map")
+    cmd.connect(SEL_COMMAND, method(:find_in_map_cb))
+    cmd = FXMenuCommand.new(editmenu, "&Search Location in Section\tAlt-F\tFind a Location Name in Current Page")
+    cmd.connect(SEL_COMMAND, method(:find_in_page_cb))
+    cmd = FXMenuCommand.new(editmenu, "&Search Object in Map\tAlt-O\tFind Location with an Object in the Map")
+    cmd.connect(SEL_COMMAND, method(:find_object_in_map_cb))
+
+    # Complex Connection
+    FXMenuSeparator.new(editmenu)
+    cmd = FXMenuCommand.new(editmenu, "Comple&x Connection\tx\tCreate a complex connection.", nil)
+    cmd.connect( SEL_COMMAND, method(:complex_connection_cb))
+
+    FXMenuSeparator.new(editmenu)
+    cmd = FXMenuCommand.new(editmenu, "Delete\tDel\tDelete selected locations or connections.", nil)
+    cmd.connect( SEL_COMMAND, method(:delete_selected_cb) )
+
+    # Map menu
+    mapmenu = FXMenuPane.new(self)
+
+    cmd = FXMenuCommand.new(mapmenu, "Map Information\t\tChange Map Information.")
+    cmd.connect(SEL_COMMAND) {  map_properties }
+
+    submenu = FXMenuPane.new(self)
+    cmd = FXMenuCommand.new(submenu, "Next Section\t\tGo to Next Map Section.")
+    cmd.connect(SEL_COMMAND) { 
+      next_page
+    }
+    cmd = FXMenuCommand.new(submenu, "Previous Section\t\tGo to Previous Map Section.")
+    cmd.connect(SEL_COMMAND) { 
+      previous_page
+    }
+    FXMenuSeparator.new(submenu)
+    cmd = FXMenuCommand.new(submenu, "Add Section\t\tAdd a New Section to Map.")
+    cmd.connect(SEL_COMMAND) { 
+      map = current_map
+      if map
+	map.new_page
+	map.modified = true
+	update_page
+      end
+    }
+    cmd = FXMenuCommand.new(submenu, "Rename Section\t\tRename Current Section.")
+    cmd.connect(SEL_COMMAND) { 
+      map = current_map
+      if map
+	map.rename_page
+	map.modified = true
+      end
+    }
+    FXMenuSeparator.new(submenu)
+    cmd = FXMenuCommand.new(submenu, "Delete Section\t\tDelete Current Section from Map.")
+    cmd.connect(SEL_COMMAND) { 
+      map = current_map
+      if map
+	map.delete_page
+	map.modified = true
+      end
+    }
+    FXMenuCascade.new(mapmenu, "Sections", nil, submenu)
+    
+
+    submenu = FXMenuPane.new(self)
+    [25, 50, 75, 100, 125].each { |v| 
+      cmd = FXMenuCommand.new(submenu, v.to_s + "%\t\tZoom page to #{v}%.")
+      cmd.connect(SEL_COMMAND) { 
+	map = current_map
+	if map
+	  map.zoom = v / 100.0
+	  map.draw
+	end
+      }
+    }
+    FXMenuCascade.new(mapmenu, "Zoom", nil, submenu)
+
+    submenu = FXMenuPane.new(self)
+
+    cmd = FXMenuCheck.new(submenu, "Edit on Creation\t\tEdit locations on creation.")
+    cmd.check = @@default_options['Edit on Creation']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Edit on Creation'] = (s.check == true)
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Edit on Creation'] if map
+    }
+
+    cmd = FXMenuCheck.new(submenu, "Automatic Connection\t\tConnect new location to adjacent one .")
+    cmd.check = @@default_options['Automatic Connection']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Automatic Connection'] = (s.check == true)
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Automatic Connection'] if map
+    }
+
+    cmd = FXMenuCheck.new(submenu, "Create on Connectionn\t\tCreate missing locations when creating a connection.")
+    cmd.check = @@default_options['Create on Connection']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      map.options['Create on Connection'] = s.check if map
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Create on Connection'] if map
+    }
+
+    FXMenuCascade.new(mapmenu, "Options", nil, submenu)
+
+    ##########################
+    # Display submenu
+    #########################
+    submenu = FXMenuPane.new(self)
+    cmd = FXMenuCheck.new(submenu, "Paths as Curves\t\tDraw complex paths as curves.")
+    cmd.check = @@default_options['Paths as Curves']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Paths as Curves'] = (s.check == true)
+	map.draw
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Paths as Curves'] if map
+    }
+    cmd = FXMenuCheck.new(submenu, "Location Numbers\t\tShow Location Numbers.")
+    cmd.check = @@default_options['Location Numbers']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Location Numbers'] = (s.check == true)
+	map.draw
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Location Numbers'] if map
+    }
+
+    cmd = FXMenuCheck.new(submenu, "Boxes\t\tDraw dashed box guidelines.")
+    cmd.check = @@default_options['Grid Boxes']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Grid Boxes'] = (s.check == true)
+	map.draw
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Grid Boxes'] if map
+    }
+
+    cmd = FXMenuCheck.new(submenu, "Straight Connections\t\tDraw dashed N/S/E/W guidelines")
+    cmd.check = @@default_options['Grid Straight Connections']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Grid Straight Connections'] = (s.check == true)
+	map.draw
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Grid Straight Connections'] if map
+    }
+
+    cmd = FXMenuCheck.new(submenu, "Diagonal Connections\t\tDraw dashed NW/NE/SW/SE guidelines")
+    cmd.check = @@default_options['Grid Diagonal Connections']
+    cmd.connect(SEL_COMMAND) { |s, m, e|
+      map = current_map
+      if map
+	map.options['Grid Diagonal Connections'] = s.check
+	map.draw
+      end
+    }
+    cmd.connect(SEL_UPDATE) { |s, m, e|
+      map = current_map
+      s.check = map.options['Grid Diagonal Connections'] if map
+    }
+
+    FXMenuCascade.new(mapmenu, 'Display', nil, submenu)
+
+    submenu = FXMenuPane.new(self)
+    cmd = FXMenuCommand.new(submenu, "Colors\t\tChange map colors.")
+    FXMenuSeparator.new(submenu)
+    cmd = FXMenuCommand.new(submenu, "Save Preferences\t\tSave Preferences for Startup")
+    cmd.connect(SEL_COMMAND) { 
+      map = current_map
+      map.options.write if map
+    }
+    FXMenuCascade.new(mapmenu, 'Preferences', nil, submenu)
+
+    FXMenuTitle.new(@menubar,"&Map", nil, mapmenu)
+
+    # Window menu
+    windowmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(windowmenu, "Tile &Horizontally", nil,
+      @mdiclient, FXMDIClient::ID_MDI_TILEHORIZONTAL)
+    FXMenuCommand.new(windowmenu, "Tile &Vertically", nil,
+      @mdiclient, FXMDIClient::ID_MDI_TILEVERTICAL)
+    FXMenuCommand.new(windowmenu, "C&ascade", nil,
+      @mdiclient, FXMDIClient::ID_MDI_CASCADE)
+    FXMenuCommand.new(windowmenu, "&Close", nil,
+      @mdiclient, FXMDIClient::ID_MDI_CLOSE)
+    sep1 = FXMenuSeparator.new(windowmenu)
+    sep1.setTarget(@mdiclient)
+    sep1.setSelector(FXMDIClient::ID_MDI_ANY)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_1)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_2)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_3)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_4)
+    FXMenuCommand.new(windowmenu, "&Others...", nil, @mdiclient, FXMDIClient::ID_MDI_OVER_5)
+    FXMenuTitle.new(@menubar,"&Window", nil, windowmenu)
+
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    cmd = FXMenuCommand.new(helpmenu, "&Instructions", nil)
+    cmd.connect(SEL_COMMAND, method(:docs))
+    FXMenuSeparator.new(helpmenu)
+    cmd = FXMenuCommand.new(helpmenu, "&About", nil)
+    cmd.connect(SEL_COMMAND, method(:about_cb))
+
+    cmd = FXMenuCommand.new(helpmenu, "&Resource Code", nil)
+    cmd.connect(SEL_COMMAND) {
+      file = FXMapFileDialog.new(self, "Resource a Ruby File").filename
+      if file != ''
+	begin
+	  Kernel.load file
+	rescue => e
+	  p e
+	end
+      end
+    }
+    FXMenuTitle.new(@menubar,"&Help", nil, helpmenu)
+  end
+
+
+  def docs(*opts)
+    FXAboutDialogBox.new(self, "About This Software...", <<'EOF').show
+
+LMB - Left Mouse Button
+MMB - Middle Mouse Button
+
+Mouse controls
+--------------
+
+Use  LMB to add new locations or connections among rooms.
+
+Click with LMB on any room or connection to select it.
+
+Double click on rooms or connections to access their properties.
+
+Click several times on an existing connecion to establish a one-way 
+connection.
+
+Drag with MMB or ALT + LMB to scroll around the page.
+
+Use mousewheel to zoom in and out.
+
+Keyboard controls
+-----------------
+
+Use 'x' to start a new complex connection (ie. a connection across
+rooms that are not neighbors), then click on each exit of each room.
+
+Use 'Delete' or 'Backspace' to remove any selected connection or room.
+
+Use arrow keys to move selected rooms around the page, one unit at a time.
+
+Use CTRL + LMB when adding a connection to create a dead-end connection (one that loops
+onto itself)
+
+EOF
+  end
+
+  def create_toolbar(toolbar)
+
+    # Construct these icons
+    newdoc = load_icon("filenew")
+    opendoc = load_icon("fileopen")
+    savedoc = load_icon("filesave")
+    saveasdoc = load_icon("filesaveas")
+
+    # File manipulation
+    cmd = FXButton.new(toolbar, "\tNew\tCreate new document.", newdoc, nil, 0,
+		       FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND, method(:new_map_cb))
+
+    cmd = FXButton.new(toolbar, "\tOpen\tOpen document file.", opendoc, nil, 0,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND, method(:open_cb))
+
+    cmd = FXButton.new(toolbar, "\tSave\tSave document.", savedoc, nil, 0,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND, method(:save_cb))
+    cmd.connect(SEL_UPDATE) { |sender, sel, ptr|
+      map = current_map
+      message = map ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    }
+    cmd = FXButton.new(toolbar, "\tSave As\tSave document to another file.",
+      saveasdoc, nil, 0, FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND, method(:save_as_cb))
+    cmd.connect(SEL_UPDATE) { |sender, sel, ptr|
+      map = current_map
+      message = map ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    }
+
+    # Print
+    FXFrame.new(toolbar,
+      LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, 0, 0, 4, 20)
+    cmd = FXButton.new(toolbar, "\tPrint Map\tPrint map (as graph).",
+		       load_icon("printicon"), @mdiclient, FXGLViewer::ID_PRINT_IMAGE,
+		       BUTTON_AUTOGRAY|FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND, method(:print_cb))
+    cmd.connect(SEL_UPDATE) { |sender, sel, ptr|
+      map = current_map
+      message = map ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    }
+  
+    # Editing
+    FXFrame.new(toolbar,
+      LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, 0, 0, 4, 20)
+    cmd = FXButton.new(toolbar, "\tCut", load_icon("cut"), @mdiclient,
+      FXGLViewer::ID_CUT_SEL, (BUTTON_AUTOGRAY|FRAME_THICK|FRAME_RAISED|
+      LAYOUT_TOP|LAYOUT_LEFT))
+    cmd.connect(SEL_COMMAND, method(:cut_selected_cb))
+    cmd.connect(SEL_UPDATE) { |sender, sel, ptr|
+      map = current_map
+      message = map ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    }
+    cmd = FXButton.new(toolbar, "\tCopy", load_icon("copy"), @mdiclient,
+      FXGLViewer::ID_COPY_SEL, (BUTTON_AUTOGRAY|FRAME_THICK|FRAME_RAISED|
+      LAYOUT_TOP|LAYOUT_LEFT))
+    cmd.connect(SEL_COMMAND, method(:copy_selected_cb))
+    cmd.connect(SEL_UPDATE) { |sender, sel, ptr|
+      map = current_map
+      message = map ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    }
+    cmd = FXButton.new(toolbar, "\tPaste", load_icon("paste"), @mdiclient,
+      FXGLViewer::ID_PASTE_SEL, (BUTTON_AUTOGRAY|FRAME_THICK|FRAME_RAISED|
+      LAYOUT_TOP|LAYOUT_LEFT))
+    cmd.connect(SEL_COMMAND, method(:paste_selected_cb))
+    cmd.connect(SEL_UPDATE) { |sender, sel, ptr|
+      map = current_map
+      message = (map and @@copy_buffer) ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    }
+
+    # Zooming
+    FXFrame.new(toolbar,
+      LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, 0, 0, 4, 20)
+    cmd = FXButton.new(toolbar, "+\tZoom In", load_icon("zoom"), @mdiclient,
+		       0, FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND) { zoom_in }
+
+    cmd = FXButton.new(toolbar, "-\tZoom Out", load_icon("zoom"), @mdiclient, 
+		       0, FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND) { zoom_out }
+
+
+    # Page travel
+    frame = FXHorizontalFrame.new(toolbar,
+				  LAYOUT_RIGHT|FRAME_THICK|FRAME_RAISED)
+    cmd = FXButton.new(frame, "\tPrevious Section", load_icon("prevpage"), 
+		       @mdiclient,
+		       0, FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND) { previous_page }
+
+    @page = FXTextField.new(frame, 5, nil, 0, 
+			    TEXTFIELD_INTEGER|LAYOUT_FILL_ROW)
+    @page.text = '1'
+    @page.connect(SEL_COMMAND) { |s,m,e| 
+      v = s.text.to_i
+      map = current_map
+      if map
+	map.page = v - 1
+	map.draw
+	update_page
+      end
+    }
+    @page.connect(SEL_UPDATE) {  |s,m,e| 
+      v = s.text.to_i
+      map = current_map
+      update_page if map
+    }
+
+    cmd = FXButton.new(frame, "\tNext Section", load_icon("nextpage"), 
+		       @mdiclient,
+		       0, FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
+    cmd.connect(SEL_COMMAND) { next_page }    
+  end
+
+  #
+  # Update page # in toolbar widget
+  #
+  def update_page
+    map = current_map
+    @page.text = (map.page + 1).to_s if map
+  end
+
+  #
+  # Go to next page in current map
+  #
+  def next_page
+    map = current_map
+    map.next_page if map
+    update_page
+  end
+
+  #
+  # Go to previous page in current map
+  #
+  def previous_page 
+    map = current_map
+    map.previous_page if map
+    update_page
+  end
+
+  #
+  # Zoom in into current map
+  #
+  def zoom_in
+    map = current_map
+    if map
+      map.zoom_in
+      map.draw
+    end
+  end
+
+  #
+  # Zoom out from current map
+  #
+  def zoom_out
+    map = current_map
+    if map
+      map.zoom_out
+      map.draw
+    end
+  end
+
+  #
+  # Bring up the map property requester for current map
+  #
+  def map_properties
+    map = current_map
+    map.properties if map
+  end
+
+  #
+  # In case of crash or runtime error, autosave all maps, so user
+  # does not loose any data.
+  #
+  def autosave
+    @maps.each { |m|
+      m.save
+    }
+  end
+
+
+  def initialize(app)
+    super(app, TITLE, nil, nil, DECOR_ALL, 0, 0, 800, 600)
+  
+    # Menubar
+    @menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    FXHorizontalSeparator.new(self,
+			      LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X)
+    toolbar = FXToolBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X,
+      0, 0, 0, 0, 4, 4, 0, 0, 0, 0)
+  
+    # Status bar
+    @statusbar = FXStatusBar.new(self,
+				 LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|
+				 STATUSBAR_WITH_DRAGCORNER)
+
+
+    create_mdiclient
+    create_menus
+    create_toolbar(toolbar)
+    new_map
+
+    self.connect(SEL_CLOSE) { 
+      exit = true
+      @maps.each { |m| 
+	if not m.close_cb
+	  exit = false
+	  break
+	else
+	  @maps.delete(m)
+	end
+      }
+      self.close if exit
+    }
+
+    show
+  end
+end