# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
# install rwdtinker applet from a long directory location 

def installgemapplet
	require 'fileutils'
	require 'lib/zip/zip'
	nametext = "%s" % [@a_installapplet]

	begin # exception trapped block
		fullname =  nametext + ".zip"

		zf = Zip::ZipFile.new(fullname)
		zf.sort.each {
			|entry|
			zf.extract(entry.to_s, entry.to_s)
		}
		
	rescue
		
		         $rwdtinkerlog.error "installgemapplet: unzip error - applet may not be installed correctly"
	
                           @installapplettext = " .. "
	
        end # exception rescue

                @rwd_ignore_vars << @nametextbase << @returninitiateresults << @installapplettext	
		tmpnametext = File.basename(nametext)
		tmpnametext.chop!; tmpnametext.chop!; tmpnametext.chop!; tmpnametext.chop!
		@nametextbase = tmpnametext.chop!
		@returninitateresults = initiateapplet(@nametextbase)
		@installapplettext = Message[:applet_installed] + " " +   @returninitateresults 

				
       RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")

	
end