view.sml

### VIEW.SML
### Sample script for Building Dialogs in SML

### Creates and opens a standard View window
### and displays a selected raster.

### Define class instances used in procedures.
class GRE_GROUP gp; 		# spatial group for display.
class XmForm vwin;		# parent form for window.

### Define procedure to close window.
# Called when user clicks on the "X" close button on the title bar.
proc OnClose(class widget widget) {
	DestroyWidget(vwin);
	GroupDestroy(gp);
}

### Define procedure called when dialog is destroyed.
# Can be either by the "Close" menu item or by us
# calling DestroyWidget() above.
proc OnDestroy() {
	Exit();
}

##################################
### Main program
##################################
raster R;
GetInputRaster(R);

# Create group to be shown in View window.
gp = GroupCreate();	 

# Create parent form for View and add callbacks
# for procedures defined above.
vwin = CreateFormDialog("Sample View Window");
WidgetAddCallback(vwin.Shell.PopdownCallback, OnClose);
WidgetAddCallback(vwin.DestroyCallback, OnDestroy);

class GRE_VIEW view;		# Create view to display the group.
view = GroupCreateView(gp,vwin,"",360,280,
	"NoScalePosLine,DestroyOnClose");

GroupQuickAddRasterVar(gp,R);		# Add raster to group.

DialogOpen(vwin);			# Open view and redraw full.
ViewRedrawFull(view);

WaitForExit();