From b7a7c70c32ff503d9401b4d47263c5d5fa4e45d8 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 1 Jul 2004 09:38:48 +0000
Subject: * ext/tk/lib/tcltklib : bug fix * ext/tk/lib/tk : bug fix and add
 Tcl/Tk extension support libraries

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

(limited to 'ext/tk/lib/tk/textmark.rb')

diff --git a/ext/tk/lib/tk/textmark.rb b/ext/tk/lib/tk/textmark.rb
index 8b42df2f0c..18d52a5bfc 100644
--- a/ext/tk/lib/tk/textmark.rb
+++ b/ext/tk/lib/tk/textmark.rb
@@ -37,6 +37,14 @@ class TkTextMark<TkObject
     @id
   end
 
+  def exist?
+    if ( tk_split_simplelist(_fromUTF8(tk_call_without_enc(@t.path, 'mark', 'names'))).find{|id| id == @id } )
+      true
+    else
+      false
+    end
+  end
+
   def +(mod)
     @id + ' + ' + mod
   end
-- 
cgit v1.2.3