1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/ext/tk/lib/tkextlib/iwidgets/shell.rb
nagai afcfca607e * ext/tk/lib : bug fix
* ext/tk/lib/tkextlib/itcl : add [incr Tcl] support
* ext/tk/lib/tkextlib/itk  : add [incr Tk] support
* ext/tk/lib/tkextlib/iwidgets : midway point of [incr Widgets] support
* ext/tk/sample/tkextlib/iwidgets : very simple examples of [incr Widgets]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6602 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2004-07-08 16:50:07 +00:00

38 lines
712 B
Ruby

#
# tkextlib/iwidgets/shell.rb
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
require 'tk'
require 'tkextlib/iwidgets.rb'
module Tk
module Iwidgets
class Shell < Tk::Itk::Toplevel
end
end
end
class Tk::Iwidgets::Shell
TkCommandNames = ['::iwidgets::shell'.freeze].freeze
WidgetClassName = 'Shell'.freeze
WidgetClassNames[WidgetClassName] = self
def activate
tk_call(@path, 'activate') # may return val of deactibate method
end
def center(win=None)
tk_call(@path, 'center', win)
self
end
def child_site
window(tk_call(@path, 'childsite'))
end
def deactivate(val=None)
tk_call(@path, 'deactivate', val)
self
end
end