Index: doc/example-scripts/tk-spread.tcl
===================================================================
diff -u -rc2374366bcb47c70ebd33cb16c8152eba783987f -r7899713fc59e73e74af1586fa84b0b690bb9b2e7
--- doc/example-scripts/tk-spread.tcl	(.../tk-spread.tcl)	(revision c2374366bcb47c70ebd33cb16c8152eba783987f)
+++ doc/example-scripts/tk-spread.tcl	(.../tk-spread.tcl)	(revision 7899713fc59e73e74af1586fa84b0b690bb9b2e7)
@@ -26,7 +26,7 @@
    # If no widget is provided, use the name of the object as widget
    # name.
    #
-   :property -accessor public {widget ".[namespace tail [self]]"}
+   :property {widget ".[namespace tail [self]]"}
 
    #
    # Use the nx callback trait 
@@ -111,5 +111,5 @@
  }
 
 # Pack the spreadsheets into one pane
-pack [x widget] [y widget] -fill both
+pack [x cget -widget] [y cget -widget] -fill both