Hi Izkata ~

thanks for trying to help - still doesn't work at all, though.
Here's what I get - anybody can make this very code work and explain 
what's up?

TIA,
Kai

================================================================
    panel1: layout[
      across
      f1: field 50 "field1"   f2: field 50 "field2"  f3: field 50 "field3"
    ]
    mainform: layout [
      below
      entrypanel:    box      panel1/size with [pane: panel1/pane ]
      clearbutton:   button   "Clear" [ clear-fields entrypanel ]
    ]
-------------------------------------------------------------------------------------------------
Button press result:  Nothing visible
================================================================
    panel1: layout[
      across
      f1: field 50 "field1"   f2: field 50 "field2"  f3: field 50 "field3"
    ]
    mainform: layout [
      below
      entrypanel:    box      panel1/size with [pane: panel1 ]
      clearbutton:   button   "Clear" [ clear-fields panel1/pane ]
    ]
-------------------------------------------------------------------------------------------------
Button press result: 
** Script Error: clear-fields expected panel argument of type: object
** Where: func [face value][clear-fields panel1/pane]
** Near: clear-fields panel1/pane
================================================================
    panel1: layout[
      across
      f1: field 50 "field1"   f2: field 50 "field2"  f3: field 50 "field3"
    ]
    mainform: layout [
      below
      entrypanel:    box      panel1/size with [pane: panel1 ]
      clearbutton:   button   "Clear" [ clear-fields entrypanel/pane ]
    ]
    view mainform

-------------------------------------------------------------------------------------------------
Button press result:  Nothing visible
================================================================
    panel1: layout[
      across
      f1: field 50 "field1"   f2: field 50 "field2"  f3: field 50 "field3"
    ]
    mainform: layout [
      below
      entrypanel:    box      panel1/size with [pane: panel1/pane ]
      clearbutton:   button   "Clear" [ clear-fields entrypanel/pane ]
    ]
-------------------------------------------------------------------------------------------------
Button press result: 
** Script Error: clear-fields expected panel argument of type: object
** Where: func [face value][clear-fields entrypanel/pane]
** Near: clear-fields entrypanel/pane
================================================================
    panel1: layout[
      across
      f1: field 50 "field1"   f2: field 50 "field2"  f3: field 50 "field3"
    ]
    mainform: layout [
      below
      entrypanel:    box      panel1/size with [pane: panel1/pane ]
      clearbutton:   button   "Clear" [ clear-fields entrypanel ]
    ]
-------------------------------------------------------------------------------------------------
Button press result:  Nothing visible
================================================================

-- 
To unsubscribe from the list, just send an email to 
lists at rebol.com with unsubscribe as the subject.

Reply via email to