# File locana/locana_bindings.rb, line 74 def tk_installed?(tk_so) if (!tk_so) debug 0, "tk_installed? = false because locana_gui_tk_ext.so does not exist" if ($DEBUG) return false end ## we must be able to invoke the tcl interpreter #begin # debug 0, "tk_installed?() - attempting to connect to the TCL interpreter" if ($DEBUG) # require 'locana/locana_gui_tk/locana_gui_tk_ext.so' # tk = Locana_gui_tk_ext.new # see if we can connect to the interpreter # debug 0, "tk_installed?() - connecting to the interpreter succeeded" if ($DEBUG) #rescue # debug 0, "tk_installed?() = false - could not connect to the TCL interpreter" if ($DEBUG) # return false #end ##debug 0, "tk_installed?() - disconnecting from the interpreter" if ($DEBUG) #return false if (!tk or tk == 0) #debug 0, "The tk GUI binding exists" if ($DEBUG) ##tk.free return true end