default value not displayed in input box widget

[jbadham]

the gui-defaults procedure is called by startup and the other defaults (eg slider values) are displayed correctly

to gui-defaults
  xw:set "travel-rate" 0.3
  xw:set "travel-short" 0.85
  xw:set "see-distance" 3
  xw:set "numPP-persons" 5000
  xw:set "randomise?" TRUE
  xw:set "random-control" 12345
  xw:set "in-target-attitude" 0.1
  xw:set "attitude-decay" 2 
end

; construct the tabs and widgets except for communication plan
to setup-interface

  xw:clear-all

...................

  ; Operational - control

  xw:create-note "advpar-h2"
  [ xw:set-text "Operational parameters"
    xw:set-y 170
  ]

  xw:create-slider "see-distance"
  [ xw:set-label "See distance"
    xw:set-y 205
    xw:set-minimum 1
    xw:set-maximum 5
    xw:set-increment 1
  ]

  xw:create-chooser "numPP-persons"
  [ xw:set-label "Population represented by person"
    xw:set-y 265
    xw:set-items (list 1000 2000 5000 10000)
  ]

  xw:create-checkbox "randomise?"
  [ xw:set-label "Randomise?"
    xw:set-y 325
  ]

  xw:create-numeric-input "random-control"
  [ xw:set-label "Random seed value"
    xw:set-y 350
  ]