#!/usr/bin/env ruby # # rolodex -- # This script is a part of Tom LaStrange's rolodex # # Copyright (C) 1998 by Takaaki Tateishi # Time-stamp: "03/08/02 06:23:06 nagai" # require "tk" def show_help(topic,x=0,y=0) if( topic.is_a?(TkWindow) ) w = TkWinfo.containing(x,y) if( TkWinfo.exist?(w) ) topic = w end end if( $helpTopics.include?(topic) ) msg = $helpTopics[topic] else msg = "Sorry, but no help is available for this topic" end TkDialog.new("title"=>"Rolodex Help", "message"=>"Information on #{topic}:\n\n#{msg}", "default_button"=>0, "buttons"=>["OK"]) end def fillCard clearAction $root.frame.entry[1].insert(0,"Takaaki Tateishi") $root.frame.entry[2].insert(0,"Japan Advanced Institute of Science and Techonology") $root.frame.entry[3].insert(0,"1-1 Asahidai, Tatsunokuchi") $root.frame.entry[4].insert(0,"Ishikawa 923-1292, Japan") $root.frame.entry[5].insert(0,"private") $root.frame.entry[6].insert(0,"***-***-****") $root.frame.entry[7].insert(0,"***-***-****") end def addAction for i in 1..7 STDERR.print format("%-12s %s\n", RolodexFrame::LABEL[i], $root.frame.entry[i].value) end end def clearAction for i in 1..7 $root.frame.entry[i].delete(0,"end") end end def fileAction TkDialog.new("title"=>"File Selection", "message"=>"This is a dummy file selection dialog box.\n", "default_button"=>0, "buttons"=>["OK"]) STDERR.print "dummy file name\n" end def deleteAction result = TkDialog.new("title"=>"Confirm Action", "message"=>"Are you sure?", "default_button"=>0, "buttons"=>["Cancel"]) if( result.value == 0 ) clearAction end end class RolodexFrame < TkFrame attr_reader :entry, :label LABEL = ["","Name:","Address:","","","Home Phone:","Work Phone:","Fax:"] def initialize(parent=nil,keys=nil) super(parent,keys) self["relief"] = "flat" @i = [] @label = [] @entry = [] for i in 1..7 @i[i] = TkFrame.new(self) @i[i].pack("side"=>"top", "pady"=>2, "anchor"=>"e") @label[i] = TkLabel.new(@i[i], "text"=>LABEL[i], "anchor"=>"e") @entry[i] = TkEntry.new(@i[i], "width"=>30, "relief"=>"sunken") @entry[i].pack("side"=>"right") @label[i].pack("side"=>"right") end end end class RolodexButtons < TkFrame attr_reader :clear, :add, :search, :delete def initialize(parent,keys=nil) super(parent,keys) @clear = TkButton.new(self, "text" => "Clear") @add = TkButton.new(self, "text" => "Add") @search = TkButton.new(self, "text" => "Search") @delete = TkButton.new(self, "text" => "Delete") for w in [@clear,@add,@search,@delete] w.pack("side"=>"left", "padx"=>2) end end end class RolodexMenuFrame < TkFrame attr_reader :file_menu, :help_menu, :file, :help def initialize(parent,keys=nil) super(parent,keys) configure("relief"=>"raised", "borderwidth"=>1) @file = TkMenubutton.new(self, "text"=>"File", "underline"=>0) @file_menu = TkMenu.new(@file) @file_menu.add("command", "label" => "Load ...", "command" => proc{fileAction}, "underline" => 0) @file_menu.add("command", "label" => "Exit", "command" => proc{$root.destroy}, "underline" => 0) @file.menu(@file_menu) @file.pack("side"=>"left") @help = TkMenubutton.new(self, "text"=>"Help", "underline"=>0) @help_menu = TkMenu.new(@help) @help_menu.add("command", "label"=>"On Context...", "command"=>proc{show_help("context")}, "underline"=>3) @help_menu.add("command", "label"=>"On Help...", "command"=>proc{show_help("help")}, "underline"=>3) @help_menu.add("command", "label"=>"On Window...", "command"=>proc{show_help("window")}, "underline"=>3) @help_menu.add("command", "label"=>"On Keys...", "command"=>proc{show_help("keys")}, "underline"=>3) @help_menu.add("command", "label"=>"On version...", "command"=>proc{show_help("version")}, "underline"=>3) @help.menu(@help_menu) @help.pack("side"=>"right") end end class Rolodex < TkRoot attr_reader :frame, :buttons, :menu def initialize(*args) super(*args) @frame = RolodexFrame.new(self) @frame.pack("side"=>"top", "fill"=>"y", "anchor"=>"center") @buttons = RolodexButtons.new(self) @buttons.pack("side"=>"bottom", "pady"=>2, "anchor"=>"center") @menu = RolodexMenuFrame.new(self) @menu.pack("before"=>@frame, "side"=>"top", "fill"=>"x") end end $root = Rolodex.new $root.buttons.delete.configure("command"=>proc{deleteAction}) $root.buttons.add.configure("command"=>proc{addAction}) $root.buttons.clear.configure("command"=>proc{clearAction}) $root.buttons.search.configure("command"=>proc{addAction; fillCard}) $root.buttons.clear.configure("text"=>"Clear Ctrl+C") $root.bind("Control-c",proc{clearAction}) $root.buttons.add.configure("text"=>"Add Ctrl+A") $root.bind("Control-a",proc{addAction}) $root.buttons.search.configure("text"=>"Search Ctrl+S") $root.bind("Control-s",proc{addAction; fillCard}) $root.buttons.delete.configure("text"=>"Delete... Ctrl+D") $root.bind("Control-d",proc{deleteAction}) $root.menu.file_menu.entryconfigure(1, "accel"=>"Ctrl+F") $root.bind("Control-f",proc{fileAction}) $root.menu.file_menu.entryconfigure(2, "accel"=>"Ctrl+Q") $root.bind("Control-q",proc{$root.destroy}) $root.frame.entry[1].focus $root.bind("Any-F1", proc{|event| show_help(event.widget, event.x_root, event.y_root)}) $root.bind("Any-Help", proc{|event| show_help(event.widget, event.x_root, event.y_root)}) $helpTopics = {} $helpTopics[$root.menu.file] = <