$::SRw.outerframe.label configure -text [string range $string 0 [expr [string length $string] -1]]
I made this prototype that types text "in slow motion" into a text
widget. It works as expected in text widgets, but not in labels.
Can someone please help me with this?
------------------------------------
package require Tk
wm withdraw .
catch {destroy .sr}
set ::SRw [toplevel .sr]
wm resizable $::SRw 1 1
tk appname "New project"
wm title $::SRw "New project"
frame $::SRw.outerframe
$::SRw.outerframe configure -background #23ADB5
$::SRw.outerframe configure -padx 6 -pady 4
$::SRw.outerframe configure -relief raised -borderwidth 4
pack $::SRw.outerframe
text $::SRw.outerframe.textbox
$::SRw.outerframe.textbox configure -font {Arial 24} $::SRw.outerframe.textbox configure -width 40 -height 4 $::SRw.outerframe.textbox configure -background #23ADB5 -fg #ffffff $::SRw.outerframe.textbox configure -padx 10 -pady 4
pack $::SRw.outerframe.textbox
label $::SRw.outerframe.label
$::SRw.outerframe.label configure
$::SRw.outerframe.label configure -text "Some text."
$::SRw.outerframe.label configure -font {Arial 16}
$::SRw.outerframe.label configure -background #ffffff -foreground #000000 pack $::SRw.outerframe.label -side left
bind $::SRw <Alt_L><q> {exit 0}
proc sleep {time} {
after $time set end 1
vwait end
}
set string "This is a slo mo text insertion test."
for {set x 0} {$x <= [string length $string]} {incr x} {
sleep 150
$::SRw.outerframe.textbox insert end [string index $string $x]
}
for {set x 0} {$x <= [string length $string]} {incr x} {
sleep 150
$::SRw.outerframe.label configure -text [string range $string 0 [expr [string length $string] -1]]
}
--
Luc
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 297 |
Nodes: | 16 (2 / 14) |
Uptime: | 33:51:23 |
Calls: | 6,669 |
Calls today: | 1 |
Files: | 12,216 |
Messages: | 5,338,370 |