ui_menu.c

seismic software,very useful

                                     NULL, XmNradioBehavior, True,
                                     XmNradioAlwaysOne, True, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtVaSetValues(list[COLOR_OVERLAY], XmNset, True, NULL);

    ui->menu1 =
        XmVaCreateSimplePulldownMenu(ui->menu, "background", 10,
                                     (XtCallbackProc) UIBackgroundChoice,
                                     XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Redish"), NULL, NULL,
                                     NULL, XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Greenish"), NULL,
                                     NULL, NULL, XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Light Gray"), NULL,
                                     NULL, NULL, XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Dark Gray"), NULL,
                                     NULL, NULL, XmNradioBehavior, True,
                                     XmNradioAlwaysOne, True, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtVaSetValues(list[COLOR_BACKGROUND], XmNset, True, NULL);

    ui->menu1 =
        XmVaCreateSimplePulldownMenu(ui->menu, "mark", 9,
                                     (XtCallbackProc) UIMarkChoice,
                                     XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Red"), NULL, NULL,
                                     NULL, XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Green"), NULL, NULL,
                                     NULL, XmVaRADIOBUTTON,
                                     XmStringCreateSimple("White"), NULL, NULL,
                                     NULL, XmVaRADIOBUTTON,
                                     XmStringCreateSimple("Black"), NULL, NULL,
                                     NULL, XmNradioBehavior, True,
                                     XmNradioAlwaysOne, True, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtVaSetValues(list[COLOR_MARK], XmNset, True, NULL);

    ui->menu = XmVaCreateSimplePulldownMenu(ui->menuBar, "picks", ibar++, NULL,
                                            XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Show/Hide picks"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Select pickset"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Write to file"), NULL, NULL, NULL,
                                            XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Read from file"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Increase range"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Decrease range"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Increase draw size"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Decrease draw size"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Clear current picks"), NULL, NULL,
                                            NULL, XmVaTITLE,
                                            XmStringCreateSimple
                                            ("RIGHT MOUSE MAKES PICK"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 'a' KEY ADDS POINT"), XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 'e' KEY ADDS POINT AT EDGE"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 'n' KEY MOVES NEAREST POINT TO EDGE"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 'm' KEY MOVES NEAREST POINT"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 'd' KEY DELETES NEAREST POINT"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 'q' or '?' KEY INQUIRES NEAREST POINT"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("+ 's' KEY SELECTS SMOOTH REGION"),
                                            NULL);
    XtVaGetValues(ui->menu, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) ViewTogglePick, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) UIPikSelect, NULL);
    XtAddCallback(list[2], XmNactivateCallback, (XtCallbackProc) UIPikWrite,
                  NULL);
    XtAddCallback(list[3], XmNactivateCallback, (XtCallbackProc) UIPikRead,
                  NULL);
    XtAddCallback(list[4], XmNactivateCallback,
                  (XtCallbackProc) PikIncreaseRange, NULL);
    XtAddCallback(list[5], XmNactivateCallback,
                  (XtCallbackProc) PikDecreaseRange, NULL);
    XtAddCallback(list[6], XmNactivateCallback,
                  (XtCallbackProc) PikIncreaseSize, NULL);
    XtAddCallback(list[7], XmNactivateCallback,
                  (XtCallbackProc) PikDecreaseSize, NULL);
    XtAddCallback(list[8], XmNactivateCallback,
                  (XtCallbackProc) PikClear, NULL);

    ui->menu = XmVaCreateSimplePulldownMenu(ui->menuBar, "edit", ibar++, NULL,
                                            XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Clear Blob Pick"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Fill Blob With Edge Value"), NULL,
                                            NULL, NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Undo Blob Fill"), NULL, NULL,
                                            NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Interpolate Current Cube Edge Values Across Cube"),
                                            NULL, NULL, NULL, XmVaPUSHBUTTON,
                                            XmStringCreateSimple
                                            ("Undo Cube Edge Interpolation"),
                                            NULL, NULL, NULL, XmVaTITLE,
                                            XmStringCreateSimple
                                            ("'s' KEY + RIGHT MOUSE DRAG PICKS SUBVOL"),
                                            XmVaTITLE,
                                            XmStringCreateSimple
                                            ("SET SMOOTH VALUE FROM COLORBAR"),
                                            NULL);
    XtVaGetValues(ui->menu, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) UIPickClear, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) UISubvolumeSmooth, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) UISmoothUndo, NULL);
    XtAddCallback(list[3], XmNactivateCallback,
                  (XtCallbackProc) UIEditGrade, NULL);
    XtAddCallback(list[4], XmNactivateCallback,
                  (XtCallbackProc) UIGradeUndo, NULL);
    ui->menu =
        XmVaCreateSimplePulldownMenu(ui->menuBar, "sections", ibar++, NULL,
                                     XmVaCASCADEBUTTON,
                                     XmStringCreateSimple
                                     ("On screen wiggle plot"), NULL,
                                     XmVaCASCADEBUTTON,
                                     XmStringCreateSimple
                                     ("On screen contour plot"), NULL,
                                     XmVaCASCADEBUTTON,
                                     XmStringCreateSimple
                                     ("On screen profile graph"), NULL,
                                     XmVaCASCADEBUTTON,
                                     XmStringCreateSimple("Print wiggle plot"),
                                     NULL, XmVaCASCADEBUTTON,
                                     XmStringCreateSimple("Print contour plot"),
                                     NULL, XmVaCASCADEBUTTON,
                                     XmStringCreateSimple
                                     ("Print profile graph"), NULL,
                                     XmVaCASCADEBUTTON,
                                     XmStringCreateSimple
                                     ("Save section in file"), NULL,
                                     XmVaCASCADEBUTTON,
                                     XmStringCreateSimple
                                     ("Save profile in file"), NULL, XmVaTITLE,
                                     XmStringCreateSimple
                                     ("CROSS HAIRS SET PLANES & PROFILES"),
                                     NULL);
    ui->menu1 =
        XmVaCreateSimplePulldownMenu(ui->menu, "wiggle", 0, NULL,
                                     XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Front"), NULL, NULL,
                                     NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Side"), NULL, NULL,
                                     NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Top"), NULL, NULL,
                                     NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) PlotFrontWiggle, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) PlotSideWiggle, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) PlotTopWiggle, NULL);

    /*-------------------------------------------------*/
    /* disable wiggle plots in amplitude-velocity mode */
    /*-------------------------------------------------*/

    if( data->overlay_mode ){
        XtVaGetValues(ui->menu, XmNchildren, &list, NULL);
        XtSetSensitive( list[0] ,False );
    }

    ui->menu1 = XmVaCreateSimplePulldownMenu(ui->menu, "contour", 1, NULL,
                                             XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Front"),
                                             NULL, NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Side"), NULL,
                                             NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Top"), NULL,
                                             NULL, NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) PlotFrontContour, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) PlotSideContour, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) PlotTopContour, NULL);
    ui->menu1 = XmVaCreateSimplePulldownMenu(ui->menu, "profile", 2, NULL,
                                             XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Down"), NULL,
                                             NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Across"),
                                             NULL, NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Deep"), NULL,
                                             NULL, NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) PlotDownProfile, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) PlotAcrossProfile, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) PlotDeepProfile, NULL);
    ui->menu1 = XmVaCreateSimplePulldownMenu(ui->menu, "prwiggle", 3, NULL,
                                             XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Front"),
                                             NULL, NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Side"), NULL,
                                             NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Top"), NULL,
                                             NULL, NULL, NULL);

    /*--------------------------------------------------*/
    /* disable wiggle prints in amplitude-velocity mode */
    /*--------------------------------------------------*/

    if( data->overlay_mode ){
        XtVaGetValues(ui->menu, XmNchildren, &list, NULL);
        XtSetSensitive( list[3] ,False );
    }

    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) PrintFrontWiggle, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) PrintSideWiggle, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) PrintTopWiggle, NULL);
    ui->menu1 = XmVaCreateSimplePulldownMenu(ui->menu, "prcontour", 4, NULL,
                                             XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Front"),
                                             NULL, NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Side"), NULL,
                                             NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Top"), NULL,
                                             NULL, NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) PrintFrontContour, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) PrintSideContour, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) PrintTopContour, NULL);
    ui->menu1 = XmVaCreateSimplePulldownMenu(ui->menu, "prprofile", 5, NULL,
                                             XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Down"), NULL,
                                             NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Across"),
                                             NULL, NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Deep"), NULL,
                                             NULL, NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) PrintDownProfile, NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) PrintAcrossProfile, NULL);
    XtAddCallback(list[2], XmNactivateCallback,
                  (XtCallbackProc) PrintDeepProfile, NULL);
    ui->menu1 = XmVaCreateSimplePulldownMenu(ui->menu, "savecontour", 6, NULL,
                                             XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Front"),
                                             NULL, NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Side"), NULL,
                                             NULL, NULL, XmVaPUSHBUTTON,
                                             XmStringCreateSimple("Top"), NULL,
                                             NULL, NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback,
                  (XtCallbackProc) UISaveFront, NULL);
    XtAddCallback(list[1], XmNactivateCallback, (XtCallbackProc) UISaveSide,
                  NULL);
    XtAddCallback(list[2], XmNactivateCallback, (XtCallbackProc) UISaveTop,
                  NULL);
    ui->menu1 =
        XmVaCreateSimplePulldownMenu(ui->menu, "prprofile", 7, NULL,
                                     XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Down"), NULL, NULL,
                                     NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Across"), NULL, NULL,
                                     NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Deep"), NULL, NULL,
                                     NULL, NULL);
    XtVaGetValues(ui->menu1, XmNchildren, &list, NULL);
    XtAddCallback(list[0], XmNactivateCallback, (XtCallbackProc) UISaveDown,
                  NULL);
    XtAddCallback(list[1], XmNactivateCallback,
                  (XtCallbackProc) UISaveAcross, NULL);
    XtAddCallback(list[2], XmNactivateCallback, (XtCallbackProc) UISaveDeep,
                  NULL);
    ui->menu =
        XmVaCreateSimplePulldownMenu(ui->menuBar, "status", ibar++,
                                     (XtCallbackProc) UIStatusChoice,
                                     XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Dataset"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Values"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Axis0"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Axis1"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Axis2"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Axis3"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Axis4"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Data Axis5"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Style"), NULL, NULL,
                                     NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Down Axis"), NULL,
                                     NULL, NULL, XmVaPUSHBUTTON,
                                     XmStringCreateSimple("Across Axis"), NULL,