roi is currently ignored.
string new: `title' string_format=`Dilation using 1 structuring element' = `cross3x3' ;
environment new: sunvision variable="SUNVISION" ;
string new: sel_dir = [sunvision value?] + "/ip/sel"; string new: `first_sel' = sel_dir + `/' + `cross3x3';
sv_ip_sel new: sel filename= first_sel ;
sv_ip_dilate new: dilate data_in=`car_ip' sel=`sel' ;
sv_ip_display new: image data_in=`dilate' title= title render! ;
motif create!;
motif_file_selection_box new: fsb parent=motif @ `directory' : sel_dir @ `pattern' : "*" ok_action=`render' create! ;
actions new: `render' tick_actions=` sel destroy! filename=[fsb @ `dirSpec' string_value?] ;
title = [fsb @ `dirSpec' string_value?] - [sunvision value?] - `/ip/sel/' ; object # [image window?] store_name: title; image render!; ' ;
motif on! start!;