Stringscan

#regproc.tcl  routines to register serial numbers

#Copyright 2015 WordTech Communications LLC

#MIT license

package provide regproc 1.4
package require http
package require xplat

# #handle errors in Tk
# proc bgerror {args} {
#     global cachedir
#     exec syslog -s -l Error "Stringscan: An error occurred: $args" 2>$cachedir/bgerr
# }


image create photo _unlock -data  {
    R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
    ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
    ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
    tKZ5wkMBADs=
}

	wm deiconify .purchase
	focus .purchase.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .purchase -notify 1]

	    bind all <FocusIn> [list  wm attributes . -notify 0]
	}

    }

    #dialog after demo has expired
    proc expiredPitch {} {
	variable version 

      puts "Directory not found.\n"
  puts "Search complete.\n"
  end

 
  def drawgui 
    begin
      Tk.ip_eval("console hide")
    rescue
      puts "could not hide console.\n"
    end

    #image data
    $folderdata = 'R0lGODlhGAAYAIABAAQHB////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAI1hI8Wy70JgZshJurOtFzmHm0ghJXVZVJkKo7uC8cr28z0g944ojP2/aMFWcNU0SRLxk5KSQEAOw=='

def checkUpdate 
    Tk.tk_call('softwareupdate::setIcon', $icon)
    Tk.tk_call('softwareupdate::checkVersion', $appname, $appversion)
end

#check version of installed software
def getReg
  Tk.tk_call('regproc::getReg')
end

#user help
def showHelp
  Tk.tk_call('machelp::userhelp')
end
  
 
  #here we initialize our app class
def initialize

    $dirname = ""
    $searchterm = ""
    $appname = 'Stringscan'
    $appnversion = '1.0'
    Tk.tk_call('machelp::setAppName', $appname, $appversion)
    Tk.tk_call('softwareupdate::setAppName', $appname);
    Tk.tk_call('softwareupdate::setVersion', $appname, $appversion);

        if $platform == 'aqua'
          ##map ruby proc to "odoc" Apple Event

                               rescue
                                 raise
                               end
                          })    
          Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setDir} $args}")
          Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{Tk.install_cmd(proc{showHelp})}}")
        end        
        drawgui()
        Tk.tk_call('regproc::readLic', $appname, $appversion)
  end             
end
 
app = StringscanApp.new()
Tk.mainloop()