Disable tk_messageBox using global variable

[thorax]

Hi, im doing some batch script conversion using TCL
Im getting these annoying tk_messageBox that completely stop my process.

sending command to TCL: set tkms [tk_messageBox -title "AC3D message" -message "Warning: 1356 objects did not have textures assigned.  You must assign a texture to every object for X-Plane output." -type ok -icon info -parent . ]

I've seen that for instance

set_unsaved_changes 0

disables unsaved changes popups.

Is there any similar global variable or set proc to disable these tk_messageBox as well?
these look like standard TCL and i cant modify the plugin that is calling them cause i dont have the source code.

ive looked into various TCL files and using ac3d list but found no similar proc.

thanks a lot.

[Andy]

Have you tried redfining tk_messageBox as new proc? Might work.

[Geoffm]

Inserting this into a tcl script file (in /programs/ac3dxxx/scripts) will disable messageBoxes entirely.

proc tk_messageBox {args} { return "no" }

The disadvantage is that all messageBoxes will return no; this may affect any command which calls tk_messageBox. you may prefer to return "yes" of course.

You should ensure that the replacement tk_messageBox is only installed when you don't want messages. One way is:

rename tk_messageBox tk_messageOriginal
proc tk_messageBox {args} { return "no" }
#
# ... do all your scripted operations which used to annoy with messageBoxes
#
rename tk_messageOriginal tk_messageBox

The final line will reinstate standard tk_messageBox behaviour.

[Geoffm]

Opps one minor error - add

rename tk_messageBox {}

before

rename tk_messageOriginal tk_messageBox

otherwise the proc "tk_messageBox" already exists and cannot be overwritten. Renaming tk_messageBox to {} (the empty string) destroys its (temporary) version.