Gecko [ beriskala.com ]

Name	Size	Permission	Date
after.rb	127 B	-rw-r--r--	2023-07-26 18:01
autoload.rb	22.76 KB	-rw-r--r--	2023-07-26 18:01
bgerror.rb	667 B	-rw-r--r--	2023-07-26 18:01
bindtag.rb	2.67 KB	-rw-r--r--	2023-07-26 18:01
busy.rb	2.22 KB	-rw-r--r--	2023-07-26 18:01
button.rb	769 B	-rw-r--r--	2023-07-26 18:01
canvas.rb	22.82 KB	-rw-r--r--	2023-07-26 18:01
canvastag.rb	9.19 KB	-rw-r--r--	2023-07-26 18:01
checkbutton.rb	1001 B	-rw-r--r--	2023-07-26 18:01
clipboard.rb	1.64 KB	-rw-r--r--	2023-07-26 18:01
clock.rb	1.6 KB	-rw-r--r--	2023-07-26 18:01
composite.rb	11.87 KB	-rw-r--r--	2023-07-26 18:01
console.rb	1.27 KB	-rw-r--r--	2023-07-26 18:01
dialog.rb	8.9 KB	-rw-r--r--	2023-07-26 18:01
encodedstr.rb	4.55 KB	-rw-r--r--	2023-07-26 18:01
entry.rb	2.58 KB	-rw-r--r--	2023-07-26 18:01
event.rb	17.5 KB	-rw-r--r--	2023-07-26 18:01
font.rb	60.32 KB	-rw-r--r--	2023-07-26 18:01
fontchooser.rb	3.59 KB	-rw-r--r--	2023-07-26 18:01
frame.rb	3.45 KB	-rw-r--r--	2023-07-26 18:01
grid.rb	7.69 KB	-rw-r--r--	2023-07-26 18:01
image.rb	12.54 KB	-rw-r--r--	2023-07-26 18:01
itemconfig.rb	55.14 KB	-rw-r--r--	2023-07-26 18:01
itemfont.rb	9.29 KB	-rw-r--r--	2023-07-26 18:01
kinput.rb	1.56 KB	-rw-r--r--	2023-07-26 18:01
label.rb	609 B	-rw-r--r--	2023-07-26 18:01
labelframe.rb	1014 B	-rw-r--r--	2023-07-26 18:01
listbox.rb	7.82 KB	-rw-r--r--	2023-07-26 18:01
macpkg.rb	1.91 KB	-rw-r--r--	2023-07-26 18:01
menu.rb	20.04 KB	-rw-r--r--	2023-07-26 18:01
menubar.rb	4.08 KB	-rw-r--r--	2023-07-26 18:01
menuspec.rb	13.75 KB	-rw-r--r--	2023-07-26 18:01
message.rb	693 B	-rw-r--r--	2023-07-26 18:01
mngfocus.rb	672 B	-rw-r--r--	2023-07-26 18:01
msgcat.rb	8.46 KB	-rw-r--r--	2023-07-26 18:01
namespace.rb	14.34 KB	-rw-r--r--	2023-07-26 18:01
optiondb.rb	11.28 KB	-rw-r--r--	2023-07-26 18:01
optionobj.rb	4.87 KB	-rw-r--r--	2023-07-26 18:01
pack.rb	2.51 KB	-rw-r--r--	2023-07-26 18:01
package.rb	2.8 KB	-rw-r--r--	2023-07-26 18:01
palette.rb	1.13 KB	-rw-r--r--	2023-07-26 18:01
panedwindow.rb	7.76 KB	-rw-r--r--	2023-07-26 18:01
place.rb	3.86 KB	-rw-r--r--	2023-07-26 18:01
radiobutton.rb	1.98 KB	-rw-r--r--	2023-07-26 18:01
root.rb	2.04 KB	-rw-r--r--	2023-07-26 18:01
scale.rb	2.76 KB	-rw-r--r--	2023-07-26 18:01
scrollable.rb	1.74 KB	-rw-r--r--	2023-07-26 18:01
scrollbar.rb	4.66 KB	-rw-r--r--	2023-07-26 18:01
scrollbox.rb	1.13 KB	-rw-r--r--	2023-07-26 18:01
selection.rb	2.19 KB	-rw-r--r--	2023-07-26 18:01
spinbox.rb	3.04 KB	-rw-r--r--	2023-07-26 18:01
tagfont.rb	859 B	-rw-r--r--	2023-07-26 18:01
text.rb	45.64 KB	-rw-r--r--	2023-07-26 18:01
textimage.rb	2.22 KB	-rw-r--r--	2023-07-26 18:01
textmark.rb	4.91 KB	-rw-r--r--	2023-07-26 18:01
texttag.rb	7.76 KB	-rw-r--r--	2023-07-26 18:01
textwindow.rb	4.26 KB	-rw-r--r--	2023-07-26 18:01
timer.rb	14.46 KB	-rw-r--r--	2023-07-26 18:01
tk_mac.rb	3.68 KB	-rw-r--r--	2023-07-26 18:01
toplevel.rb	6.98 KB	-rw-r--r--	2023-07-26 18:01
ttk_selector.rb	2.98 KB	-rw-r--r--	2023-07-26 18:01
txtwin_abst.rb	785 B	-rw-r--r--	2023-07-26 18:01
validation.rb	9.61 KB	-rw-r--r--	2023-07-26 18:01
variable.rb	45.88 KB	-rw-r--r--	2023-07-26 18:01
virtevent.rb	3.51 KB	-rw-r--r--	2023-07-26 18:01
winfo.rb	8.36 KB	-rw-r--r--	2023-07-26 18:01
winpkg.rb	3.87 KB	-rw-r--r--	2023-07-26 18:01
wm.rb	14.83 KB	-rw-r--r--	2023-07-26 18:01
xim.rb	2.74 KB	-rw-r--r--	2023-07-26 18:01

Rename

#
# tk/tk_mac.rb : Access Mac-Specific functionality on OS X from Tk
#                (supported by Tk8.6 or later)
#
#     ATTENTION !!
#         This is NOT TESTED. Because I have no test-environment.
#
require 'tk'

module Tk
  module Mac
  end
end

module Tk::Mac
  extend TkCore

# event handler callbacks
  def self.def_ShowPreferences(cmd=Proc.new)
    ip_eval("proc ::tk::mac::ShowPreferences {} { #{install_cmd(cmd)} }")
    nil
  end

def self.def_OpenApplication(cmd=Proc.new)
    ip_eval("proc ::tk::mac::OpenApplication {} { #{install_cmd(cmd)} }")
    nil
  end

def self.def_ReopenApplication(cmd=Proc.new)
    ip_eval("proc ::tk::mac::ReopenApplication {} { #{install_cmd(cmd)} }")
    nil
  end

def self.def_OpenDocument(cmd=Proc.new)
    ip_eval("proc ::tk::mac::OpenDocument {args} { eval #{install_cmd(cmd)} $args }")
    nil
  end

def self.def_PrintDocument(cmd=Proc.new)
    ip_eval("proc ::tk::mac::PrintDocument {args} { eval #{install_cmd(cmd)} $args }")
    nil
  end

def self.def_Quit(cmd=Proc.new)
    ip_eval("proc ::tk::mac::Quit {} { #{install_cmd(cmd)} }")
    nil
  end

def self.def_OnHide(cmd=Proc.new)
    ip_eval("proc ::tk::mac::OnHide {} { #{install_cmd(cmd)} }")
    nil
  end

def self.def_OnShow(cmd=Proc.new)
    ip_eval("proc ::tk::mac::OnShow {} { #{install_cmd(cmd)} }")
    nil
  end

def self.def_ShowHelp(cmd=Proc.new)
    ip_eval("proc ::tk::mac::ShowHelp {} { #{install_cmd(cmd)} }")
    nil
  end

# additional dialogs
  def self.standardAboutPanel
    tk_call('::tk::mac::standardAboutPanel')
    nil
  end

# system configuration
  def self.useCompatibilityMetrics(mode)
    tk_call('::tk::mac::useCompatibilityMetrics', mode)
    nil
  end

def self.CGAntialiasLimit(limit)
    tk_call('::tk::mac::CGAntialiasLimit', limit)
    nil
  end

def self.antialiasedtext(num)
    tk_call('::tk::mac::antialiasedtext', num)
    nil
  end

def self.useThemedToplevel(mode)
    tk_call('::tk::mac::useThemedToplevel', mode)
    nil
  end

end

class Tk::Mac::IconBitmap < TkImage
  TkCommandNames = ['::tk::mac::iconBitmap'].freeze

def self.new(width, height, keys)
    if keys.kind_of?(Hash)
      name = nil
      if keys.key?(:imagename)
        name = keys[:imagename]
      elsif keys.key?('imagename')
        name = keys['imagename']
      end
      if name
        if name.kind_of?(TkImage)
          obj = name
        else
          name = _get_eval_string(name)
          obj = nil
          Tk_IMGTBL.mutex.synchronize{
            obj = Tk_IMGTBL[name]
          }
        end
        if obj
          if !(keys[:without_creating] || keys['without_creating'])
            keys = _symbolkey2str(keys)
            keys.delete('imagename')
            keys.delete('without_creating')
            obj.instance_eval{
              tk_call_without_enc('::tk::mac::iconBitmap',
                                  @path, width, height, *hash_kv(keys, true))
            }
          end
          return obj
        end
      end
    end
    (obj = self.allocate).instance_eval{
      Tk_IMGTBL.mutex.synchronize{
        initialize(width, height, keys)
        Tk_IMGTBL[@path] = self
      }
    }
    obj
  end

def initialize(width, height, keys)
    @path = nil
    without_creating = false
    if keys.kind_of?(Hash)
      keys = _symbolkey2str(keys)
      @path = keys.delete('imagename')
      without_creating = keys.delete('without_creating')
    end
    unless @path
      Tk_Image_ID.mutex.synchronize{
        @path = Tk_Image_ID.join(TkCore::INTERP._ip_id_)
        Tk_Image_ID[1].succ!
      }
    end
    unless without_creating
      tk_call_without_enc('::tk::mac::iconBitmap',
                          @path, width, height, *hash_kv(keys, true))
    end
  end
end