global num_images images
if {![info exists num_images]} {set num_images 0}

set Name [unique2 $Composite.f3]
set Parent $Name
#------------------------------------------
frame $Name -borderwidth 2 -height 320 -relief raised -width 536
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top

set Name $Parent.pos
#------------------------------------------
canvas $Name -borderwidth 1 -height 48 -insertbackground red -relief raised -scrollregion {0c 0c 10c 10c} -selectforeground purple -width 64
pack $Name -anchor sw -expand 1 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side bottom
global Procs
set Procs($Name) {{bind $Name <B1-Motion>} draw_position {$Name.callback}}
bind $Name <B1-Motion> {draw_position %W %x %y}
proc draw_position {can x y} {
  set color [get_widget_value $can insertbackground]
  if {$x > [winfo width $can]} {set x [winfo width $can]}
  if {$y > [winfo height $can]} {set y [winfo height $can]}
  if {$x < 0} {set x 0}
  if {$y < 0} {set y 0}
  catch "$can delete x"
  catch "$can delete y"
  $can create line $x 0 $x [winfo height $can] -tag x -fill $color
  $can create line 0 $y [winfo width $can] $y -tag y -fill $color
  $can.callback $can $x $y
}
proc $Name.callback {w x y} {
  puts "position at $x $y"
  # Add your code here.
  [winfo parent $w].t5 scan dragto -$x -$y
}

set Name $Parent.t5
#------------------------------------------
text $Name -borderwidth 3 -height 22 -width 22 -wrap none
$Name insert end {     tk(n)                       Tk (4.0)                        tk(n)



     _________________________________________________________________

     NAME
          tk - Manipulate Tk internal state

     SYNOPSIS
          tk option ?arg arg ...?
     _________________________________________________________________


     DESCRIPTION
          The tk command provides access to miscellaneous elements of Tk's internal state.  Most of the information manipulated by
          this command pertains to the application as a whole, or to a screen or display, rather than to a particular window.  The
          command can take any of a number of different forms depending on the option argument.  The legal forms are:

          tk appname ?newName?
               If newName isn't specified, this command returns the name of the application (the name that may be used in    |
               send commands to communicate with the application).  If newName is specified, then the name of the application   |
               is changed to newName.  If the given name is already in use, then a suffix of the form `` #2'' or `` #3'' is     |
               appended in order to make the name unique.  The command's result is the name actually chosen.  newName   |
               should not start with a capital letter.  This will interfere with option processing, since names starting   |
               with capitals are assumed to be classes;  as a result,  Tk may not be able to find some options for the          |
               application.  If sends have been disabled by deleting  the send command, this command will reenable them and    |
               recreate the send command.


     KEYWORDS
          application name, send

















     Page 1                                         (printed 11/10/95)



1
}
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 1 -pady 1 -side top
