Return to example.rpl CVS log

Up to [local] / rpl / modules / motif

Patches pour modules/motif.

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