2003-08-02 05:58:13 -04:00
|
|
|
|
# paned1.rb
|
|
|
|
|
|
#
|
|
|
|
|
|
# This demonstration script creates a toplevel window containing
|
|
|
|
|
|
# a paned window that separates two windows horizontally.
|
|
|
|
|
|
#
|
|
|
|
|
|
# based on "Id: paned1.tcl,v 1.1 2002/02/22 14:07:01 dkf Exp"
|
|
|
|
|
|
|
|
|
|
|
|
if defined?($paned1_demo) && $paned1_demo
|
|
|
|
|
|
$paned1_demo.destroy
|
|
|
|
|
|
$paned1_demo = nil
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
$paned1_demo = TkToplevel.new {|w|
|
|
|
|
|
|
title("Horizontal Paned Window Demonstration")
|
|
|
|
|
|
iconname("paned1")
|
|
|
|
|
|
positionWindow(w)
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TkLabel.new($paned1_demo,
|
|
|
|
|
|
:font=>$font, :wraplength=>'4i', :justify=>:left,
|
|
|
|
|
|
:text=><<EOL).pack(:side=>:top)
|
|
|
|
|
|
<EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD>դ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>줿<EFBFBD><EFBFBD><EFBFBD>ĤΥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɥ<EFBFBD><EFBFBD>δ֤λ<EFBFBD><EFBFBD>ڤ<EFBFBD><EFBFBD>Ȥϡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĥ<EFBFBD><EFBFBD>ΰ<EFBFBD><EFBFBD>줾<EFBFBD><EFBFBD><EFBFBD>Υ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɥ<EFBFBD><EFBFBD>Τ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʬ<EFBFBD>䤹<EFBFBD>뤿<EFBFBD><EFBFBD><EFBFBD>Τ<EFBFBD><EFBFBD>ΤǤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǻ<EFBFBD><EFBFBD>ڤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD>ʬ<EFBFBD>䥵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǤϺ<EFBFBD>ɽ<EFBFBD><EFBFBD><EFBFBD>Ϥʤ<EFBFBD><EFBFBD>줺<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꤵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȥ<EFBFBD><EFBFBD><EFBFBD>ɽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɿ路<EFBFBD>ƥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>褦<EFBFBD>ˤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϡ<EFBFBD><EFBFBD>ޥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȤäƤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
<EFBFBD>⤷<EFBFBD><EFBFBD><EFBFBD>ʤ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȤäƤ<EFBFBD><EFBFBD><EFBFBD> Ruby <EFBFBD>˥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƥ<EFBFBD><EFBFBD><EFBFBD> Tk <EFBFBD>饤<EFBFBD>֥<EFBFBD><EFBFBD>꤬ panedwindow <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƥ<EFBFBD><EFBFBD>ʤ<EFBFBD>
|
|
|
|
|
|
<EFBFBD><EFBFBD><EFBFBD>硢<EFBFBD><EFBFBD><EFBFBD>Υǥ<EFBFBD><EFBFBD>Ϥ<EFBFBD><EFBFBD>ޤ<EFBFBD>ư<EFBFBD><EFBFBD><EFBFBD>ʤ<EFBFBD><EFBFBD>Ϥ<EFBFBD><EFBFBD>Ǥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ξ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˤ<EFBFBD> panedwindow <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>褦<EFBFBD><EFBFBD>
|
|
|
|
|
|
<EFBFBD><EFBFBD><EFBFBD>꿷<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Tk <EFBFBD><EFBFBD><EFBFBD>Ȥ߹<EFBFBD><EFBFBD>碌<EFBFBD>ƻ
|
|
|
|
|
|
<EFBFBD>褦<EFBFBD>ˤ<EFBFBD><EFBFBD>Ƥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
EOL
|
|
|
|
|
|
|
|
|
|
|
|
# The bottom buttons
|
|
|
|
|
|
TkFrame.new($paned1_demo){|f|
|
|
|
|
|
|
pack(:side=>:bottom, :fill=>:x, :pady=>'2m')
|
|
|
|
|
|
|
2004-05-01 12:09:54 -04:00
|
|
|
|
TkButton.new(f, :text=>'<27>Ĥ<EFBFBD><C4A4><EFBFBD>', :width=>15, :command=>proc{
|
2003-08-02 05:58:13 -04:00
|
|
|
|
$paned1_demo.destroy
|
|
|
|
|
|
$paned1_demo = nil
|
|
|
|
|
|
}).pack(:side=>:left, :expand=>true)
|
|
|
|
|
|
|
|
|
|
|
|
TkButton.new(f, :text=>'<27><><EFBFBD><EFBFBD><EFBFBD>ɻ<EFBFBD><C9BB><EFBFBD>', :width=>15, :command=>proc{
|
|
|
|
|
|
showCode 'paned1'
|
|
|
|
|
|
}).pack(:side=>:left, :expand=>true)
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TkPanedwindow.new($paned1_demo){|f|
|
|
|
|
|
|
pack(:side=>:top, :expand=>true, :fill=>:both, :pady=>2, :padx=>'2m')
|
|
|
|
|
|
|
|
|
|
|
|
add(TkLabel.new(f, :text=>"This is the\nleft side", :bg=>'yellow'),
|
|
|
|
|
|
TkLabel.new(f, :text=>"This is the\nright side", :bg=>'cyan'))
|
|
|
|
|
|
}
|
