! (ANSYS, Inc.)        Sometimes, it is reported that the Picker does not respond 
!at 7.1. This macro forces a reset of the picker such that it will work again. 
!Also, it provides diagnostic information to send to ANSYS, Inc.
!
!Use the attached macro as follows:
!
!   1. In ANSYS GUI, issue "guireset" and execute the macro.
!   2. Then when the picker box gets stuck issue "Ctrl-Shift-Delete".This should free up the picker.
!   3. Ask user to send us the diagnostic information from the ANSYS output window such as below along with details of what he/she was doing when this problem occured:
!      #### PLEASE REPORT THIS INFORMATION ####
!      trace for EventType?
!      {w {::namespace inscope ::euidl::graphicPicking resolveEventType}}
!      IgnoreCancel value is 1
!      PARAMETER _BUTTON = 0.000000
!      TURN OFF WORKING PLANE DISPLAY
!
!      #### THANK YOU, AND SORRY FOR THE INCONVENIENCE ####
!
!
!
!
!
!
*CREATE,resetgui.tcl
bind all <Control-Shift-Delete> [namespace code resetGUI]
bind all <Control-Shift-BackSpace> [namespace code resetGUI]
proc resetGUI { } {
    # 
    puts "\n #### PLEASE REPORT THIS INFORMATION ####"
    #
    puts "     trace(s) for EventType?"
    foreach cb [trace vinfo ::euidl::graphicPicking::pickArray(EventType)] {
      puts "         $cb"
      trace vdelete ::euidl::graphicPicking::pickArray(EventType) [lindex $cb 0] [lindex $cb 1]
    }
    #
    puts "     IgnoreCancel value is \
         $::euidl::graphicPicking::pickArray(IgnoreCancel)"
    #
    catch {AnsysGUI::AnsysPicking off}
    # 
    while {![::euidl::stack::isEmpty ::AnsysGUI::greyStatus(0)]} {
      catch {ans_greygui all 1}
    }
    # check for a callFnc problem
    if {[ans_evalexpr _BUTTON] == -999} {
      puts "  A loop was occurring in callFnc\n"
    }
    catch {ans_sendcommand )_BUTTON=0}
    #
    foreach w [grab current] {
      puts "  A grab existed on window $w\n"
      catch {grab release $w}
    }
    catch {AnsysGUI::AnsysPicking on}

    puts "\n #### THANK YOU, AND SORRY FOR THE INCONVENIENCE ####"
}
*END
~eui,'source resetgui.tcl'
~eui,'file delete resetgui.tcl'