[原创]EDA 资料分享

护花使者

[原创]EDA 资料分享 [复制链接]

defun( gfe_HelloWorld ()
prog( ()
    mark = axlDBTransactionStart()
    axlControlRaise('options)
    HelloWorld_form_file = "./HelloWorld.form"
    _createForm_HelloWorld()
    HelloWorld_Form = axlMiniStatusLoad( (gensym) HelloWorld_form_file nil t)
    ;axlFormTest(HelloWorld_form_file)
    if(isFile(HelloWorld_form_file)
        deleteFile(HelloWorld_form_file)
    );endif
    mypopup = axlUIPopupDefine( axlUIGetUserData()->popupId
                        (list (list "gfe_Done" 'gfe_FinishEnterFun)
                        (list "gfe_Cancel" 'gfe_CancelEnterFun)))
    axlUIPopupSet(mypopup)
    axlSetFindFilter( ?enabled (list "symbols" )
                    ?onButtons (list "symbols" ))
    while( axlSelect() axlHighlightObject(axlGetSelSet()))
;    while( axlSelect() axlDeleteObject(axlGetSelSet()))
    (case axlUIGetUserData()->doneState
        (done
            axlDBTransactionCommit(mark)
            axlUIWPrint(nil "done !!!")
        ); end info
        (cancel
            axlUIWPrint(nil "cancel !!!")
        ); end close
    ); end case
    axlUIWPrint(nil "ending !!!")
); end prog
); end defun
;********************************************************************************
;; gfe_done
defun( gfe_FinishEnterFun ()
    axlUIWPrint(nil "gfe_Done!!!")
;    axlFinishEnterFun()
)
;; gfe_cancel
defun( gfe_CancelEnterFun ()
    axlUIWPrint(nil "gfe_Cancel!!!")
;    axlCancelEnterFun()