invalid command name "wm"
    while executing
"wm withdraw ."
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish

wm withdraw .

set _gcscrl_win [toplevel .top]
wm protocol $_gcscrl_win WM_DELETE_WINDOW {exit}

#set initial slider position
set _gcscrl_start_y 50

proc _gcscrl_move_slider {c y} {
    global _gcscrl_start_y
    
    set height [winfo height $c]
    if {$y < 0} {set y 0}
    if {$y > $height} {set y $height}
    $c move slider 0 [expr {$y - $_gcscrl_start_y}]
    set _gcscrl_start_y $y
}

#set temp_im [image create photo -file up.gif]
#set temp_im2 [image create photo -file down.gif]

pack [frame $_gcscrl_win.f -width 24] -fill y -side left
pack [button $_gcscrl_win.f.up \
        -command "$_gcscrl_win.t yview scroll -1 units"] -side top
pack [button $_gcscrl_win.f.down \
        -command "$_gcscrl_win.t yview scroll 1 units"] -side bottom
pack [canvas $_gcscrl_win.f.c -width 20] -expand 1 -fill y -side top

$_gcscrl_win.f.c create oval 2 [expr $_gcscrl_start_y - 9] 20 \
        [expr $_gcscrl_start_y + 9] -fill blue -tag slider

pack [text $_gcscrl_win.t] -fill both -expand 1

$_gcscrl_win.f.c bind slider  {_gcscrl_move_slider %W %y}