Index: stringscan.rb
==================================================================
--- stringscan.rb
+++ stringscan.rb
@@ -82,10 +82,13 @@
         $file_list = []
         $grep_list = []
         $p.start
         $bottomlabel.configure('text' => "Searching for \"#{$searchterm}\" in #{$dirname}")
         $lbox.delete(0, 'end')
+        $tbox.configure('state'=>'normal')
+        $tbox.delete('1.0', 'end')
+        $tbox.configure('state'=>'disabled')
         $root.update
         Find.find("#{$dirname}") do |path|
             $file_list << path unless FileTest.directory?(path)
         end
         for i in $file_list
@@ -140,11 +143,14 @@
         title "Stringscan"
     }
         $root.iconphoto_default($icon)
         if $platform == 'aqua'
         Tk.tk_call('fullscreen::fullscreen', $root)
-    end
+        end
+        
+     $root.withdraw
+        
         #menu
     $menubar = TkMenu.new($root)
     TkOption.add '*tearOff', 0
     if $platform == 'aqua'
         $appmenu = TkSysMenu_Apple.new($menubar)
@@ -280,11 +286,12 @@
     $root.bind("#{$accelkey}-O", proc{choosedir})
     $root.bind("#{$accelkey}-o", proc{choosedir})
     $root.bind("#{$accelkey}-R", proc{stringgrep})
     $root.bind("#{$accelkey}-r", proc{stringgrep})
 
-    $lbox.focus
+    $root.update
+    $root.deiconify
 
 end
 
 
 #select search directory