package require MegaWidget
package provide XYText 1.0
namespace eval XYText {
#-----------------------------------------------------------------------------
#
# XYText::Create
#
# Creates an mega-widget with a contained text widget and X and Y
# scrollbars.
#
# Returns : Name of the main frame containing the XYText widget
#
# Parameters :
# hWnd : Name of the main frame of the XYText widget
# args : Options for the text widget (not currently used)
#
# Side Effects: Creates a frame containing text and scrollbar widget.
#
#----------------------------------------------------------------------------
proc XYText { hWnd args } {
frame $hWnd -bd 1 -relief sunken
set hWndTxt \
[text $hWnd.txt \
-bd 0 \
-relief flat \
-xscroll "$hWnd.scrX set" \
-yscroll "$hWnd.scrY set" \
-wrap none \
]
set hWndXScr \
[scrollbar $hWnd.scrX \
-orient horizontal \
-command "$hWndTxt xview" \
]
set hWndYScr \
[scrollbar $hWnd.scrY \
-orient vertical \
-command "$hWndTxt yview" \
]
set hWndBox \
[frame $hWnd.frBox \
-bd 1 \
-relief raised \
]
grid rowconfig $hWnd 0 -weight 1 -minsize 0
grid rowconfig $hWnd 1 -weight 0 -minsize 0
grid columnconfig $hWnd 0 -weight 1 -minsize 0
grid columnconfig $hWnd 1 -weight 0 -minsize 0
grid $hWndTxt -row 0 -column 0 -sticky news
grid $hWndYScr -row 0 -column 1 -sticky ns
grid $hWndXScr -row 1 -column 0 -sticky ew
grid $hWndBox -row 1 -column 1 -sticky news
MegaWidget $hWnd
return $hWnd
}
# Create XYText MegaWidget commands to be passed on to the text widget.
foreach textCmd [list bbox cget compare configure debug delete \
dlineinfo dump get image index insert mark scan search see \
tag window xview yview] {
proc $textCmd { hWnd args } "
return \[eval \$hWnd.txt $textCmd \$args\]
"
}
}
