Select Code to Download

    tie %curRecord, 'Tcl::Var', $tcl, "curRecord";

    %curRecord = %{SelectedRecords()};
    Error: Tix Error: Can't locate object method "CLEAR" via package T
+cl::Var" at...

    $temp = SelectedRecords();                
    foreach (keys %{$temp}){
        $curRecord{$_} = $temp->{$_};
    }