求助，form的关闭执行不正常！

ghfghyb

以下是通过form工具生成的form代码！发现一个问题！
当程序按下OK时，在allegro中输出为：*****OK*******
但是当关闭此插件时在allegro中输出也是：*****OK*******
执行的两个地方如图所示！！
求大神帮助！！！！

1. axlCmdRegister("zz1" 'my_form)
   
2. 
   
3. (defun my_form ()
   
4.                         time = getCurrentTime()
   
5.                         time = parseString(time)
   
6.                         day = nth(1 time)
   
7.                         month = car(time)
   
8.                         month = upperCase(month)
   
9.                         year = nth(3 time)
   
10.                         date = strcat(" Date: " day " " month " " year)
    
11.                          CreateForm()
    
12.                         myform=axlFormCreate( (gensym) form_file nil 'Form_Action t)
    
13.                         axlFormDisplay(myform)
    
14.                         axlUIWPrint(myform date)
    
15. 
    
16.                 )
    
17. 
    
18. 
    
19. (defun CreateForm ()
    
20. drain()
    
21. form_file = "creat_shape1_form.form"
    
22. myform = outfile(form_file "w")
    
23. fprintf(myform "#Created by xml2bnf  perl utility\n")
    
24. fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
    
25. fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
26. fprintf(myform "FORM AUTOGREYTEXT\n")
    
27. fprintf(myform "FIXED\n")
    
28. fprintf(myform "PORT 28 24\n")
    
29. fprintf(myform "HEADER \"Form Field Type Demo\"\n\n")
    
30. 
    
31. fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
    
32. fprintf(myform "TILE\n\n")
    
33. 
    
34. fprintf(myform "## Button Field in FORM ## \n")
    
35. fprintf(myform "FIELD OK\n")
    
36. fprintf(myform "FLOC 5 17\n")
    
37. fprintf(myform "MENUBUTTON \"OK\" 8 3\n")
    
38. fprintf(myform "FGROUP \"Form1\"\n")
    
39. fprintf(myform "ENDFIELD \n\n")
    
40. 
    
41. fprintf(myform "## Button Field in FORM ## \n")
    
42. fprintf(myform "FIELD Exit\n")
    
43. fprintf(myform "FLOC 15 17\n")
    
44. fprintf(myform "MENUBUTTON \"Exit\" 8 3\n")
    
45. fprintf(myform "FGROUP \"Form1\"\n")
    
46. fprintf(myform "ENDFIELD \n\n")
    
47. 
    
48. fprintf(myform "ENDTILE\n\n")
    
49. fprintf(myform "ENDFORM\n\n")
    
50. 
    
51. close(myform)
    
52. )
    
53. 
    
54. 
    
55. (defun Form_Action (myform)
    
56. (let (t1 item index field cnt)(printf "field/value %L = %L (int %L\n)"
    
57. myform->cuRField myform->curValue, myform->curValueInt )
    
58. (printf "doneState %L\n" myform->doneState )
    
59. case(myform->curField
    
60.                 ("OK"
    
61.                         printf("*****OK*******")
    
62.                 ;Button Field
    
63.                 ;Enter Action Here
    
64.                
    
65.                 )
    
66.                 ("Exit"
    
67.                         axlFormClose(myform)
    
68.                 ;Button Field
    
69.                 ;Enter Action Here
    
70.                
    
71.                 )
    
72.         )
    
73.                 )
    
74. 
    
75. if((nequal myform->doneState 0)
    
76. axlFormClose(myform))
    
77. )

复制代码

betamelody

把OK FIELD名字改掉改成myOK什么的就行了

ghfghyb

betamelody

把OK FIELD名字改掉改成myOK什么的就行了

搞定了，，，谢谢，这个问题搞了我好久！！！