tk 0.5.0 → 0.6.0

data/lib/tk/bindtag.rb

@@ -2,7 +2,7 @@
 #
 # tk/bind.rb : control event binding
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkBindTag
   include TkBindCore

data/lib/tk/busy.rb

@@ -2,7 +2,7 @@
 #
 # tk/busy.rb: support 'tk busy' command (Tcl/Tk8.6 or later)
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk::Busy
   include TkCore

data/lib/tk/button.rb

@@ -2,7 +2,7 @@
 #
 # tk/button.rb : treat button widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/label'
 
 class Tk::Button<Tk::Label

data/lib/tk/canvas.rb

@@ -3,7 +3,7 @@
 #               tk/canvas.rb - Tk canvas classes
 #                       by Yukihiro Matsumoto <matz@caelum.co.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/canvastag'
 require 'tk/itemconfig'
 require 'tk/scrollable'

data/lib/tk/canvastag.rb

@@ -2,7 +2,7 @@
 #
 # tk/canvastag.rb - methods for treating canvas tags
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/tagfont'
 
 module TkcTagAccess

data/lib/tk/checkbutton.rb

@@ -2,7 +2,7 @@
 #
 # tk/checkbutton.rb : treat checkbutton widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/radiobutton'
 
 class Tk::CheckButton<Tk::RadioButton

data/lib/tk/clipboard.rb

@@ -2,7 +2,7 @@
 #
 # tk/clipboard.rb : methods to treat clipboard
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkClipboard
   include Tk

data/lib/tk/clock.rb

@@ -2,7 +2,7 @@
 #
 # tk/clock.rb : methods for clock command
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   module Clock

data/lib/tk/composite.rb

@@ -2,7 +2,7 @@
 #
 # tk/composite.rb :
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkComposite
   include Tk

data/lib/tk/console.rb

@@ -2,7 +2,7 @@
 #
 #   tk/console.rb : control the console on system without a real console
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkConsole
   include Tk

data/lib/tk/dialog.rb

@@ -2,7 +2,7 @@
 #
 #   tk/dialog.rb : create dialog boxes
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/variable.rb'
 
 class TkDialogObj < TkWindow

data/lib/tk/encodedstr.rb

@@ -2,7 +2,7 @@
 #
 # tk/encodedstr.rb : Tk::EncodedString class
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 ###########################################
 #  string with Tcl's encoding

data/lib/tk/entry.rb

@@ -3,7 +3,7 @@
 #               tk/entry.rb - Tk entry classes
 #                       by Yukihiro Matsumoto <matz@caelum.co.jp>
 
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/label'
 require 'tk/scrollable'
 require 'tk/validation'

data/lib/tk/font.rb

@@ -4,7 +4,7 @@
 #
 #                               by  Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkFont
   include Tk

data/lib/tk/fontchooser.rb

@@ -2,7 +2,7 @@
 #
 # tk/fontchooser.rb -- "tk fontchooser" support (Tcl/Tk8.6 or later)
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/font'
 
 module TkFont::Chooser

data/lib/tk/frame.rb

@@ -2,7 +2,7 @@
 #
 # tk/frame.rb : treat frame widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class Tk::Frame<TkWindow
   TkCommandNames = ['frame'.freeze].freeze

data/lib/tk/grid.rb

@@ -2,7 +2,7 @@
 #
 # tk/grid.rb : control grid geometry manager
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkGrid
   include Tk

data/lib/tk/image.rb

@@ -3,7 +3,7 @@
 # tk/image.rb : treat Tk image objects
 #
 
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkImage<TkObject
   include Tk

data/lib/tk/itemconfig.rb

@@ -2,7 +2,7 @@
 #
 # tk/itemconfig.rb : control item/tag configuration of widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tkutil'
 require 'tk/itemfont.rb'
 

data/lib/tk/itemfont.rb

@@ -2,7 +2,7 @@
 #
 # tk/itemfont.rb : control font of widget items
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkItemFontOptkeys
   def __item_font_optkeys(id)

data/lib/tk/kinput.rb

@@ -2,7 +2,7 @@
 #
 # tk/kinput.rb : control kinput
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkKinput
   include Tk

data/lib/tk/label.rb

@@ -2,7 +2,7 @@
 #
 # tk/label.rb : treat label widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class Tk::Label<TkWindow
   TkCommandNames = ['label'.freeze].freeze

data/lib/tk/labelframe.rb

@@ -2,7 +2,7 @@
 #
 # tk/labelframe.rb : treat labelframe widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/frame'
 
 class Tk::LabelFrame<Tk::Frame

data/lib/tk/listbox.rb

@@ -2,7 +2,7 @@
 #
 # tk/listbox.rb : treat listbox widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/itemconfig'
 require 'tk/scrollable'
 require 'tk/txtwin_abst'

data/lib/tk/macpkg.rb

@@ -7,7 +7,7 @@
 #         This is NOT TESTED. Because I have no test-environment.
 #
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   def Tk.load_tclscript_rsrc(resource_name, file=None)

data/lib/tk/menu.rb

@@ -2,7 +2,7 @@
 #
 # tk/menu.rb : treat menu and menubutton
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/itemconfig'
 require 'tk/menuspec'
 

data/lib/tk/menubar.rb

@@ -85,7 +85,7 @@
 # To use add_menu, configuration must be done by calling configure after
 # adding all menus by add_menu, not by the constructor arguments.
 
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/frame'
 require 'tk/composite'
 require 'tk/menuspec'

data/lib/tk/message.rb

@@ -2,7 +2,7 @@
 #
 # tk/message.rb : treat message widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/label'
 
 class Tk::Message<Tk::Label

data/lib/tk/mngfocus.rb

@@ -3,7 +3,7 @@
 #   tk/mngfocus.rb : methods for Tcl/Tk standard library 'focus.tcl'
 #                           by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkManageFocus
   extend Tk

data/lib/tk/msgcat.rb

@@ -3,7 +3,7 @@
 #   tk/msgcat.rb : methods for Tcl message catalog
 #                     by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 #class TkMsgCatalog
 class TkMsgCatalog < TkObject

data/lib/tk/namespace.rb

@@ -3,7 +3,7 @@
 #   tk/namespace.rb : methods to manipulate Tcl/Tk namespace
 #                           by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkNamespace < TkObject
   extend Tk

data/lib/tk/optiondb.rb

@@ -2,7 +2,7 @@
 #
 # tk/optiondb.rb : treat option database
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkOptionDB
   include Tk

data/lib/tk/optionobj.rb

@@ -8,7 +8,7 @@
 #        e.g. hash_kv({'aaa'=>1, 'bbb'=>Tk::None, 'ccc'=>3})
 #                 => ["-aaa", 1, "-bbb", "-ccc", 3]
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   class OptionObj < Hash

data/lib/tk/pack.rb

@@ -2,7 +2,7 @@
 #
 # tk/pack.rb : control pack geometry manager
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkPack
   include Tk

data/lib/tk/package.rb

@@ -2,7 +2,7 @@
 #
 # tk/package.rb : package command
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkPackage
   include TkCore

data/lib/tk/palette.rb

@@ -3,7 +3,7 @@
 #   tk/palette.rb : methods for Tcl/Tk standard library 'palette.tcl'
 #                     1998/06/21 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkPalette
   include Tk

data/lib/tk/panedwindow.rb

@@ -2,7 +2,7 @@
 #
 # tk/panedwindow.rb : treat panedwindow
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class Tk::PanedWindow<TkWindow
   TkCommandNames = ['panedwindow'.freeze].freeze

data/lib/tk/place.rb

@@ -2,7 +2,7 @@
 #
 # tk/place.rb : control place geometry manager
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkPlace
   include Tk

data/lib/tk/radiobutton.rb

@@ -2,7 +2,7 @@
 #
 # tk/radiobutton.rb : treat radiobutton widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/button'
 
 class Tk::RadioButton<Tk::Button

data/lib/tk/root.rb

@@ -2,7 +2,7 @@
 #
 # tk/root.rb : treat root widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/wm'
 require 'tk/menuspec'
 

data/lib/tk/scale.rb

@@ -2,7 +2,7 @@
 #
 # tk/scale.rb : treat scale widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class Tk::Scale<TkWindow
   TkCommandNames = ['scale'.freeze].freeze

data/lib/tk/scrollable.rb

@@ -2,7 +2,7 @@
 #
 # tk/scrollable.rb : module for scrollable widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   module XScrollable

data/lib/tk/scrollbar.rb

@@ -2,7 +2,7 @@
 #
 # tk/scrollbar.rb : treat scrollbar widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class Tk::Scrollbar<TkWindow
   TkCommandNames = ['scrollbar'.freeze].freeze

data/lib/tk/scrollbox.rb

@@ -4,7 +4,7 @@
 #                                 as an example of Composite Widget
 #                       by Yukihiro Matsumoto <matz@netlab.co.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/listbox'
 
 class TkScrollbox<Tk::Listbox

data/lib/tk/selection.rb

@@ -2,7 +2,7 @@
 #
 # tk/selection.rb : control selection
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkSelection
   include Tk

data/lib/tk/spinbox.rb

@@ -3,7 +3,7 @@
 #               tk/spinbox.rb - Tk spinbox classes
 #                       by Yukihiro Matsumoto <matz@caelum.co.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/entry'
 
 class Tk::Spinbox<Tk::Entry

data/lib/tk/tagfont.rb

@@ -2,7 +2,7 @@
 #
 # tk/tagfont.rb : control font of tags
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkTreatTagFont
   def font_configinfo

data/lib/tk/text.rb

@@ -2,7 +2,7 @@
 #
 #               tk/text.rb - Tk text classes
 #                       by Yukihiro Matsumoto <matz@caelum.co.jp>
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/itemfont'
 require 'tk/itemconfig'
 require 'tk/scrollable'

data/lib/tk/textimage.rb

@@ -2,7 +2,7 @@
 #
 # tk/textimage.rb - treat Tk text image object
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/text'
 
 class TkTextImage<TkObject

data/lib/tk/textmark.rb

@@ -2,7 +2,7 @@
 #
 # tk/textmark.rb - methods for treating text marks
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/text'
 
 class TkTextMark<TkObject

data/lib/tk/texttag.rb

@@ -2,7 +2,7 @@
 #
 # tk/texttag.rb - methods for treating text tags
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/text'
 require 'tk/tagfont'
 

data/lib/tk/textwindow.rb

@@ -2,7 +2,7 @@
 #
 # tk/textwindow.rb - treat Tk text window object
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/text'
 
 class TkTextWindow<TkObject

data/lib/tk/timer.rb

@@ -4,7 +4,7 @@
 #
 #   $Id$
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkTimer
   include TkCore

data/lib/tk/tk_mac.rb

@@ -6,7 +6,7 @@
 #     ATTENTION !!
 #         This is NOT TESTED. Because I have no test-environment.
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   module Mac

data/lib/tk/toplevel.rb

@@ -2,7 +2,7 @@
 #
 # tk/toplevel.rb : treat toplevel widget
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 require 'tk/wm'
 require 'tk/menuspec'
 

data/lib/tk/txtwin_abst.rb

@@ -2,7 +2,7 @@
 #
 # tk/txtwin_abst.rb : TkTextWin abstract class
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkTextWin<TkWindow
   TkCommandNames = [].freeze

data/lib/tk/validation.rb

@@ -2,7 +2,7 @@
 #
 #  tk/validation.rb - validation support module for entry, spinbox, and so on
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   module ValidateConfigure

data/lib/tk/variable.rb

@@ -2,7 +2,7 @@
 #
 # tk/variable.rb : treat Tk variable object
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkVariable
   include Tk

data/lib/tk/virtevent.rb

@@ -3,7 +3,7 @@
 #   tk/virtevent.rb : treats virtual events
 #                     1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 class TkVirtualEvent<TkObject
   extend Tk

data/lib/tk/winfo.rb

@@ -5,7 +5,7 @@
 module TkWinfo
 end
 
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkWinfo
   include Tk

data/lib/tk/winpkg.rb

@@ -6,7 +6,7 @@
 #     ATTENTION !!
 #         This is NOT TESTED. Because I have no test-environment.
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk::WinDDE
 end

data/lib/tk/wm.rb

@@ -2,7 +2,7 @@
 #
 # tk/wm.rb : methods for wm command
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module Tk
   module Wm

data/lib/tk/xim.rb

@@ -2,7 +2,7 @@
 #
 # tk/xim.rb : control input_method
 #
-require 'tk'
+require 'tk' unless defined?(Tk)
 
 module TkXIM
   include Tk

data/lib/tk.rb

@@ -1317,8 +1317,10 @@ EOS
       @add_tk_procs = []  # table of [name, args, body]
 
       @force_default_encoding ||= [false]
-      @encoding ||= [nil]
-      def @encoding.to_s; self.join(nil); end
+      unless @encoding
+        @encoding = [nil]
+        def @encoding.to_s; self.join(nil); end
+      end
 
       @cb_entry_class = Class.new(TkCallbackEntry){
         class << self