Return to example.rpl CVS log

Up to [local] / rpl / modules / motif

Patches pour motif.

    1: #!/home/bertrand/cvs/build/src/rpl -spdc
    2: 
    3: MOTIF
    4: <<
    5:     "motif.rplso" use
    6:     -> MOTIF
    7:     <<
    8:         APPLICATION
    9:         MOTIF remove
   10:     >>
   11: 
   12:     clmf
   13: >>
   14: 
   15: 
   16: APPLICATION
   17: <<
   18:     "none" implicit
   19: 
   20:     "Test application" XtAppInitialize
   21:     -> XT_APP TOPLEVEL_WIDGET
   22:     <<
   23:         0 0 0 0 0 0 0
   24:         -> MAIN_WIDGET FRAME_1 FORM_1 LABEL_1 SEP_1 BOUTON_1 BOUTON_2
   25:         <<
   26: 
   27:             "toplevel" "xmFormWidgetClass" TOPLEVEL_WIDGET
   28:             { { "XmNresizeWidth" XmTrue }
   29:               { "XmNresizeHeight" XmTrue } }
   30:             XtCreateWidget 'MAIN_WIDGET' sto
   31: 
   32:             "frame_1" "xmFrameWidgetClass" MAIN_WIDGET
   33:             { { "XmNtopAttachment" XmATTACH_FORM }
   34:               { "XmNbottomAttachment" XmATTACH_FORM  }
   35:               { "XmNleftAttachment" XmATTACH_FORM }
   36:               { "XmNrightAttachment" XmATTACH_FORM }
   37:               { "XmNtopOffset" 5 }
   38:               { "XmNleftOffset" 5 }
   39:               { "XmNrightOffset" 5 }
   40:               { "XmNbottomOffset" 5 }
   41:               { "XmNmarginWidth" 5 }
   42:               { "XmNmarginHeight" 5 } }
   43:             XtCreateWidget 'FRAME_1' sto
   44: 
   45:             "form_1" "xmFormWidgetClass" FRAME_1
   46:             { } XtCreateWidget 'FORM_1' sto
   47: 
   48:             "label_1" "xmLabelWidgetClass" FORM_1
   49:             { { "XmNlabelString" "Hello, world !" }
   50:               { "XmNlabelType" XmSTRING } }
   51:             XtCreateWidget 'LABEL_1' sto
   52: 
   53:             "separateur_1" "xmSeparatorWidgetClass" FORM_1
   54:             { { "XmNorientation" XmHORIZONTAL }
   55:               { "XmNtopAttachment" XmATTACH_WIDGET }
   56:               { "XmNtopWidget" LABEL_1 }
   57:               { "XmNleftAttachment" XmATTACH_FORM }
   58:               { "XmNrightAttachment" XmATTACH_FORM }
   59:               { "XmNtopOffset" 2 } }
   60:             XtCreateWidget 'SEP_1' sto
   61: 
   62:             "bouton_1" "xmPushButtonWidgetClass" FORM_1
   63:             { { "XmNtopWidget" SEP_1 }
   64:               { "XmNtopAttachment" XmATTACH_WIDGET }
   65:               { "XmNtopOffset" 2 }
   66:               { "XmNlabelString" "Quitter" }
   67:               { "XmNlabelType" XmSTRING } }
   68:             XtCreateWidget 'BOUTON_1' sto
   69: 
   70:             "bouton_2" "xmPushButtonWidgetClass" FORM_1
   71:             { { "XmNleftWidget" BOUTON_1 }
   72:               { "XmNtopWidget" SEP_1 }
   73:               { "XmNleftAttachment" XmATTACH_WIDGET }
   74:               { "XmNtopAttachment" XmATTACH_WIDGET }
   75:               { "XmNtopOffset" 2 }
   76:               { "XmNlabelString" " Popup " }
   77:               { "XmNlabelType" XmSTRING } }
   78:             XtCreateWidget 'BOUTON_2' sto
   79: 
   80:             /*
   81:             BOUTON_1 "XmNactivateCallback" << motif$XtAppExitMainLoop >>
   82:             XtAddCallback
   83: 
   84:             BOUTON_2 "XmNactivateCallback" 'F_POPUP'
   85:             XtAddCallback
   86:             */
   87: 
   88:             "popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
   89:             XtCreatePopupShell dup 'POPUP' save
   90: 
   91:             "popup_Form_1" "xmFormWidgetClass" rot
   92:             { { "XmNresizeWidth" XmTrue }
   93:               { "XmNresizeHeight" XmTrue } }
   94:             XtCreateWidget
   95: 
   96:             "popup_Frame_1" "xmFrameWidgetClass" rot
   97:             { { "XmNtopAttachment" XmATTACH_FORM }
   98:               { "XmNbottomAttachment" XmATTACH_FORM }
   99:               { "XmNleftAttachment" XmATTACH_FORM }
  100:               { "XmNrightAttachment" XmATTACH_FORM }
  101:               { "XmNtopOffset" 5 }
  102:               { "XmNleftOffset" 5 }
  103:               { "XmNrightOffset" 5 }
  104:               { "XmNbottomOffset" 5 }
  105:               { "XmNmarginWidth" 5 }
  106:               { "XmNmarginHeight" 5 } }
  107:             XtCreateWidget
  108: 
  109:             "popup_Form_2" "xmFormWidgetClass" rot
  110:             { } XtCreateWidget
  111: 
  112:             "popup_bouton" "xmPushButtonWidgetClass" rot
  113:             { { "XmNlabelString" "Quitter" }
  114:               { "XmNtopAttachment" XmATTACH_FORM }
  115:               { "XmNbottomAttachment" XmATTACH_FORM }
  116:               { "XmNleftAttachment" XmATTACH_FORM }
  117:               { "XmNrightAttachment" XmATTACH_FORM }
  118:               { "XmNlabelType" XmSTRING } }
  119:             XtCreateWidget
  120: 
  121:             /*
  122:             "XmNactivateCallback" 'POPUP_QUIT' motif$XtAddCallback
  123:             */
  124: 
  125:             TOPLEVEL_WIDGET XtRealizeWidget
  126: 
  127:             "Boucle Xm" disp
  128: 
  129:             XT_APP XtAppMainLoop
  130:         >>
  131:     >>
  132: >>