OK 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
          ]
      ]
  ]