# -*- tcl -*-
# $Id: external_figs,v 1.2 1998/10/13 08:11:40 tobotras Exp $

rename insertRTFpicture {}

proc insertRTFpicture { fileName } {
    set realName $fileName
    if { ![file readable $realName] } {
	set realName "${fileName}.BMP"
	if { ![file readable $realName] } {
	    set realName "${fileName}.bmp"
	}
    }
    rtf:insertField " INCLUDEPICTURE \"${realName}\" " ""
    return 1
}
