diff options
Diffstat (limited to 'trunk/ext/tk/lib/tkextlib/tcllib/panelframe.rb')
-rw-r--r-- | trunk/ext/tk/lib/tkextlib/tcllib/panelframe.rb | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/trunk/ext/tk/lib/tkextlib/tcllib/panelframe.rb b/trunk/ext/tk/lib/tkextlib/tcllib/panelframe.rb deleted file mode 100644 index 2a4562e779..0000000000 --- a/trunk/ext/tk/lib/tkextlib/tcllib/panelframe.rb +++ /dev/null @@ -1,72 +0,0 @@ -# -# tkextlib/tcllib/panelframe.rb -# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) -# -# * Part of tcllib extension -# * Create PanelFrame widgets. -# - -require 'tk' -require 'tkextlib/tcllib.rb' - -# TkPackage.require('widget::panelframe', '1.0') -TkPackage.require('widget::panelframe') - -module Tk::Tcllib - module Widget - class PanelFrame < TkWindow - PACKAGE_NAME = 'widget::panelframe'.freeze - def self.package_name - PACKAGE_NAME - end - - def self.package_version - begin - TkPackage.require('widget::panelframe') - rescue - '' - end - end - end - Panelframe = PanelFrame - end -end - -class Tk::Tcllib::Widget::PanelFrame - TkCommandNames = ['::widget::panelframe'.freeze].freeze - - def create_self(keys) - if keys and keys != None - tk_call_without_enc(self.class::TkCommandNames[0], @path, - *hash_kv(keys, true)) - else - tk_call_without_enc(self.class::TkCommandNames[0], @path) - end - end - private :create_self - - def add(what, *args) - window(tk_send('add', *args)) - end - - #def get_frame - # window(tk_send('getframe')) - #end - - def set_widget(widget) - tk_send('setwidget', widget) - self - end - - def remove(*wins) - tk_send('remove', *wins) - end - def remove_destroy(*wins) - tk_send('remove', '-destroy', *wins) - end - alias delete remove_destroy - - def items - simplelist(tk_send('items')).collect!{|w| window(w)} - end -end |