From b60a365763c4abce061a49c2e68b1105f81fe598 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 27 Mar 2001 07:10:58 +0000
Subject: * eval.c (rb_mod_define_method): should have clear method cache.

* eval.c (rb_mod_define_method): should have raised exception for
  type error.

* ruby.h: changed "extern INLINE" to "static inline".


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1286 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb       | 104 +++++++++++++++++++++++++++++++++++++++++++------
 ext/tk/lib/tkcanvas.rb |   8 ++--
 ext/tk/lib/tkentry.rb  |   2 +-
 ext/tk/lib/tktext.rb   |   8 ++++
 4 files changed, 105 insertions(+), 17 deletions(-)

(limited to 'ext/tk')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index a088d5c493..873c823910 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -651,12 +651,76 @@ module TkCore
   end
 end
 
+module TkPackage
+  include TkCore
+  extend TkPackage
+
+  def forget(package)
+    tk_call('package', 'forget', package)
+    nil
+  end
+
+  def names
+    tk_split_simplelist(tk_call('package', 'names'))
+  end
+
+  def provide(package, version=nil)
+    if version
+      tk_call('package', 'provide', package, version)
+      nil
+    else
+      tk_call('package', 'provide', package)
+    end
+  end
+
+  def present(package, version=None)
+    tk_call('package', 'present', package, version)
+  end
+
+  def present_exact(package, version)
+    tk_call('package', 'present', '-exact', package, version)
+  end
+
+  def require(package, version=None)
+    tk_call('package', 'require', package, version)
+  end
+
+  def require_exact(package, version)
+    tk_call('package', 'require', '-exact', package, version)
+  end
+
+  def versions(package)
+    tk_split_simplelist(tk_call('package', 'versions', package))
+  end
+
+  def vcompare(version1, version2)
+    Integer(tk_call('package', 'vcompare', version1, version2))
+  end
+
+  def vsatisfies(version1, version2)
+    bool(tk_call('package', 'vsatisfies', version1, version2))
+  end
+end
+
 module Tk
   include TkCore
   extend Tk
 
   TCL_VERSION = INTERP._invoke("info", "tclversion")
   TK_VERSION  = INTERP._invoke("set", "tk_version")
+
+  TCL_PATCHLEVEL = INTERP._invoke("info", "patchlevel")
+  TK_PATCHLEVEL  = INTERP._invoke("set", "tk_patchLevel")
+
+  TCL_LIBRARY = INTERP._invoke("set", "tcl_library")
+  TK_LIBRARY  = INTERP._invoke("set", "tk_library")
+  LIBRARY     = INTERP._invoke("info", "library")
+
+  TCL_PACKAGE_PATH = INTERP._invoke("set", "tcl_pkgPath")
+  AUTO_PATH = tk_split_simplelist(INTERP._invoke("set", "auto_path"))
+
+  PLATFORM = Hash[*tk_split_simplelist(INTERP._eval('array get tcl_platform'))]
+
   JAPANIZED_TK = (INTERP._invoke("info", "commands", "kanji") != "")
 
   def root
@@ -680,6 +744,10 @@ module Tk
     tk_tcl2ruby(tk_call('focus', '-lastfor', win))
   end
 
+  def Tk.strictMotif(bool=None)
+    bool(tk_call('set', 'tk_strictMotif', bool))
+  end
+
   def Tk.show_kinsoku(mode='both')
     begin
       if /^8\.*/ === TK_VERSION  && JAPANIZED_TK
@@ -710,11 +778,11 @@ module Tk
     end
   end
 
-  def toUTF8(str,encoding)
+  def Tk.toUTF8(str,encoding)
     INTERP._toUTF8(str,encoding)
   end
   
-  def fromUTF8(str,encoding)
+  def Tk.fromUTF8(str,encoding)
     INTERP._fromUTF8(str,encoding)
   end
 
@@ -1446,7 +1514,7 @@ module TkXIM
   end
 
   def useinputmethods(value=nil)
-    TkXIM.useinputmethods(self, value=nil)
+    TkXIM.useinputmethods(self, value)
   end
 
   def imconfigure(window, slot, value=None)
@@ -2370,7 +2438,7 @@ class TkWindow<TkObject
 
   def grid_propagate(mode=nil)
     if mode
-      tk_call('grid', 'propagate', epath, bool)
+      tk_call('grid', 'propagate', epath, mode)
     else
       bool(tk_call('grid', 'propagate', epath))
     end
@@ -2708,8 +2776,16 @@ class TkScale<TkWindow
     tk_call 'scale', path
   end
 
-  def get
-    number(tk_send('get'))
+  def get(x=None, y=None)
+    number(tk_send('get', x, y))
+  end
+
+  def coords(val=None)
+    tk_split_list(tk_send('coords', val))
+  end
+
+  def identify(x, y)
+    tk_send('identify', x, y)
   end
 
   def set(val)
@@ -2744,8 +2820,8 @@ class TkScrollbar<TkWindow
     number(tk_send('fraction', x, y))
   end
 
-  def identify(x=None, y=None)
-    tk_send('fraction', x, y)
+  def identify(x, y)
+    tk_send('identify', x, y)
   end
 
   def get
@@ -2760,6 +2836,10 @@ class TkScrollbar<TkWindow
   def set(first, last)
     tk_send "set", first, last
   end
+
+  def activate(element=None)
+    tk_send('activate', element)
+  end
 end
 
 class TkTextWin<TkWindow
@@ -3033,12 +3113,12 @@ class TkMenu<TkWindow
     tk_send 'invoke', index
   end
   def insert(index, type, keys=nil)
-    tk_send 'add', index, type, *hash_kv(keys)
+    tk_send 'insert', index, type, *hash_kv(keys)
   end
   def delete(index, last=None)
     tk_send 'delete', index, last
   end
-  def popup(x, y, index=nil)
+  def popup(x, y, index=None)
     tk_call 'tk_popup', path, x, y, index
   end
   def post(x, y)
@@ -3128,12 +3208,12 @@ class TkMenu<TkWindow
 end
 
 class TkMenuClone<TkMenu
-  def initialize(parent, type=nil)
+  def initialize(parent, type=None)
     unless parent.kind_of?(TkMenu)
       fail ArgumentError, "parent must be TkMenu"
     end
     @parent = parent
-    install_win(@parent)
+    install_win(@parent.path)
     tk_call @parent.path, 'clone', @path, type
   end
 end
diff --git a/ext/tk/lib/tkcanvas.rb b/ext/tk/lib/tkcanvas.rb
index ff06e9305a..9b323e9cbb 100644
--- a/ext/tk/lib/tkcanvas.rb
+++ b/ext/tk/lib/tkcanvas.rb
@@ -172,7 +172,7 @@ class TkCanvas<TkWindow
   end
 
   def bbox(tagOrId, *tags)
-    list(tk_send('bbox', tagid(tagOrId), *tags))
+    list(tk_send('bbox', tagid(tagOrId), *tags.collect{|t| tagid(t)}))
   end
 
   def itembind(tag, context, cmd=Proc.new, args=nil)
@@ -207,7 +207,7 @@ class TkCanvas<TkWindow
   end
 
   def delete(*args)
-    tk_send 'delete', *args
+    tk_send 'delete', *args.collect{|t| tagid(t)}
   end
   alias remove delete
 
@@ -375,7 +375,7 @@ class TkCanvas<TkWindow
   end
 
   def lower(tag, below=None)
-    tk_send 'lower', tagid(tag), below
+    tk_send 'lower', tagid(tag), tagid(below)
   end
 
   def move(tag, x, y)
@@ -387,7 +387,7 @@ class TkCanvas<TkWindow
   end
 
   def raise(tag, above=None)
-    tk_send 'raise', tagid(tag), above
+    tk_send 'raise', tagid(tag), tagid(above)
   end
 
   def scale(tag, x, y, xs, ys)
diff --git a/ext/tk/lib/tkentry.rb b/ext/tk/lib/tkentry.rb
index 6b25be376b..7af3f26748 100644
--- a/ext/tk/lib/tkentry.rb
+++ b/ext/tk/lib/tkentry.rb
@@ -136,7 +136,7 @@ class TkEntry<TkLabel
     tk_send 'selection', 'from', index
   end
   def selection_present()
-    tk_send('selection', 'present') == 1
+    bool(tk_send('selection', 'present'))
   end
   def selection_range(s, e)
     tk_send 'selection', 'range', s, e
diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb
index bb3d537bc4..51b5d82b60 100644
--- a/ext/tk/lib/tktext.rb
+++ b/ext/tk/lib/tktext.rb
@@ -189,6 +189,14 @@ class TkText<TkTextWin
     }
   end
 
+  def mark_next(index)
+    tagid2obj(tk_send('mark', 'next', index))
+  end
+
+  def mark_previous(index)
+    tagid2obj(tk_send('mark', 'previous', index))
+  end
+
   def window_names
     tk_send('window', 'names').collect{|elt|
       tagid2obj(elt)
-- 
cgit v1.2.3