{"id":1032,"date":"2013-01-10T11:20:06","date_gmt":"2013-01-10T10:20:06","guid":{"rendered":"http:\/\/kamar-cnc.pl\/?page_id=1032"},"modified":"2013-01-10T11:23:20","modified_gmt":"2013-01-10T10:23:20","slug":"checkboxy-w-ngcgui","status":"publish","type":"page","link":"http:\/\/kamar-cnc.pl\/?page_id=1032","title":{"rendered":"Checkboxy w NGCGUI"},"content":{"rendered":"<p>Zmiany robimy w pliku: <strong>usr\/lib\/tcltk\/linuxcnc\/ngcgui.tcl<\/strong><\/p>\n<p>Najpierw zmiana opcjonalna &#8211; wy\u0142\u0105czenie numerk\u00f3w przed ptaszkami i przyci\u0105gni\u0119cie ptaszk\u00f3w do lewej:<\/p>\n<p>Szukamy (w okolicy linii 1574):<\/p>\n<div class=\"codecolorer-container tcl twitlight\" style=\"overflow:auto;white-space:nowrap;width:435px;\"><div class=\"tcl codecolorer\"><span class=\"kw1\">set<\/span> l <span class=\"br0\">&#91;<\/span>label <span class=\"re0\">$fdata<\/span>.<span class=\"br0\">&#91;<\/span>qid<span class=\"br0\">&#93;<\/span> -text <span class=\"br0\">&#91;<\/span><span class=\"kw2\">format<\/span> <span class=\"sy0\">%<\/span>#2d <span class=\"re0\">$onum<\/span><span class=\"br0\">&#93;<\/span> -anchor e \\<br \/>\n&nbsp; &nbsp;-takefocus <span class=\"nu0\">0<\/span> -relief ridge -width <span class=\"nu0\">2<\/span><span class=\"br0\">&#93;<\/span><br \/>\npack <span class=\"re0\">$l<\/span> -side left -fill x -expand <span class=\"nu0\">0<\/span><\/div><\/div>\n<p>i wstawiamy w to w ifa &#8211; czyli zast\u0119pujemy tym:<\/p>\n<div class=\"codecolorer-container tcl twitlight\" style=\"overflow:auto;white-space:nowrap;width:435px;\"><div class=\"tcl codecolorer\"><span class=\"kw1\">if<\/span> <span class=\"br0\">&#123;<\/span><span class=\"br0\">&#91;<\/span><span class=\"kw2\">string<\/span> first <span class=\"st0\">&quot;&lt;&gt; &quot;<\/span> <span class=\"sy0\">$<\/span>::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span><span class=\"re0\">$hdl<\/span>,arg,<span class=\"kw3\">comment<\/span>,<span class=\"re0\">$num02<\/span><span class=\"br0\">&#41;<\/span><span class=\"br0\">&#93;<\/span> == -<span class=\"nu0\">1<\/span><span class=\"br0\">&#125;<\/span> <span class=\"br0\">&#123;<\/span><br \/>\n&nbsp; <span class=\"kw1\">set<\/span> l <span class=\"br0\">&#91;<\/span>label <span class=\"re0\">$fdata<\/span>.<span class=\"br0\">&#91;<\/span>qid<span class=\"br0\">&#93;<\/span> -text <span class=\"br0\">&#91;<\/span><span class=\"kw2\">format<\/span> <span class=\"sy0\">%<\/span>#2d <span class=\"re0\">$onum<\/span><span class=\"br0\">&#93;<\/span> -anchor e \\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; -takefocus <span class=\"nu0\">0<\/span> -relief ridge -width <span class=\"nu0\">2<\/span><span class=\"br0\">&#93;<\/span><br \/>\n&nbsp; pack <span class=\"re0\">$l<\/span> -side left -fill x -expand <span class=\"nu0\">0<\/span><br \/>\n<span class=\"br0\">&#125;<\/span><\/div><\/div>\n<p>A teraz zmiana obowi\u0105zkowa &#8211; czyli podmiana pola tekstowego na ptaszka:<\/p>\n<p>Wyszukujemy tego kawa\u0142ka w okolicy linii 1588:<\/p>\n<div class=\"codecolorer-container tcl twitlight\" style=\"overflow:auto;white-space:nowrap;width:435px;\"><div class=\"tcl codecolorer\"><span class=\"kw1\">set<\/span> e <span class=\"br0\">&#91;<\/span>entry <span class=\"re0\">$fdata<\/span>.<span class=\"br0\">&#91;<\/span>qid<span class=\"br0\">&#93;<\/span> \\<br \/>\n&nbsp; -width <span class=\"re0\">$ew<\/span> \\<br \/>\n&nbsp; -font <span class=\"sy0\">$<\/span>::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span>any,font<span class=\"br0\">&#41;<\/span> \\<br \/>\n&nbsp; -textvariable <span class=\"re0\">$tvar<\/span>\\<br \/>\n&nbsp; -validate &nbsp; &nbsp; all\\<br \/>\n&nbsp; -validatecommand \\<br \/>\n&nbsp; <span class=\"br0\">&#91;<\/span><span class=\"kw2\">list<\/span> ::<span class=\"me1\">ngcgui<\/span>::<span class=\"me1\">validateNumber<\/span> <span class=\"re0\">$hdl<\/span> <span class=\"re0\">$tvar<\/span> <span class=\"sy0\">%<\/span>W <span class=\"sy0\">%<\/span>s <span class=\"sy0\">%<\/span>P<span class=\"br0\">&#93;<\/span><span class=\"br0\">&#93;<\/span><\/div><\/div>\n<p>i te\u017c dodajemy ifa &#8211; ale z generowaniem ptaszka &#8211; czyli zamieniamy na cos takiego:<\/p>\n<div class=\"codecolorer-container tcl twitlight\" style=\"overflow:auto;white-space:nowrap;width:435px;\"><div class=\"tcl codecolorer\"><span class=\"kw1\">if<\/span> <span class=\"br0\">&#123;<\/span><span class=\"br0\">&#91;<\/span><span class=\"kw2\">string<\/span> first <span class=\"st0\">&quot;&lt;&gt; &quot;<\/span> <span class=\"sy0\">$<\/span>::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span><span class=\"re0\">$hdl<\/span>,arg,<span class=\"kw3\">comment<\/span>,<span class=\"re0\">$num02<\/span><span class=\"br0\">&#41;<\/span><span class=\"br0\">&#93;<\/span> <span class=\"sy0\">!<\/span>= -<span class=\"nu0\">1<\/span><span class=\"br0\">&#125;<\/span> <span class=\"br0\">&#123;<\/span><br \/>\n&nbsp; <span class=\"kw1\">set<\/span> ::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span><span class=\"re0\">$hdl<\/span>,arg,<span class=\"kw3\">comment<\/span>,<span class=\"re0\">$num02<\/span><span class=\"br0\">&#41;<\/span> <span class=\"br0\">&#91;<\/span><span class=\"kw2\">string<\/span> range <span class=\"sy0\">$<\/span>::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span><span class=\"re0\">$hdl<\/span>,arg,<span class=\"kw3\">comment<\/span>,<span class=\"re0\">$num02<\/span><span class=\"br0\">&#41;<\/span> <span class=\"nu0\">3<\/span> <span class=\"nu0\">1000<\/span><span class=\"br0\">&#93;<\/span><br \/>\n&nbsp; <span class=\"kw1\">set<\/span> e <span class=\"br0\">&#91;<\/span>checkbutton <span class=\"re0\">$fdata<\/span>.<span class=\"br0\">&#91;<\/span>qid<span class=\"br0\">&#93;<\/span> -anchor w -font <span class=\"sy0\">$<\/span>::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span>any,font<span class=\"br0\">&#41;<\/span> \\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; -<span class=\"kw1\">variable<\/span> ::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span><span class=\"re0\">$hdl<\/span>,arg,value,<span class=\"re0\">$num<\/span><span class=\"br0\">&#41;<\/span><span class=\"br0\">&#93;<\/span><br \/>\n<span class=\"br0\">&#125;<\/span> <span class=\"kw1\">else<\/span> <span class=\"br0\">&#123;<\/span><br \/>\n&nbsp; &nbsp;<span class=\"kw1\">set<\/span> e <span class=\"br0\">&#91;<\/span>entry <span class=\"re0\">$fdata<\/span>.<span class=\"br0\">&#91;<\/span>qid<span class=\"br0\">&#93;<\/span> \\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -width <span class=\"re0\">$ew<\/span> \\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -font <span class=\"sy0\">$<\/span>::<span class=\"me1\">ngc<\/span><span class=\"br0\">&#40;<\/span>any,font<span class=\"br0\">&#41;<\/span> \\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -textvariable <span class=\"re0\">$tvar<\/span>\\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -validate &nbsp; &nbsp; all\\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -validatecommand \\<br \/>\n&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class=\"br0\">&#91;<\/span><span class=\"kw2\">list<\/span> ::<span class=\"me1\">ngcgui<\/span>::<span class=\"me1\">validateNumber<\/span> <span class=\"re0\">$hdl<\/span> <span class=\"re0\">$tvar<\/span> <span class=\"sy0\">%<\/span>W <span class=\"sy0\">%<\/span>s <span class=\"sy0\">%<\/span>P<span class=\"br0\">&#93;<\/span><span class=\"br0\">&#93;<\/span><br \/>\n<span class=\"br0\">&#125;<\/span><\/div><\/div>\n<p>I ju\u017c.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Zmiany robimy w pliku: usr\/lib\/tcltk\/linuxcnc\/ngcgui.tcl Najpierw zmiana opcjonalna &#8211; wy\u0142\u0105czenie numerk\u00f3w przed ptaszkami i przyci\u0105gni\u0119cie ptaszk\u00f3w do lewej: Szukamy (w okolicy linii 1574): set l &#91;label $fdata.&#91;qid&#93; -text &#91;format %#2d $onum&#93; -anchor e \\ &nbsp; &nbsp;-takefocus 0 -relief ridge -width &hellip; <a href=\"http:\/\/kamar-cnc.pl\/?page_id=1032\">Czytaj dalej <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"parent":964,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-1032","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/pages\/1032","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/pages"}],"about":[{"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1032"}],"version-history":[{"count":5,"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/pages\/1032\/revisions"}],"predecessor-version":[{"id":1037,"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/pages\/1032\/revisions\/1037"}],"up":[{"embeddable":true,"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=\/wp\/v2\/pages\/964"}],"wp:attachment":[{"href":"http:\/\/kamar-cnc.pl\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1032"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}