From a9dc36c94fcc7c7ae3919c7fae9451c13440858f Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 17 Sep 2004 07:09:28 +0000
Subject: * ext/tk/lib/multi-tk.rb: improve exit operation

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6918 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/multi-tk.rb | 122 +++++++++++++++++++++++++++----------------------
 1 file changed, 67 insertions(+), 55 deletions(-)

(limited to 'ext')

diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb
index cd4c916a2e..5299eee06c 100644
--- a/ext/tk/lib/multi-tk.rb
+++ b/ext/tk/lib/multi-tk.rb
@@ -194,11 +194,13 @@ class MultiTkIp
 	  ip._invoke(name, 'eval', 'destroy', '.')
 	rescue Exception
 	end
-	begin
-	  # safe_base?
-	  ip._eval_without_enc("::safe::interpConfigure #{name}")
-	  ip._eval_without_enc("::safe::interpDelete #{name}")
-	rescue Exception
+
+	# safe_base?
+	if ip._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0'
+	  begin
+	    ip._eval_without_enc("::safe::interpDelete #{name}")
+	  rescue Exception
+	  end
 	end
 =begin
 	if ip._invoke('interp', 'exists', name) == '1'
@@ -240,23 +242,26 @@ class MultiTkIp
 	  rescue Exception
 	  end
 =end
-	  begin
-	    # safe_base?
-	    @interp._eval_without_enc("::safe::interpConfigure #{name}")
-	    @interp._eval_without_enc("::safe::interpDelete #{name}")
-	  rescue Exception
-	    if subip.respond_to?(:safe_base?) && subip.safe_base? && 
-		!subip.deleted?
-	      # do 'exit' to call the delete_hook procedure
-	      begin
-		subip._eval_without_enc('exit') 
-	      rescue Exception
-	      end
+	  # safe_base?
+	  if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0'
+	    begin
+	      @interp._eval_without_enc("::safe::interpDelete #{name}")
+	    rescue Exception
 	    else
-	      begin
-		subip.delete unless subip.deleted?
-	      rescue Exception
-	      end
+	      next if subip.deleted?
+	    end
+	  end
+	  if subip.respond_to?(:safe_base?) && subip.safe_base? && 
+	      !subip.deleted?
+	    # do 'exit' to call the delete_hook procedure
+	    begin
+	      subip._eval_without_enc('exit') 
+	    rescue Exception
+	    end
+	  else
+	    begin
+	      subip.delete unless subip.deleted?
+	    rescue Exception
 	    end
 	  end
 	}
@@ -298,7 +303,7 @@ class MultiTkIp
       if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/
 	ret = ($3 == 'exit')
 	unless @interp.deleted?
-	  @slave_ip_tbl.each_value{|subip|
+	  @slave_ip_tbl.each{|name, subip|
 	    _destroy_slaves_of_slaveIP(subip)
 	    begin
 	      subip._eval_without_enc("foreach i [after info] {after cancel $i}")
@@ -310,23 +315,26 @@ class MultiTkIp
 	    rescue Exception
 	    end
 =end
-	    begin
-	      # safe_base?
-	      @interp._eval_without_enc("::safe::interpConfigure #{name}")
-	      @interp._eval_without_enc("::safe::interpDelete #{name}")
-	    rescue Exception
-	      if subip.respond_to?(:safe_base?) && subip.safe_base? && 
-		  !subip.deleted?
-		# do 'exit' to call the delete_hook procedure
-		begin
-		  subip._eval_without_enc('exit') 
-		rescue Exception
-		end
+	    # safe_base?
+	    if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0'
+	      begin
+		@interp._eval_without_enc("::safe::interpDelete #{name}")
+	      rescue Exception
 	      else
-		begin
-		  subip.delete unless subip.deleted?
-		rescue Exception
-		end
+		next if subip.deleted?
+	      end
+	    end
+	    if subip.respond_to?(:safe_base?) && subip.safe_base? && 
+		!subip.deleted?
+	      # do 'exit' to call the delete_hook procedure
+	      begin
+		subip._eval_without_enc('exit') 
+	      rescue Exception
+	      end
+	    else
+	      begin
+		subip.delete unless subip.deleted?
+	      rescue Exception
 	      end
 	    end
 	  }
@@ -1784,7 +1792,7 @@ class MultiTkIp
   end
 
   def delete
-    @slave_ip_tbl.each_value{|subip|
+    @slave_ip_tbl.each{|name, subip|
       _destroy_slaves_of_slaveIP(subip)
 =begin
       begin
@@ -1796,23 +1804,27 @@ class MultiTkIp
 	subip._eval_without_enc("foreach i [after info] {after cancel $i}")
       rescue Exception
       end
-      begin
-	# safe_base?
-	@interp._eval_without_enc("::safe::interpConfigure #{name}")
-	@interp._eval_without_enc("::safe::interpDelete #{name}")
-      rescue Exception
-	if subip.respond_to?(:safe_base?) && subip.safe_base? && 
-	    !subip.deleted?
-	  # do 'exit' to call the delete_hook procedure
-	  begin
-	    subip._eval_without_enc('exit') 
-	  rescue Exception
-	  end
+
+      # safe_base?
+      if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0'
+	begin
+	  @interp._eval_without_enc("::safe::interpDelete #{name}")
+	rescue Exception
 	else
-	  begin
-	    subip.delete unless subip.deleted?
-	  rescue Exception
-	  end
+	  next if subip.deleted?
+	end
+      end
+      if subip.respond_to?(:safe_base?) && subip.safe_base? && 
+	  !subip.deleted?
+	# do 'exit' to call the delete_hook procedure
+	begin
+	  subip._eval_without_enc('exit') 
+	rescue Exception
+	end
+      else
+	begin
+	  subip.delete unless subip.deleted?
+	rescue Exception
 	end
       end
     }
-- 
cgit v1.2.3