TkGoldberg

Type:

Class

# label msg = TkLabel.new($goldberg_demo) {

font 'Arial 10'
wraplength '4i'
justify 'left'
text "This is a demonstration of just how complex you can make your animations become. Click the ball to start things moving!\n\n\"Man will always find a difficult means to perform a simple task\"\n - Rube Goldberg"

} msg.pack('side'=>'top')

# frame TkFrame.new($goldberg_demo) {|frame|

TkButton.new(frame) {
  text 'Dismiss'
  command proc{
    tmppath = $goldberg_demo
    $goldberg_demo = nil
    tmppath.destroy
  }
}.pack('side'=>'left', 'expand'=>'yes')

TkButton.new(frame) {
  text 'See Code'
  command proc{showCode 'goldberg'}
}.pack('side'=>'left', 'expand'=>'yes')

}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')

#########################################

# label msg = TkLabel.new($goldberg_demo) {

font 'Arial 10'
wraplength '4i'
justify 'left'
text "これは、あなたが自分のアニメーションをいかに入り組んだものにできるかを示すというだけのためのデモです。ボールをクリックすれば物が動き始めます！\n\n\"Man will always find a difficult means to perform a simple task\"\n - Rube Goldberg"

} msg.pack('side'=>'top')

# frame TkFrame.new($goldberg_demo) {|frame|

TkButton.new(frame) {
  text '閉じる'
  command proc{
    tmppath = $goldberg_demo
    $goldberg_demo = nil
    tmppath.destroy
  }
}.pack('side'=>'left', 'expand'=>'yes')

TkButton.new(frame) {
  text 'コード参照'
  command proc{showCode 'goldberg'}
}.pack('side'=>'left', 'expand'=>'yes')

}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')

#########################################

draw22