Hallo Straubias,
denke das hilft dir weiter, ich erzeuge einfach ein ascii File (allenfalls anpassen: set File_name [open "c:\\temp\\pp_debug.txt" w] )in dem ich die Events / Variabeln von UG schreibe:
#*********************************************************************************
#* DEBUG SETTINGS START
#
# Bemerkung: Das auschalten des DEBUG Modes mit "MOM_set_debug_mode ON OFF" funktioniert
# nicht, stattdessen muss "MOM_set_debug_mode ON" durch einen # auskommentiert werden.
#
#*********************************************************************************
#hier Debug Mode einschalten (1) und auschalten (0)
set debug_mode 0
if {$debug_mode == 1} {
set cam_debug_dir [MOM_ask_env_var UGII_CAM_DEBUG_DIR]
#source ${cam_debug_dir}mom_review.tcl
MOM_set_debug_mode ON
set File_name [open "c:\\temp\\pp_debug.txt" w]
# proc MOM__boot ##################################
#
# Starteintrag in Debug File
#
###################################################
proc MOM__boot {} {
global File_name
puts $File_name "================================ MOM__boot ==========================="
}
# proc MOM_before_each_event ######################
#
# Eintrag in Debug File mit dem jeweiligen Event-
# Namen
#
###################################################
proc MOM_before_each_event {} {
global mom_debug_event_name File_name
puts $File_name "--------------------------------------------"
puts $File_name " $mom_debug_event_name"
puts $File_name "--------------------------------------------"
}
# proc MOM_before_each_add_var ####################
#
# Eintrag in Debug File mit dem jeweiligen Parametern
# eines Events
#
###################################################
proc MOM_before_each_add_var {} {
global File_name mom_debug_assign_var
puts $File_name "$mom_debug_assign_var"
}
# proc MOM__halt ##################################
#
# End-Eintrag in Debug File und schliessen des Files
#
###################################################
proc MOM__halt {} {
global File_name
puts $File_name "================================ MOM__halt ==========================="
close $File_name
}
} else {
proc MOM__boot {} {}
}
#*********************************************************************************
#* DEBUG SETTINGS END
#*********************************************************************************
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP