8 lines
235 B
Tcl
8 lines
235 B
Tcl
package require Ffidl
|
|
|
|
if {[catch {
|
|
ffidl::callout OpenImage {pointer-utf8} int [ffidl::symbol fakeimglib.so openimage]
|
|
}]} then {
|
|
# Create the OpenImage command by other means here...
|
|
}
|
|
set handle [OpenImage "/the/file/name"]
|