[ruby-dev:25992] Re: tktable doesn't have selection_present

永井@知能．九工大です．

From: Hidetoshi NAGAI <[e-mail]>
Subject: [ruby-dev:25991] Re: tktable doesn't have selection_present
Date: Mon, 4 Apr 2005 23:04:48 +0900
Message-ID: <[e-mail]>
> 元々のデモでは下部のボタンがなかったんですが，
> これを追加してしまったためにさらに苦しくなっちゃったんですね．
> 下部のボタンを外して，テキストを 2 行で納めれば
> 何とかなりそうな感じがしますから，
> 余裕のある横方向にボタンを持ってくるように考えてみます．

情報表示を開くと横方向も余裕はないようなので，
取り急ぎ次のようにしてみましたが，いかがでしょう？

--- goldberg.rb.orig	2005-04-04 23:27:46.000000000 +0900
+++ goldberg.rb	2005-04-04 23:49:20.000000000 +0900
@@ -54,6 +54,7 @@
 #  positionWindow(w)
 }
 
+=begin
 # label
 msg = TkLabel.new($goldberg_demo) {
   font 'Arial 10'
@@ -62,7 +63,9 @@
   text "これは、あなたが自分のアニメーションをいかに入り組んだものにできるかを示すというだけのためのデモです。ボールをクリックすれば物が動き始めます！\n\n\"Man will always find a difficult means to perform a simple task\"\n - Rube Goldberg"
 }
 msg.pack('side'=>'top')
+=end
 
+=begin
 # frame
 TkFrame.new($goldberg_demo) {|frame|
   TkButton.new(frame) {
@@ -80,6 +83,7 @@
   }.pack('side'=>'left', 'expand'=>'yes')
 
 }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
+=end
 
 #########################################
 
@@ -160,7 +164,7 @@
                          :relief=>:raised).pack(:side=>:left, :fill=>:both, 
                                                 :expand=>true)
 
-    @canvas = TkCanvas.new(@parent, :width=>860, :height=>730, 
+    @canvas = TkCanvas.new(@parent, :width=>850, :height=>700, 
                           :bg=>@C['bg'], :highlightthickness=>0){
       scrollregion([0, 0, 1000, 1000]) # Kludge to move everything up
       yview_moveto(0.05)
@@ -172,9 +176,34 @@
     do_ctrl_frame
     do_detail_frame
 
-    @show = TkButton.new(@parent, :text=>'>>', :command=>proc{show_ctrl}, 
+    msg = TkLabel.new(@parent, :bg=>@C['bg'], :fg=>'white') {
+      font 'Arial 10'
+      wraplength 600
+      justify 'left'
+      text "これは、あなたが自分のアニメーションをいかに入り組んだものにできるかを示すというだけのためのデモです。ボールをクリックすれば物が動き始めます！\n\"Man will always find a difficult means to perform a simple task\" - Rube Goldberg"
+    }
+    msg.place(:in=>@canvas, :relx=>0, :rely=>0, :anchor=>:nw)
+
+    frame = TkFrame.new(@parent, :bg=>@C['bg'])
+
+    TkButton.new(frame, :bg=>@C['bg'], :activebackground=>@C['bg']) {
+      text '閉じる'
+      command proc{
+        tmppath = $goldberg_demo
+        $goldberg_demo = nil
+        tmppath.destroy
+      }
+    }.pack('side'=>'left')
+
+    TkButton.new(frame, :bg=>@C['bg'], :activebackground=>@C['bg']) {
+      text 'コード参照'
+      command proc{showCode 'goldberg'}
+    }.pack('side'=>'left', 'padx'=>5)
+
+    @show = TkButton.new(frame, :text=>'>>', :command=>proc{show_ctrl}, 
                          :bg=>@C['bg'], :activebackground=>@C['bg'])
-    @show.place(:in=>@canvas, :relx=>1, :rely=>0, :anchor=>:ne)
+    @show.pack('side'=>'left')
+    frame.place(:in=>@canvas, :relx=>1, :rely=>0, :anchor=>:ne)
 
     Tk.update
   end

-- 
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]