!        CALL WDIALOGFIELDSTATE(IDF_CHGGLASS,2)
!        CALL WDIALOGFIELDSTATE(IDF_CURGLASS,2)
!        CALL WDIALOGCLEARFIELD(IDF_CURGLASS)
!        CALL WDIALOGFIELDSTATE(IDF_CATMENU,2)
!        CALL WDIALOGCLEARFIELD(IDF_CATMENU)
!        CALL WDIALOGFIELDSTATE(IDF_CATTOMOD,2)
