3 ms·
This is a (near) duplicate of a comment you made 302 days ago! - https://news.ycombinator.com/item?id=7069311 https://news.ycombinator.com/item?id=7069311
by draegtun 12y ago
This is a (near) duplicate of a comment you made 302 days ago! - https://news.ycombinator.com/item?id=7069311 https://news.ycombinator.com/item?id=7069311
- kingmanaz 12y agoYup. Still stands.
- draegtun 12y agoOK but if you copy/paste those lines again it might be worth fixing that "Pearl" typo :) Since we've gone off-topic I thought it might be good to post the same Rebol code from that old thread but updated to use the new R3-GUI dialect: Rebol [ title: "Feet to Metres" ] load-gui ;; needed while r3-gui is in beta convert-to-metres: func [in-feet] [ (round 0.3048 * in-feet * 10000.0) / 10000.0 ] default-feet: 1 stylize [ end-label: label [ facets: [align: 'left] ] ] view [ hpanel 3 [ pad feet: field 80 (to-string default-feet) end-label "feet" text "is equivalent to" in-metres: text (to-string convert-to-metres default-feet) end-label "metres" pad pad button "calculate" on-action [ set-face in-metres to-string convert-to-metres to-decimal get-face feet ] ] ]