From b388591ab76c81eb2c7b4a5d66a840235f1365df Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 27 Jul 2003 19:35:06 +0000
Subject: multi-tk.rb : (new) library to support multiple Tk interpreters (high
 level) tcltklib.c : add some methods to support multiple interpreters (low
 level) MANUAL.euc : modify descriptions tcltklib/sample/safeTk.rb : (new)
 sample : how to use safeTk interpreter tk/sample/safe-tk.rb : (new) sample :
 how to use multi-tk.rb tk.rb, tkafter.rb : bug fix and add feature to supprt
 multi-tk

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4186 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/sample/safe-tk.rb | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 ext/tk/sample/safe-tk.rb

(limited to 'ext/tk/sample')

diff --git a/ext/tk/sample/safe-tk.rb b/ext/tk/sample/safe-tk.rb
new file mode 100644
index 0000000000..77cfc3c87f
--- /dev/null
+++ b/ext/tk/sample/safe-tk.rb
@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+# This script is a sample of MultiTkIp class
+
+require "multi-tk"
+
+# create slave interpreters
+trusted_slave = MultiTkIp.new_slave
+safe_slave    = MultiTkIp.new_safeTk
+
+
+cmd = Proc.new{|txt|
+  #####################
+  ## from TkTimer2.rb
+  begin
+    root = TkRoot.new(:title=>'timer sample')
+  rescue
+    # safeTk doesn't have permission to call 'wm' command
+  end
+  label = TkLabel.new(:parent=>root, :relief=>:raised, :width=>10) \
+                  .pack(:side=>:bottom, :fill=>:both)
+
+  tick = proc{|aobj|
+    cnt = aobj.return_value + 5
+    label.text format("%d.%02d", *(cnt.divmod(100)))
+    cnt
+  }
+
+  timer = TkTimer.new(50, -1, tick).start(0, proc{ label.text('0.00'); 0 })
+
+  TkButton.new(:text=>'Start') {
+    command proc{ timer.continue unless timer.running? }
+    pack(:side=>:left, :fill=>:both, :expand=>true)
+  }
+  TkButton.new(:text=>'Stop') {
+    command proc{ timer.stop if timer.running? }
+    pack('side'=>'right','fill'=>'both','expand'=>'yes')
+  }
+
+  ev_quit = TkVirtualEvent.new('Control-c', 'Control-q')
+  Tk.root.bind(ev_quit, proc{Tk.exit}).focus
+}
+
+# call on the default master interpreter
+trusted_slave.eval_proc(cmd, 'trusted')
+safe_slave.eval_proc(cmd, 'safe')
+cmd.call('master')
+
+Tk.mainloop
-- 
cgit v1.2.3