
# This code creates the user interface for the hexa mesher.
#
# Copyright (c) 1993 - 1995 Pacific Marketing and Consulting, Inc,
#       and ICEM Systems, GmbH.  All rights reserved.
# Author:  Wayne A. Christopher, wayne@icemcfd.com

proc undo_action {} {
    global last_line replay_count
    
    command "undo query" 0
    if {$last_line == "no operation to undo"} {
	mess "No operation to undo\n" red
    } else {
        set last_op $last_line
	#if ![tk_dialog .quest "Query" "Undo $last_line?" ""  0 "Yes" "No" ]
	mess "Undo: $last_line\n" orange
	command undo 0
	get_indices 0
	index_update_all 0
	update_display
	replay_remove_undo $last_op
    }
}

proc redo_action {} {
    global last_line
    
    command "redo query" 0
    if {$last_line == "no operation to redo"} {
	mess "No operation to redo\n" red
    } else {
	#if ![tk_dialog .quest "Query" "Redo $last_line?" ""  0 "Yes" "No" ]
	mess "Redo: $last_line\n" orange
	command redo
	get_indices 0
	index_update_all 0
	update_display
    }
}
