----

[ application_runner_&_wrapper] 
 # application_runner_&_wrapper.tcl --
 # goldshell7, tcl wiki script on 20060601
 # modified to
 # demo script in Expect 5.21
 # TCL8 distribution, for Win95 use
 # modified to  TCL8 distribution
 #start of deck
 # SCCS: @(#)   1.16 97/03/02 16:25:05
 # GLOBAL VARIABLES
 #

 global filex
 set filex "1"
 global obj; set obj {1}
 global widget; 
    set widget {TEST}
    

 #################################
 # USER DEFINED PROCEDURES
 #
 proc init {argc argv} {

 }

 init $argc $argv


 proc main {argc argv} {
 global widget
 # $widget insert end "forced text"
 .list insert end "end of show!!!"
 .sorted insert end "end of show!!!"
 }

 proc Window {args} {
 global vTcl
    set cmd [lindex $args 0]
    set name [lindex $args 1]
    set rest [lrange $args 2 end]
    if {$name == "" || $cmd == ""} {return}
    set exists [winfo exists $name]
    switch $cmd {
        show {
            if {[info procs vTclWindow(pre)$name] != ""} {
                vTclWindow(pre)$name $rest
            }
            if {[info procs vTclWindow$name] != ""} {
                vTclWindow$name
            }
            if {[info procs vTclWindow(post)$name] != ""} {
                vTclWindow(post)$name $rest
            }
        }
        hide    { if $exists {wm withdraw $name; return} }
        iconify { if $exists {wm iconify $name; return} }
        destroy { if $exists {destroy $name; return} }
    }
 }
 proc browse {dir file} {
    global env
    #global file
    global filex
    global dirx
    set filex ""
    set dirx ""
    catch {if {[string compare $dir "."] != 0} {set file $dir/$file }}
   set filex $file
		#exec "\"C:/program files/microsoft office/office/winword\"" $file &
	  #exec "\C:\/ ted\ " &
          # exec "ted" &
          #exec [C:\/Program\ Files \
 /Microsoft\ Office/Office/Winword] $file &
 #exec [C:\\Program\ Files\\Microsoft\ Office\\Office\\Winword] $file &
 #.entry01 insert end " "
 # .entry02 insert end " "
 set clipped_directory "2";
 set clipped_directory [file dirname $dir]
 .entry01 delete 0 end

 .entry02 delete 0 end

 #  .entry01 insert end $dir
 .entry01 insert end [file dirname $dir]
 .entry01 insert end [eval file dirname  [eval file dirname $dir]]
 .entry02 insert end $filex
 }
 #################################
 # VTCL GENERATED GUI PROCEDURES
 #

 button .button01 -text APPLICATION -command {C:\/Program\ Files\/Microsoft\ Office\/Office\/Winword}  
 # TCL has long noses for Microsoft
 button .button02 -text EDIT -command \
 {C:\/Program\ Files\/Microsoft\ Office\/Office\/Winword} 

 button .button03 -text EXIT -command {exit} 
 button .button04 -text RESET -command {browse $dir $i} 
  pack .button01 .button02 .button03 \
 .button04  
  entry .entry01 \
       -font   \
 -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
     -textvariable $filex -justify left -width 50 -state normal
 label .label02 \
       -text "target directory" -justify center -width 20 
 label .label01 \
       -text "target file" -justify center -width 20 
 entry .entry02 \
       -font   \
-Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
     -textvariable $filex -justify left -width 50 -state normal
 pack .label01 -side bottom -fill y
 pack .entry01 -side bottom -fill y
 pack .label02 -side bottom -fill y
 pack .entry02 -side bottom -fill y
 # Create a scrollbar on the right side of the main window and a listbox
 # on the left side.

 scrollbar .scroll -command ".list yview"


 listbox .list -yscroll ".scroll set" -relief sunken -width 20 -height 20 \
	-setgrid yes


 pack .list -side left -fill both -expand yes

 listbox .sorted -yscroll ".scroll set" \
      -width 20 -height 20
   
   pack .sorted -side right

 
   scrollbar .scrollx -command \
      ".sorted yview"


  
 pack .scrollx -side right -fill y
 pack .scroll -side right -fill y
 
 # Fill the listbox with a list of all the files in the directory (run
 # the "ls" command to get that information).
 if {$argc > 0} {
      set dir [lindex $argv 0]
   } else {
      set dir .
   }
   foreach i [lsort [glob * .*]] {
      #.list insert end $i
       
      .sorted insert end $i
 }
  foreach i [lsort [glob  {\*}]] {
  
   .list insert end $i

      #.sorted insert end $i
 }


 # Set up bindings for the browser.

 bind all <Control-c> {destroy .}
 bind .list <Double-Button-1> {foreach i [selection get] {browse $dir $i} }

 bind .sorted <Double-Button-1> {foreach i [selection get] {browse $dir $i} }


 main $argc $argv# horoscope pie plotter 
 # loaded on tcl wiki tcl8
 # 2JUn2006, goldshell7
 # end of deck

----
 #application_runner_&_wrapper!   
----
[Category Toys]