set ref_Compare 0
set todo_msg ""
set todo_mask "puts \"TODO CR23096 ALL: "
-set Mandriva_todo_mask "puts \"TODO CR23096 Mandriva2010:"
+set Mandriva_todo_mask "puts \"TODO CR23096 ALL:"
set end_line "\" \n"
##################################################################
# Get shape for standard analysis
puts ""
if { [catch { XGetOneShape res_1 D_First } catch_result] } {
- set err_msg ""Error : First - cannot get shape from document - exception"
+ set err_msg "Error : First - cannot get shape from document - exception"
puts $err_msg
append todo_msg $todo_mask $err_msg $end_line
set mist 1
clear
smallview
if { $mist < 1 } {
- if { [info exists res_2] && [isdraw res_2] } {
- donly res_2
- }
+ if { [info exists res_2] && [isdraw res_2] } {
+ donly res_2
+ isos res_2 0
+ fit
+ isos res_2 2
+ }
+} else {
+ fit
}
-fit
-xwd $imagedir/${test_image}.gif
+xwd $imagedir/${test_image}.png
if { $mist < 1 } {
if { [catch { Close D_Second } catch_result] } {
puts "Error : cannot close a document D_Second"