set imagemenu_items {
GuidoMenuItem item1 {
-label "Drape an image file over a DTM"
-icon "icons/16/image_drape.png"
-command server "IMAGE DRAPE"
}
GuidoMenuItem item2 {
-label "View an image"
-icon "icons/16/image_view.png"
-command server "IMAGE VIEW"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item3 {
-label "Save an image"
-icon "icons/16/gif_dump.png"
-command server "GIF DUMP"
}
GuidoMenuItem item4 {
-label "Save postscript image"
-command server "POSTSCRIPT DUMP"
}
}
GuidoMenu imagesmenu {
-label "Images"
-delayed_script $imagemenu_items
}
