Index: stringscan.rb ================================================================== --- stringscan.rb +++ stringscan.rb @@ -1,28 +1,25 @@ #Stringscan: grep-like tool, written in Ruby-Tk. (c) 2017 Kevin Walzer/WordTech Communications LLC. License: MIT license. #encoding: UTF-8 require 'tk' +#find additional Tcl libraries +Tk::AUTO_PATH.list <<= File.dirname(__FILE__) require_relative 'tkballoonhelp' require 'tkextlib/tile' require 'find' require 'tkextlib/tcllib/tablelist_tile' require 'mime/types' -require 'tk/tk_mac' require 'tkextlib/tkDND' $platform = Tk.windowingsystem - -#find additional Tcl libraries -Tk::AUTO_PATH.list <<= File.dirname(__FILE__) - - if $platform == 'aqua' TkPackage.require('windowlist') TkPackage.require('fullscreen') + require 'tk/tk_mac' end TkPackage.require('regproc') TkPackage.require('machelp') TkPackage.require('softwareupdate') TkPackage.require('xplat') @@ -130,11 +127,13 @@ Tk::TkDND::DND $root = TkRoot.new { title "Stringscan" } - Tk.tk_call('fullscreen::fullscreen', $root) + if $platform == 'aqua' + Tk.tk_call('fullscreen::fullscreen', $root) + end #menu $menubar = TkMenu.new($root) TkOption.add '*tearOff', 0 if $platform == 'aqua'