tkxxs 0.1.1 → 0.1.2

checksums.yaml

@@ -1,15 +1,15 @@
 ---
 !binary "U0hBMQ==":
   metadata.gz: !binary |-
-    ZjhkMTczM2I5YzdkZTkwZTQ0NGRlZDI2NGZhNDM1ZGZhYTEwZWQzNA==
+    OTNlZTU3NjY4YTQ5ZWMxYmFjOTM5YjlkZDhjYWM3ZmNkODA1MTM5Yw==
   data.tar.gz: !binary |-
-    MDVlYWM1NWE4YTE2MTY4YTVkODNkZjBhZmFiMGIxOGNhZWI0YjU3MA==
+    ZDBjMDA2MmEyODBjNzA4OWIwODdmMmJhNzNlMDc5ZTNkM2MwOWI0NQ==
 SHA512:
   metadata.gz: !binary |-
-    MzU2ODQ0OTcwZjQwZTE5YTljNmE2N2JiM2M4NDc5MGQxODljMzMxMmI2Yjdk
-    MWE1ZDkxYWY5ZjE2NWU4OWMzYjJkYWZhNTI5MTVlNDYzYjkyMjc1NTViNmZk
-    NjZjNGEwZmZjMjc2ZWFjMWY3OWVlNjczNDk4ZjMxNTc2OWQ5YWY=
+    Y2ViN2EwY2ZkMTU1MGE1ZTI1NmI0NGQ1ZmZhZDkyMTcyNTY0OTJlOGEwMGQ3
+    NzVlMGE1Zjk1OTBhNzVkYjkxYzkxNjBlOWQ5MjAzYjFjYTBlMjAxMmQ2NzM4
+    NzNhZDhhYThiMzc2MzY0MzllNDhjZTAzMWRkMDVlOGNlNGVhOTE=
   data.tar.gz: !binary |-
-    MDI1MmQyY2E5ZjJhNGRiYTM1Zjk4ZmM4MzE0ODI3Zjg4YzI0Mjg1OWUxM2Ew
-    NGEwMzkxN2EzZWI2OWZhNTBkNzZhOTE2YjIyZWZhNzNiYTkyZTA1NzQwZDVi
-    NThjYjE0OGE1ZDk4NzFiMjRhYmY1NDlmNWM2MTRlZWJlNzA5YWY=
+    NTIwNGVjYThkZDdiODljYmZmMjQxMTI2ZmNkMDYxZmVkMzZkYzIzZmE0ZGYz
+    Y2U1NjEwMmZmYjYzMDkwMjZlZTFjMGQ3ZGQxNjYzZTdiYWEzYzJmMDU2YjEz
+    YWI4NTBhMTRlYzU3ODgzY2RiMDBhYmYyYzU5ZmM0ZWY3MmZhZGE=

data/CONTRIBUTORS

@@ -1,2 +1,3 @@
 
-* Axel Friedrich: axel  dod  friedrich_smail  ad  gmx  dod  de
+* Axel Friedrich: axel  dod  friedrich_smail  ad  gmx  dod  de
+* Abinoam P. Marques Jr.

data/History.txt

@@ -1,3 +1,13 @@
+=== 0.1.2 / 2013-01-05
+
+* Made it work on Ubuntu (Many thanks to Abinoam P. Marques Jr.)
+* Fixed a bug in handling configSection. (Can be used now.)
+* Updated documentation and readme.
+
+=== 0.1.1 / 2014-01-02
+
+* Translated remaining German text to English
+
 === 0.1.0 / 2014-01-01
 
 * 1 major enhancement

data/Manifest.txt

@@ -3,7 +3,7 @@ CONTRIBUTORS
 History.txt
 LICENSE
 Manifest.txt
-README.txt
+README.rdoc
 Rakefile
 ext/readme.txt
 ext/tkballoonhelp.rb

data/{README.txt → README.rdoc}

@@ -1,6 +1,6 @@
 = TKXXS
 
-* https://github.com/Axel2
+* https://github.com/Axel2/tkxxs
 
 == References
 
@@ -12,7 +12,7 @@ TKXXS_CLASSES is intended for developers only.
 
 == Description
 
-TKXXS provides a very simple and very easy to use GUI (graphical user interface) for Ruby; It gives you a persistent output window and popping up (modal) dialogs for input; For a screenshot, see: images/screenshot.png; Tested on Windows, only.
+TKXXS provides a very simple and very easy to use GUI (graphical user interface) for Ruby; It gives you a persistent output window and popping up (modal) dialogs for input; For a screenshot, see: <tt>https://github.com/Axel2/tkxxs/blob/master/images/screenshot.png</tt>; I tested it on Windows, only; Got user report, that it works on Ubuntu, too.
 
 TKXXS shall:
 
@@ -25,7 +25,7 @@ TKXXS shall:
 
 
 Drawbacks:
-* I'v tested it only on Windows. Other operating system probably will need modifications, which I would like to merge in.
+* I'v tested it only on Windows, but got user report, that it works on Ubuntu, too.l
 * For sure some more drawbacks which I'm not aware of now.
 
 
@@ -90,11 +90,43 @@ You close the application simply by clicking the close-icon on top of the output
 See samples/big_example.rb
 
 
+== configSection
+
+Normally, you need not care about it. 
+
+The hash-argument of the dialog methods take as key <tt>:configSection</tt>. The value of this key sets the section name of the configuration file, where configuration setting of this dialog are stored and read from. Configuration settings are, for example: Window size and position, and recent dirs/files and favorite dirs/files.
+
+Key may be String, Integer, Float or nil, but not Symbol. nil is the default section.
+* Setting section: Conf#section=
+* Reading the actual section: Conf#section
+* Configuration file path is: Conf#filename (It's YAML)
+
+The config section remains unchanged, unless it is set to a new value by either using:
+  Conf#section = ...
+or by setting the <tt>:configSection</tt> of the hash-argument of the dialog methods. 
+
+You can use <tt>:configSection</tt> for example, if you want to have different favorite dirs for two different choose_dir-dialogs. Example code:
+
+  CONF = Conf.new # This is set inside TKXXS
+  ...
+  old_section = CONF.section
+  
+  left_dir = choose_dir( 
+    :configSection=>'left'
+  )
+  
+  right_dir = choose_dir( 
+    :configSection=>'right',
+  )
+  
+  CONF.section = old_section
+  ...
+
 == Installation
 
 === Prerequisites
 
-* Tested only on Windows
+* Tested only on Windows (but user reported that it works on Ubuntu, too.)
 * Ruby 1.8.7 or 1.9.x with TK (e.g. RubyInstaller)
 * gem Platform (starting with capital letter "P"!)
 

data/ext/tkballoonhelp.rb

@@ -1,332 +1,332 @@
-#
-# tkballoonhelp.rb : simple balloon help widget
-#                       by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
-#
-# Add a balloon help to a widget.
-# This widget has only poor featureas. If you need more useful features,
-# please try to use the Tix extension of Tcl/Tk under Ruby/Tk.
-#
-# The interval time to display a balloon help is defined 'interval' option
-# (default is 750ms).
-#
-# Modifications by Axel Friedrich:
-# * 2010-03-01: 
-# * 2010-01-31: Shifting position of balloon if it is out of screen
-# * TODO: wraplength
-require 'tk'
-
-module Tk
-  module RbWidget
-    class BalloonHelp<TkLabel
-    end
-  end
-end
-class Tk::RbWidget::BalloonHelp<TkLabel
-  DEFAULT_FOREGROUND = 'black'
-  DEFAULT_BACKGROUND = 'white'
-  DEFAULT_INTERVAL   = 750
-
-  def _balloon_binding(interval)
-    @timer = TkAfter.new(interval, 1, proc{show})
-    def @timer.interval(val)
-      @sleep_time = val
-    end
-    @bindtag = TkBindTag.new
-    @bindtag.bind('Enter',  proc{@timer.start})
-    @bindtag.bind('Motion', proc{@timer.restart; erase})
-    @bindtag.bind('Any-ButtonPress', proc{@timer.restart; erase})
-    @bindtag.bind('Leave',  proc{@timer.stop; erase})
-    tags = @parent.bindtags
-    idx = tags.index(@parent)
-    unless idx
-      ppath = TkComm.window(@parent.path)
-      idx = tags.index(ppath) || 0
-    end
-    tags[idx,0] = @bindtag
-    @parent.bindtags(tags)
-  end
-  private :_balloon_binding
-
-  def initialize(parent=nil, keys={})
-    @parent = parent || Tk.root
-
-    @frame = TkToplevel.new(@parent)
-    if defined?($tkxxs_) && $tkxxs_[:userscreenx]
-      $balloonhlp_ = Hash.new
-      $balloonhlp_[:userscreenx]      = $tkxxs_[:userscreenx]
-      $balloonhlp_[:userscreeny]      = $tkxxs_[:userscreeny]
-      $balloonhlp_[:userscreenwidth]  = $tkxxs_[:userscreenwidth]
-      $balloonhlp_[:userscreenheight] = $tkxxs_[:userscreenheight]
-    elsif !defined?($balloonhlp_) || !$balloonhlp_[:userscreenx]
-      userscreen(@frame)
-    end
-    @frame.withdraw
-    @frame.overrideredirect(true)
-    @frame.transient(TkWinfo.toplevel(@parent))
-    @epath = @frame.path
-
-    if keys
-      keys = _symbolkey2str(keys)
-    else
-      keys = {}
-    end
-
-    @command = keys.delete('command')
-
-    @interval = keys.delete('interval'){DEFAULT_INTERVAL}
-    _balloon_binding(@interval)
-
-    # @label = TkLabel.new(@frame, 'background'=>'bisque').pack
-    @label = TkLabel.new(@frame, 
-                         ## :wraplength => '2i',  # Axel
-                         'foreground'=>DEFAULT_FOREGROUND, 
-                         ## 'background'=>DEFAULT_BACKGROUND).pack # -Axel
-                         'background'=>DEFAULT_BACKGROUND).pack(:expand=>1, :fill=>:both)
-    @label.configure(_symbolkey2str(keys)) unless keys.empty?
-    @path = @label
-  end
-
-  def userscreen( root )
-    # TODO: Screen "pops"; other way?
-    root.state('zoomed') 
-    root.update
-
-    if RUBY_PLATFORM[/mingw|mswin|bccwin/ix] # Windows
-      root.state('zoomed') # OK on Windows, bad on Linux
-    else
-      # Linux: works
-      # Other: not tested
-      root.height = root.winfo_screenheight
-      root.width = root.winfo_screenwidth
-    end
-
-    root.winfo_geometry  =~ /(\d+)x(\d+)\+([+-]?\d+)\+([+-]?\d+)/
-    xwg = $3.to_i 
-    ywg = $4.to_i
-    root.geometry =~ /(\d+)x(\d+)\+([+-]?\d+)\+([+-]?\d+)/ 
-    gw = $1.to_i 
-    gh = $2.to_i 
-    
-    ## sw = root.winfo_screenwidth 
-    ## sh = root.winfo_screenheight 
-    
-    rx = root.winfo_rootx 
-    ry = root.winfo_rooty  # maybe, taskbar height 
-    
-    border = -[xwg,ywg].min
-    userscreenx = xwg + border
-    userscreeny= ywg + border
-    userscreenwidth = gw
-    userscreenheight = gh + ry - ywg - border
-
-    $balloonhlp_ ||= Hash.new
-    $balloonhlp_[:userscreenx     ] =  userscreenx
-    $balloonhlp_[:userscreeny     ] =  userscreeny
-    $balloonhlp_[:userscreenwidth ] =  userscreenwidth
-    $balloonhlp_[:userscreenheight] =  userscreenheight
-
-    root.state('normal')
-    nil
-  end # userscreen
-
-  def epath
-    @epath
-  end
-
-  def interval(val)
-    if val
-      @timer.interval(val)
-    else
-      @interval
-    end
-  end
-
-  def command(cmd = Proc.new)
-    @command = cmd
-    self
-  end
-
-  def show
-    x = TkWinfo.pointerx(@parent)
-    y = TkWinfo.pointery(@parent)
-    ## @frame.geometry("+#{x+1}+#{y+1}")
-
-    if @command
-      case @command.arity
-      when 0
-        @command.call
-      when 2
-        @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent))
-      when 3
-        @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent),
-                      self)
-      else
-        @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent),
-                      self, @parent)
-      end
-    end
-
-    @frame.geometry("+#{x+1}+#{y+1}")
-    @frame.update
-
-    rw = TkWinfo.reqwidth(@frame)
-    rh = TkWinfo.reqheight(@frame)
-    geom1 = geom(x,y,rw,rh) 
-    @frame.geometry(geom1)
-
-    @frame.deiconify
-    @frame.raise
-
-    ## @org_cursor = @parent['cursor'] # -patch Nagai
-    ## @parent.cursor('crosshair')     # -patch Nagai
-    begin                                        # +patch Nagai
-      @org_cursor = @parent.cget('cursor')       # +patch Nagai
-    rescue                                       # +patch Nagai
-      @org_cursor = @parent['cursor']            # +patch Nagai
-    end                                          # +patch Nagai
-    begin                                        # +patch Nagai
-      @parent.configure('cursor', 'crosshair')   # +patch Nagai
-    rescue                                       # +patch Nagai
-      @parent.cursor('crosshair')                # +patch Nagai
-    end                                          # +patch Nagai
-
-    @frame.update
-  end
-
-  def geom( x,y,rw,rh, gapx=1, gapy=10 ) # gap: pixels; may not be 0!
-    xcorrected = false
-    ## rw = TkWinfo.reqwidth(@frame)
-    ## rh = TkWinfo.reqheight(@frame)
-    xmin = $balloonhlp_[:userscreenx]
-    ymin = $balloonhlp_[:userscreeny]
-    xmax= xmin + $balloonhlp_[:userscreenwidth]
-    ymax= ymin + $balloonhlp_[:userscreenheight]
-
-    origx = x
-    x += gapx
-    y += gapy
-    
-    if x + rw > xmax
-      x = [(xmax-rw), xmin].max # Shift left
-      xcorrected = true
-    end
-    
-    y = y - gapy - rh  if y + rh > ymax # Shift up
-
-    if y < ymin # height will overlap pointer
-      y = ymin
-      x = origx - rw - gapx  if xcorrected # Shift left
-    end
-
-    if x < xmin # to big
-      x = xmin
-      wrap_help
-    end
-    geom = "+#{ x }+#{ y }" # balloon may not overlap cursor - why?
-   
-    geom
-  end # geom
-
-  
-  def wrap_help(  )
-    #TODO: Introduce "wraplength"
-    puts 'Cannot show balloon help: to big.'
-  end # wrap_help
-  
-
-  def erase
-    ## @parent.cursor(@org_cursor) # -patch Nagai
-    begin                                           # +patch Nagai
-      @parent.configure('cursor', @org_cursor)      # +patch Nagai
-    rescue                                          # +patch Nagai
-      @parent.cursor(@org_cursor)                   # +patch Nagai
-    end                                             # +patch Nagai
-    @frame.withdraw
-  end
-
-  def destroy
-    @frame.destroy
-  end
-end
-
-################################################
-# test
-################################################
-if __FILE__ == $0
-  TkButton.new('text'=>'This button has a balloon help') {|b|
-    pack('fill'=>'x')
-    Tk::RbWidget::BalloonHelp.new(b, 'text'=>' Message ')
-  }
-  TkButton.new('text'=>'This button has another balloon help') {|b|
-    pack('fill'=>'x')
-    Tk::RbWidget::BalloonHelp.new(b, 
-                        'text'=>"CONFIGURED MESSAGE\nchange colors, and so on",
-                        'interval'=>200, 'font'=>'courier',
-                        'background'=>'gray', 'foreground'=>'red')
-  }
-
-  sb = TkScrollbox.new.pack(:fill=>:x)
-  sb.insert(:end, *%w(aaa bbb ccc ddd eee fff ggg hhh iii jjj kkk lll mmm))
-=begin
-  # CASE1 : command takes no arguemnt
-  bh = Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
-                           :relief=>:ridge, :background=>'white',
-                           :command=>proc{
-                             y = TkWinfo.pointery(sb) - TkWinfo.rooty(sb)
-                             bh.text "current index == #{sb.nearest(y)}"
-                           })
-=end
-=begin
-  # CASE2 : command takes 2 arguemnts
-  bh = Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
-                           :relief=>:ridge, :background=>'white',
-                           :command=>proc{|x, y|
-                             bh.text "current index == #{sb.nearest(y)}"
-                           })
-=end
-=begin
-  # CASE3 : command takes 3 arguemnts
-  Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
-                      :relief=>:ridge, :background=>'white',
-                      :command=>proc{|x, y, bhelp|
-                        bhelp.text "current index == #{sb.nearest(y)}"
-                      })
-=end
-=begin
-  # CASE4a : command is a Proc object and takes 4 arguemnts
-  cmd = proc{|x, y, bhelp, parent|
-    bhelp.text "current index == #{parent.nearest(y)}"
-  }
-
-  Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
-                      :relief=>:ridge, :background=>'white',
-                      :command=>cmd)
-
-  sb2 = TkScrollbox.new.pack(:fill=>:x)
-  sb2.insert(:end, *%w(AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK LLL MMM))
-  Tk::RbWidget::BalloonHelp.new(sb2, :interval=>500,
-                      :padx=>5, :relief=>:raised,
-                      :background=>'gray25', :foreground=>'white',
-                      :command=>cmd)
-=end
-#=begin
-  # CASE4b : command is a Method object and takes 4 arguemnts
-  def set_msg(x, y, bhelp, parent)
-    bhelp.text "current index == #{parent.nearest(y)}"
-  end
-  cmd = self.method(:set_msg)
-
-  Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
-                                :relief=>:ridge, :background=>'white',
-                                :command=>cmd)
-
-  sb2 = TkScrollbox.new.pack(:fill=>:x)
-  sb2.insert(:end, *%w(AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK LLL MMM))
-  Tk::RbWidget::BalloonHelp.new(sb2, :interval=>500,
-                                :padx=>5, :relief=>:raised,
-                                :background=>'gray25', :foreground=>'white',
-                                :command=>cmd)
-#=end
-
-  Tk.mainloop
-end
+#
+# tkballoonhelp.rb : simple balloon help widget
+#                       by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
+#
+# Add a balloon help to a widget.
+# This widget has only poor featureas. If you need more useful features,
+# please try to use the Tix extension of Tcl/Tk under Ruby/Tk.
+#
+# The interval time to display a balloon help is defined 'interval' option
+# (default is 750ms).
+#
+# Modifications by Axel Friedrich:
+# * 2010-03-01: 
+# * 2010-01-31: Shifting position of balloon if it is out of screen
+# * TODO: wraplength
+require 'tk'
+
+module Tk
+  module RbWidget
+    class BalloonHelp<TkLabel
+    end
+  end
+end
+class Tk::RbWidget::BalloonHelp<TkLabel
+  DEFAULT_FOREGROUND = 'black'
+  DEFAULT_BACKGROUND = 'white'
+  DEFAULT_INTERVAL   = 750
+
+  def _balloon_binding(interval)
+    @timer = TkAfter.new(interval, 1, proc{show})
+    def @timer.interval(val)
+      @sleep_time = val
+    end
+    @bindtag = TkBindTag.new
+    @bindtag.bind('Enter',  proc{@timer.start})
+    @bindtag.bind('Motion', proc{@timer.restart; erase})
+    @bindtag.bind('Any-ButtonPress', proc{@timer.restart; erase})
+    @bindtag.bind('Leave',  proc{@timer.stop; erase})
+    tags = @parent.bindtags
+    idx = tags.index(@parent)
+    unless idx
+      ppath = TkComm.window(@parent.path)
+      idx = tags.index(ppath) || 0
+    end
+    tags[idx,0] = @bindtag
+    @parent.bindtags(tags)
+  end
+  private :_balloon_binding
+
+  def initialize(parent=nil, keys={})
+    @parent = parent || Tk.root
+
+    @frame = TkToplevel.new(@parent)
+    if defined?($tkxxs_) && $tkxxs_[:userscreenx]
+      $balloonhlp_ = Hash.new
+      $balloonhlp_[:userscreenx]      = $tkxxs_[:userscreenx]
+      $balloonhlp_[:userscreeny]      = $tkxxs_[:userscreeny]
+      $balloonhlp_[:userscreenwidth]  = $tkxxs_[:userscreenwidth]
+      $balloonhlp_[:userscreenheight] = $tkxxs_[:userscreenheight]
+    elsif !defined?($balloonhlp_) || !$balloonhlp_[:userscreenx]
+      userscreen(@frame)
+    end
+    @frame.withdraw
+    @frame.overrideredirect(true)
+    @frame.transient(TkWinfo.toplevel(@parent))
+    @epath = @frame.path
+
+    if keys
+      keys = _symbolkey2str(keys)
+    else
+      keys = {}
+    end
+
+    @command = keys.delete('command')
+
+    @interval = keys.delete('interval'){DEFAULT_INTERVAL}
+    _balloon_binding(@interval)
+
+    # @label = TkLabel.new(@frame, 'background'=>'bisque').pack
+    @label = TkLabel.new(@frame, 
+                         ## :wraplength => '2i',  # Axel
+                         'foreground'=>DEFAULT_FOREGROUND, 
+                         ## 'background'=>DEFAULT_BACKGROUND).pack # -Axel
+                         'background'=>DEFAULT_BACKGROUND).pack(:expand=>1, :fill=>:both)
+    @label.configure(_symbolkey2str(keys)) unless keys.empty?
+    @path = @label
+  end
+
+  def userscreen( root )
+    # TODO: Screen "pops"; other way?
+    root.state('zoomed') 
+    root.update
+
+    if RUBY_PLATFORM[/mingw|mswin|bccwin/ix] # Windows
+      root.state('zoomed') # OK on Windows, bad on Linux
+    else
+      # Linux: works
+      # Other: not tested
+      root.height = root.winfo_screenheight
+      root.width = root.winfo_screenwidth
+    end
+
+    root.winfo_geometry  =~ /(\d+)x(\d+)\+([+-]?\d+)\+([+-]?\d+)/
+    xwg = $3.to_i 
+    ywg = $4.to_i
+    root.geometry =~ /(\d+)x(\d+)\+([+-]?\d+)\+([+-]?\d+)/ 
+    gw = $1.to_i 
+    gh = $2.to_i 
+    
+    ## sw = root.winfo_screenwidth 
+    ## sh = root.winfo_screenheight 
+    
+    rx = root.winfo_rootx 
+    ry = root.winfo_rooty  # maybe, taskbar height 
+    
+    border = -[xwg,ywg].min
+    userscreenx = xwg + border
+    userscreeny= ywg + border
+    userscreenwidth = gw
+    userscreenheight = gh + ry - ywg - border
+
+    $balloonhlp_ ||= Hash.new
+    $balloonhlp_[:userscreenx     ] =  userscreenx
+    $balloonhlp_[:userscreeny     ] =  userscreeny
+    $balloonhlp_[:userscreenwidth ] =  userscreenwidth
+    $balloonhlp_[:userscreenheight] =  userscreenheight
+
+    root.state('normal')
+    nil
+  end # userscreen
+
+  def epath
+    @epath
+  end
+
+  def interval(val)
+    if val
+      @timer.interval(val)
+    else
+      @interval
+    end
+  end
+
+  def command(cmd = Proc.new)
+    @command = cmd
+    self
+  end
+
+  def show
+    x = TkWinfo.pointerx(@parent)
+    y = TkWinfo.pointery(@parent)
+    ## @frame.geometry("+#{x+1}+#{y+1}")
+
+    if @command
+      case @command.arity
+      when 0
+        @command.call
+      when 2
+        @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent))
+      when 3
+        @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent),
+                      self)
+      else
+        @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent),
+                      self, @parent)
+      end
+    end
+
+    @frame.geometry("+#{x+1}+#{y+1}")
+    @frame.update
+
+    rw = TkWinfo.reqwidth(@frame)
+    rh = TkWinfo.reqheight(@frame)
+    geom1 = geom(x,y,rw,rh) 
+    @frame.geometry(geom1)
+
+    @frame.deiconify
+    @frame.raise
+
+    ## @org_cursor = @parent['cursor'] # -patch Nagai
+    ## @parent.cursor('crosshair')     # -patch Nagai
+    begin                                        # +patch Nagai
+      @org_cursor = @parent.cget('cursor')       # +patch Nagai
+    rescue                                       # +patch Nagai
+      @org_cursor = @parent['cursor']            # +patch Nagai
+    end                                          # +patch Nagai
+    begin                                        # +patch Nagai
+      @parent.configure('cursor', 'crosshair')   # +patch Nagai
+    rescue                                       # +patch Nagai
+      @parent.cursor('crosshair')                # +patch Nagai
+    end                                          # +patch Nagai
+
+    @frame.update
+  end
+
+  def geom( x,y,rw,rh, gapx=1, gapy=10 ) # gap: pixels; may not be 0!
+    xcorrected = false
+    ## rw = TkWinfo.reqwidth(@frame)
+    ## rh = TkWinfo.reqheight(@frame)
+    xmin = $balloonhlp_[:userscreenx]
+    ymin = $balloonhlp_[:userscreeny]
+    xmax= xmin + $balloonhlp_[:userscreenwidth]
+    ymax= ymin + $balloonhlp_[:userscreenheight]
+
+    origx = x
+    x += gapx
+    y += gapy
+    
+    if x + rw > xmax
+      x = [(xmax-rw), xmin].max # Shift left
+      xcorrected = true
+    end
+    
+    y = y - gapy - rh  if y + rh > ymax # Shift up
+
+    if y < ymin # height will overlap pointer
+      y = ymin
+      x = origx - rw - gapx  if xcorrected # Shift left
+    end
+
+    if x < xmin # to big
+      x = xmin
+      wrap_help
+    end
+    geom = "+#{ x }+#{ y }" # balloon may not overlap cursor - why?
+   
+    geom
+  end # geom
+
+  
+  def wrap_help(  )
+    #TODO: Introduce "wraplength"
+    puts 'Cannot show balloon help: to big.'
+  end # wrap_help
+  
+
+  def erase
+    ## @parent.cursor(@org_cursor) # -patch Nagai
+    begin                                           # +patch Nagai
+      @parent.configure('cursor', @org_cursor)      # +patch Nagai
+    rescue                                          # +patch Nagai
+      @parent.cursor(@org_cursor)                   # +patch Nagai
+    end                                             # +patch Nagai
+    @frame.withdraw
+  end
+
+  def destroy
+    @frame.destroy
+  end
+end
+
+################################################
+# test
+################################################
+if __FILE__ == $0
+  TkButton.new('text'=>'This button has a balloon help') {|b|
+    pack('fill'=>'x')
+    Tk::RbWidget::BalloonHelp.new(b, 'text'=>' Message ')
+  }
+  TkButton.new('text'=>'This button has another balloon help') {|b|
+    pack('fill'=>'x')
+    Tk::RbWidget::BalloonHelp.new(b, 
+                        'text'=>"CONFIGURED MESSAGE\nchange colors, and so on",
+                        'interval'=>200, 'font'=>'courier',
+                        'background'=>'gray', 'foreground'=>'red')
+  }
+
+  sb = TkScrollbox.new.pack(:fill=>:x)
+  sb.insert(:end, *%w(aaa bbb ccc ddd eee fff ggg hhh iii jjj kkk lll mmm))
+=begin
+  # CASE1 : command takes no arguemnt
+  bh = Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
+                           :relief=>:ridge, :background=>'white',
+                           :command=>proc{
+                             y = TkWinfo.pointery(sb) - TkWinfo.rooty(sb)
+                             bh.text "current index == #{sb.nearest(y)}"
+                           })
+=end
+=begin
+  # CASE2 : command takes 2 arguemnts
+  bh = Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
+                           :relief=>:ridge, :background=>'white',
+                           :command=>proc{|x, y|
+                             bh.text "current index == #{sb.nearest(y)}"
+                           })
+=end
+=begin
+  # CASE3 : command takes 3 arguemnts
+  Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
+                      :relief=>:ridge, :background=>'white',
+                      :command=>proc{|x, y, bhelp|
+                        bhelp.text "current index == #{sb.nearest(y)}"
+                      })
+=end
+=begin
+  # CASE4a : command is a Proc object and takes 4 arguemnts
+  cmd = proc{|x, y, bhelp, parent|
+    bhelp.text "current index == #{parent.nearest(y)}"
+  }
+
+  Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
+                      :relief=>:ridge, :background=>'white',
+                      :command=>cmd)
+
+  sb2 = TkScrollbox.new.pack(:fill=>:x)
+  sb2.insert(:end, *%w(AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK LLL MMM))
+  Tk::RbWidget::BalloonHelp.new(sb2, :interval=>500,
+                      :padx=>5, :relief=>:raised,
+                      :background=>'gray25', :foreground=>'white',
+                      :command=>cmd)
+=end
+#=begin
+  # CASE4b : command is a Method object and takes 4 arguemnts
+  def set_msg(x, y, bhelp, parent)
+    bhelp.text "current index == #{parent.nearest(y)}"
+  end
+  cmd = self.method(:set_msg)
+
+  Tk::RbWidget::BalloonHelp.new(sb, :interval=>500,
+                                :relief=>:ridge, :background=>'white',
+                                :command=>cmd)
+
+  sb2 = TkScrollbox.new.pack(:fill=>:x)
+  sb2.insert(:end, *%w(AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK LLL MMM))
+  Tk::RbWidget::BalloonHelp.new(sb2, :interval=>500,
+                                :padx=>5, :relief=>:raised,
+                                :background=>'gray25', :foreground=>'white',
+                                :command=>cmd)
+#=end
+
+  Tk.mainloop
+end