Module: FFI::Tk

Extended by:
Library
Defined in:
lib/ffi-tk/ffi/tk.rb

Class Method Summary collapse

Class Method Details

.init(interp) ⇒ Object 



19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
# File 'lib/ffi-tk/ffi/tk.rb', line 19

def init(interp)
  if ::Tk::RUN_EVENTLOOP_ON_MAIN_THREAD
    if Tk_Init(interp) == 1
      message = Tcl.Tcl_GetStringResult(interp)
      raise RuntimeError, message
    end
  else
    Tcl.thread_sender.thread_send do
      if Tk_Init(interp) == 1
        message = Tcl.Tcl_GetStringResult(interp)
        raise RuntimeError, message
      end
    end
  end
end

.mainloop ⇒ Object 



11
12
13
14
15
16
17
 
# File 'lib/ffi-tk/ffi/tk.rb', line 11

def mainloop
  if ::Tk::RUN_EVENTLOOP_ON_MAIN_THREAD
    Tk_MainLoop()
  else
    Tcl.thread_sender.thread_send{ Tk_MainLoop() }
  end
end