使用 J，有没有办法在选项卡中绘制 isigraph？

Question

我正在尝试在选项卡中绘制 isigraph。

到目前为止，我有以下代码（我从 gl2 和选项卡演示中修改）：

NB. =========================================================
Tabdemo=: 0 : 0
pc tabdemo closeok escclose;
cc prefs tab closable movable;

tabnew View;
minwh 450 350;
cc gs isigraph flush;
bin s1;

tabnew Editor;
cc gross radiobutton;
cc paid checkbox;
bin z s1 z;

tabend;
)

NB. =========================================================
tabdemo_run=: 3 : 0
require 'gl2'
coinsert 'jgl2'
wd Tabdemo
wd 'set prefs active 0'
wd 'set prefs tooltip 0 "toolip view"'
wd 'set prefs tooltip 1 "toolip editor"'
wd 'set prefs icon 0 qstyle::sp_fileicon'
wd 'set prefs icon 1 qstyle::sp_diropenicon'
wd 'pmove 400 10 400 200'
wd 'pshow'
)

NB. =========================================================
demo_gs_paint=: 3 : 0
'w h'=: glqwh''
NB. draw grid
glfill 255 255 255 255
glrgb 128 128 18
glpen 0 1
for_i. 50* i.>.h%50 do.
  gllines 0,i,w,i
end.
for_i. 50* i.>.w%50 do.
  gllines i,0,i,h
end.
)

NB. =========================================================
tabdemo_prefs_tabclose=: 3 : 0
wd 'set prefs tabclose ',prefs_select
)

NB. =========================================================
tabdemo_close=: 3 : 0
wd 'pclose'
showevents_jqtide_ 0
)

showevents_jqtide_ 2
tabdemo_run''

当我运行脚本时，我希望在 "View" 选项卡下看到网格图。

但是，不幸的是，我在“视图”选项卡上看到了一个空白屏幕。我有什么地方做错了吗，还是根本无法在选项卡中绘制 isigraph？

我已无计可施，无法完成这项工作。任何帮助，将不胜感激！谢谢！

Answer 1

pc tabdemo closeok escclose; 创建父对象，cc gs isagraph flush; 创建该父对象的子对象并运行绘制以填充选项卡。不幸的是，您只创建了动词 demo_gs_paint 而不是您要绘制的对象的名称。

指定对象的形式是parent_child_verb，父对象是tabdemo，所以正确答案是创建动词tabdemo_gs_paint，它会被适当地调用。对您上述问题的回应证实了这一点。

使用 J，有没有办法在选项卡中绘制 isigraph？

Using J, is there any way to draw an isigraph within a tab?

j