Index: trunk/doc/user/06_feature/scripting/rosetta/72_dad_unitconv/ex.lua =================================================================== --- trunk/doc/user/06_feature/scripting/rosetta/72_dad_unitconv/ex.lua (nonexistent) +++ trunk/doc/user/06_feature/scripting/rosetta/72_dad_unitconv/ex.lua (revision 20232) @@ -0,0 +1,27 @@ +function uconv() + if dad("uconv", "exists") ~= 0 then + return + end + + dad("uconv", "new") + dad("uconv", "begin_hbox") + inp = dad("uconv", "coord", 0, "100m") + dad("uconv", "onchange", "uconv_update") + dad("uconv", "begin_vbox") + res1 = dad("uconv", "label", "-") + res2 = dad("uconv", "label", "-") + res3 = dad("uconv", "label", "-") + dad("uconv", "end") + dad("uconv", "end") + dad("uconv", "run", "Unit converter", "") +end + +function uconv_update() + dad("uconv", "set", res1, dad("uconv", "get", inp, "mm") .. " mm") + dad("uconv", "set", res2, dad("uconv", "get", inp, "mil") .. " mil") + dad("uconv", "set", res3, dad("uconv", "get", inp, "inch") .. " inch") +end + +fgw_func_reg("uconv") +fgw_func_reg("uconv_update") + Index: trunk/doc/user/06_feature/scripting/rosetta/72_dad_unitconv/index.html =================================================================== --- trunk/doc/user/06_feature/scripting/rosetta/72_dad_unitconv/index.html (revision 20231) +++ trunk/doc/user/06_feature/scripting/rosetta/72_dad_unitconv/index.html (revision 20232) @@ -12,6 +12,8 @@

Example implementations

awk | +lua + | tcl

Explanation, step by step

Create a function Index: trunk/doc/user/06_feature/scripting/rosetta/index.html =================================================================== --- trunk/doc/user/06_feature/scripting/rosetta/index.html (revision 20231) +++ trunk/doc/user/06_feature/scripting/rosetta/index.html (revision 20232) @@ -49,7 +49,7 @@ 72 unit converter (GUI, interactive) - awk tcl + awk lua tcl Interactive unit converter in a dialog, created via dad().