发现一个 lisp 里的bug

aeo · 发表于 2016-7-14 23:18:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 aeo 于 2016-7-14 23:39 编辑

这个bug是在偶然发现的：
dcl:
imagebutton
如果它的绘制里面有 mode_tile ,那就会出错
比如你写
(action-tile "img0" "(test)")
.......
.
(defun test()
  (start_image  "img0"）
......
(end_image)
)
这样什么事情都没有.

==================================
那我这么写
(defun test()
  (start_image  "img0"）
......
(end_image)
(mode_tile "textbox" 2) ;;"textbox"是某个其他控件
)

这个imagebutton会变为普通button的外观,(多点几下)你要绘制的东西会绘制失败。
就算改变它自己
这么写:
(defun test()
  (mode_tile "img0" 1)
(start_image  "img0"）
......
  (end_image)
  (mode_tile "img0" 0)
)

也会出现这种情况

aeo · 发表于 2016-7-14 23:30:21

本帖最后由 aeo 于 2016-7-14 23:35 编辑

imagebutton button cad的dcl搞的很怪，
鼠标点下会绘制一遍，鼠标抬起又绘制一遍。

你以为结束了，
当你点到其他控件是它又自绘一遍。
这个过程中好像不能改变焦点，一改变它就不能绘制了，就成底色了，自绘失败，露出button来了

newer · 发表于 2016-7-14 23:48:54

不用DCL好多年，AEO为什么不用OPENDCL呢？

WhoCanSay · 发表于 2016-7-15 09:15:37

newer 发表于 2016-7-14 23:48
不用DCL好多年，AEO为什么不用OPENDCL呢？

尽管odl强大，但加载的东西太多、太麻烦，你不觉得光溜溜的更好么？

账号		自动登录	找回密码
密码			立即注册

[研讨] 发现一个 lisp 里的bug

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评