arcadia 0.7.0 → 0.8.0

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/mainframe.tcl

@@ -1,7 +1,7 @@
 # ----------------------------------------------------------------------------
 #  mainframe.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: mainframe.tcl,v 1.23 2006/03/24 22:19:57 dev_null42a Exp $
+#  $Id: mainframe.tcl,v 1.24 2009/07/01 14:41:30 oehhar Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - MainFrame::create
@@ -395,18 +395,7 @@ proc MainFrame::getmenu { path menuid } {
 proc MainFrame::setmenustate { path tag state } {
     variable _widget
 
-    #    if { [info exists _widget($path,tags,$tag)] } {
-    #        foreach {menu entry} $_widget($path,tags,$tag) {
-    #            $menu entryconfigure $entry -state $state
-    #        }
-    #    }
-
-    # We need a more sophisticated state system.
-    # The original model was this:  each menu item has a list of tags;
-    # whenever any one of those tags changed state, the menu item did too.
-    # This makes it hard to have items that are enabled only when both tagA and
-    # tagB are.  The new model therefore only sets the menustate to enabled
-    # when ALL of its tags are enabled.
+    # Set menustate to enabled when ALL of its tags are enabled.
 
     # First see if this is a real tag
     if { [info exists _widget($path,tagstate,$tag)] } {
@@ -431,6 +420,18 @@ proc MainFrame::setmenustate { path tag state } {
     return
 }
 
+# -----------------------------------------------------------------------------
+#  Command MainFrame::getmenustate
+# -----------------------------------------------------------------------------
+proc MainFrame::getmenustate { path tag } {
+    variable _widget
+
+    if {$_widget($path,tagstate,$tag)} {
+        return normal
+    } else {
+        return disabled
+    }
+}
 
 # -----------------------------------------------------------------------------
 #  Command MainFrame::menuonly

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/notebook.tcl

@@ -1,7 +1,7 @@
 # ---------------------------------------------------------------------------
 #  notebook.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: notebook.tcl,v 1.23 2005/01/26 01:01:26 hobbs Exp $
+#  $Id: notebook.tcl,v 1.25 2009/07/01 14:41:30 oehhar Exp $
 # ---------------------------------------------------------------------------
 #  Index of commands:
 #     - NoteBook::create
@@ -304,6 +304,7 @@ proc NoteBook::delete { path page {destroyframe 1} } {
         destroy $path.f$page
     }
     _redraw $path
+    unset data($page,width) data($page,realized)
 }
 
 
@@ -503,6 +504,7 @@ proc NoteBook::_itemconfigure { path page lres } {
          $state == "disabled" && $data(select) == $page } {
         set data(select) ""
     }
+    _set_help $path $page
     return $res
 }
 

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/panedw.tcl

@@ -58,6 +58,18 @@ proc PanedWindow::create { path args } {
     set _panedw($path,weights) ""
     set _panedw($path,configuredone) 0
 
+    set activator [Widget::getoption $path -activator]
+    if {[string equal $activator ""]} {
+        if { $::tcl_platform(platform) != "windows" } {
+            Widget::setMegawidgetOption $path -activator button
+        } else {
+            Widget::setMegawidgetOption $path -activator line
+        }
+    }
+    if {[string equal [Widget::getoption $path -activator] "line"]} {
+        Widget::setMegawidgetOption $path -width 3
+    }
+    
     bind $path <Configure> [list PanedWindow::_realize $path %w %h]
     bind $path <Destroy>   [list PanedWindow::_destroy $path]
 
@@ -116,28 +128,20 @@ proc PanedWindow::add { path args } {
 
     if { $num > 0 } {
         set frame [frame $path.sash$num -relief flat -bd 0 \
-		-highlightthickness 0 -width $width -height $width -bg $bg]
-        set sep   [frame $frame.sep -bd 5 -relief raised \
-		-highlightthickness 0 -bg $bg]
-        set but   [frame $frame.but -bd 1 -relief raised \
-		-highlightthickness 0 -bg $bg -width $wbut -height $wbut]
-	set placeButton 1
-	set sepsize     2
-
-	set activator [Widget::getoption $path -activator]
-	if {$activator == ""} {
-	    if { $::tcl_platform(platform) != "windows" } {
-		set activator button
-	    } else {
-		set activator line
-	    }
-	}
+                       -highlightthickness 0 -width $width -height $width -bg $bg]
+        set sep [frame $frame.sep -bd 5 -relief raised \
+                     -highlightthickness 0 -bg $bg]
+        set but [frame $frame.but -bd 1 -relief raised \
+                     -highlightthickness 0 -bg $bg -width $wbut -height $wbut]
+	set sepsize 2
+
+        set activator [Widget::getoption $path -activator]
 	if {$activator == "button"} {
 	    set activator $but
+	    set placeButton 1
 	} else {
 	    set activator $sep
-	    set sepsize 4
-	    $sep configure -bd 3
+	    $sep configure -bd 1
 	    set placeButton 0
 	}
         if {[string equal $side "top"] || [string equal $side "bottom"]} {

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/passwddlg.tcl

@@ -2,7 +2,7 @@
 #  passwddlg.tcl
 #  This file is part of Unifix BWidget Toolkit
 #   by Stephane Lavirotte (Stephane.Lavirotte@sophia.inria.fr)
-#  $Id: passwddlg.tcl,v 1.11 2006/09/28 22:31:28 dev_null42a Exp $
+#  $Id: passwddlg.tcl,v 1.12 2009/06/11 15:42:51 oehhar Exp $
 # -----------------------------------------------------------------------------
 #  Index of commands:
 #     - PasswdDlg::create
@@ -166,8 +166,12 @@ proc PasswdDlg::_verifonlogin { path labpass } {
 # -----------------------------------------------------------------------------
 #  Command PasswdDlg::_verifonpasswd
 # -----------------------------------------------------------------------------
-proc PasswdDlg::_verifonpasswd { path lablog } {
-    focus $lablog
+proc PasswdDlg::_verifonpasswd { path labpass } {
+    if {[string equal [$labpass cget -state] "disabled"]} {
+        Dialog::enddialog $path 0
+    } else {
+        focus $labpass
+    }
 }
 
 # -----------------------------------------------------------------------------

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/pkgIndex.tcl

@@ -1,7 +1,7 @@
 if {[catch {package require Tcl}]} return
-package ifneeded BWidget 1.8 "\
+package ifneeded BWidget 1.9 "\
     package require Tk 8.1.1;\
-    [list tclPkgSetup $dir BWidget 1.8 {
+    [list tclPkgSetup $dir BWidget 1.9 {
 {arrow.tcl source {ArrowButton ArrowButton::create ArrowButton::use}}
 {labelframe.tcl source {LabelFrame LabelFrame::create LabelFrame::use}}
 {labelentry.tcl source {LabelEntry LabelEntry::create LabelEntry::use}}

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/scrollframe.tcl

@@ -1,7 +1,7 @@
 # ----------------------------------------------------------------------------
 #  scrollframe.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: scrollframe.tcl,v 1.7 2005/07/28 00:40:42 hobbs Exp $
+#  $Id: scrollframe.tcl,v 1.11 2009/07/17 15:29:51 oehhar Exp $
 # ----------------------------------------------------------------------------
 #  Index of commands:
 #     - ScrollableFrame::create
@@ -17,27 +17,45 @@
 namespace eval ScrollableFrame {
     Widget::define ScrollableFrame scrollframe
 
-    Widget::declare ScrollableFrame {
-        {-background        TkResource "" 0 frame}
-        {-width             Int        0  0 {}}
-        {-height            Int        0  0 {}}
-        {-areawidth         Int        0  0 {}}
-        {-areaheight        Int        0  0 {}}
-        {-constrainedwidth  Boolean    0 0}
-        {-constrainedheight Boolean    0 0}
-        {-xscrollcommand    TkResource "" 0 canvas}
-        {-yscrollcommand    TkResource "" 0 canvas}
-        {-xscrollincrement  TkResource "" 0 canvas}
-        {-yscrollincrement  TkResource "" 0 canvas}
-        {-bg                Synonym    -background}
+    # If themed, there is no background and -bg option
+    if {[Widget::theme]} {
+        Widget::declare ScrollableFrame {
+            {-width             Int        0  0 {}}
+            {-height            Int        0  0 {}}
+            {-areawidth         Int        0  0 {}}
+            {-areaheight        Int        0  0 {}}
+            {-constrainedwidth  Boolean    0 0}
+            {-constrainedheight Boolean    0 0}
+            {-xscrollcommand    TkResource "" 0 canvas}
+            {-yscrollcommand    TkResource "" 0 canvas}
+            {-xscrollincrement  TkResource "" 0 canvas}
+            {-yscrollincrement  TkResource "" 0 canvas}
+        }
+    } else {
+        Widget::declare ScrollableFrame {
+            {-background        TkResource "" 0 frame}
+            {-width             Int        0  0 {}}
+            {-height            Int        0  0 {}}
+            {-areawidth         Int        0  0 {}}
+            {-areaheight        Int        0  0 {}}
+            {-constrainedwidth  Boolean    0 0}
+            {-constrainedheight Boolean    0 0}
+            {-xscrollcommand    TkResource "" 0 canvas}
+            {-yscrollcommand    TkResource "" 0 canvas}
+            {-xscrollincrement  TkResource "" 0 canvas}
+            {-yscrollincrement  TkResource "" 0 canvas}
+            {-bg                Synonym    -background}
+        }
     }
 
     Widget::addmap ScrollableFrame "" :cmd {
-        -background {} -width {} -height {} 
+        -width {} -height {} 
         -xscrollcommand {} -yscrollcommand {}
         -xscrollincrement {} -yscrollincrement {}
     }
-    Widget::addmap ScrollableFrame "" .frame {-background {}}
+    if { ! [Widget::theme]} {
+        Widget::addmap ScrollableFrame "" .frame {-background {}}
+    }
 
     variable _widget
 
@@ -58,18 +76,30 @@ proc ScrollableFrame::create { path args } {
     if {[Widget::theme]} {
 	set frame [eval [list ttk::frame $path.frame] \
 		       [Widget::subcget $path .frame]]
+	set bg [ttk::style lookup TFrame -background]
     } else {
 	set frame [eval [list frame $path.frame] \
 		       [Widget::subcget $path .frame] \
 		       -highlightthickness 0 -borderwidth 0 -relief flat]
+	set bg [$frame cget -background]
     }
+    # Give canvas frame (or theme) background
+    $canvas configure -background $bg
 
     $canvas create window 0 0 -anchor nw -window $frame -tags win \
         -width  [Widget::cget $path -areawidth] \
         -height [Widget::cget $path -areaheight]
 
     bind $frame <Configure> \
-	    [list ScrollableFrame::_frameConfigure $canvas $frame %w %h]
+        [list ScrollableFrame::_frameConfigure $canvas]
+    # add <unmap> binding: <configure> is not called when frame
+    # becomes so small that it suddenly falls outside of currently visible area.
+    # but now we need to add a <map> binding too
+    bind $frame <Map> \
+        [list ScrollableFrame::_frameConfigure $canvas]
+    bind $frame <Unmap> \
+        [list ScrollableFrame::_frameConfigure $canvas 1]
+
     bindtags $path [list $path BwScrollableFrame [winfo toplevel $path] all]
 
     return [Widget::create ScrollableFrame $path]
@@ -207,20 +237,26 @@ proc ScrollableFrame::_resize { path } {
     if { [Widget::getoption $path -constrainedheight] } {
         $path:cmd itemconfigure win -height [winfo height $path]
     }
+    # scollregion must also be reset when canvas size changes
+    _frameConfigure $path
 }
 
 
 # ----------------------------------------------------------------------------
 #  Command ScrollableFrame::_frameConfigure
 # ----------------------------------------------------------------------------
-proc ScrollableFrame::_frameConfigure {canvas frame width height} {
+proc ScrollableFrame::_max {a b} {return [expr {$a <= $b ? $b : $a}]}
+proc ScrollableFrame::_frameConfigure {canvas {unmap 0}} {
     # This ensures that we don't get funny scrollability in the frame
     # when it is smaller than the canvas space
-    if {[winfo height $frame] < [winfo height $canvas]} {
-	set height [winfo height $canvas]
-    }
-    if {[winfo width $frame] < [winfo width $canvas]} {
-	set width [winfo width $canvas]
-    }
+    # use [winfo] to get height & width of frame
+
+    # [winfo] doesn't work for unmapped frame
+    set frameh [expr {$unmap ? 0 : [winfo height $canvas.frame]}]
+    set framew [expr {$unmap ? 0 : [winfo width  $canvas.frame]}]
+
+    set height [_max $frameh [winfo height $canvas]]
+    set width  [_max $framew [winfo width  $canvas]]
+
     $canvas:cmd configure -scrollregion [list 0 0 $width $height]
 }

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/scrollw.tcl

@@ -1,7 +1,7 @@
 # -----------------------------------------------------------------------------
 #  scrollw.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: scrollw.tcl,v 1.12 2006/08/21 20:54:14 dev_null42a Exp $
+#  $Id: scrollw.tcl,v 1.13 2009/06/29 13:28:24 oehhar Exp $
 # -----------------------------------------------------------------------------
 #  Index of commands:
 #     - ScrolledWindow::create
@@ -198,12 +198,13 @@ proc ScrolledWindow::_set_hscroll { path vmin vmax } {
     Widget::getVariable $path data
 
     if {$data(realized) && $data(hsb,present)} {
-	if {$data(hsb,auto)} {
+	if {$data(hsb,auto) && ![info exists data(hlock)]} {
 	    if {$data(hsb,packed) && $vmin == 0 && $vmax == 1} {
-		if {![info exists data(hlock)]} {
-		    set data(hsb,packed) 0
-		    grid remove $path.hscroll
-		}
+		set data(hsb,packed) 0
+		grid remove $path.hscroll
+		set data(hlock) 1
+		update idletasks
+		unset data(hlock)
 	    } elseif {!$data(hsb,packed) && ($vmin != 0 || $vmax != 1)} {
 		set data(hsb,packed) 1
 		grid $path.hscroll -column 1 -row $data(hsb,row) \
@@ -225,12 +226,13 @@ proc ScrolledWindow::_set_vscroll { path vmin vmax } {
     Widget::getVariable $path data
 
     if {$data(realized) && $data(vsb,present)} {
-	if {$data(vsb,auto)} {
+	if {$data(vsb,auto) && ![info exists data(vlock)]} {
 	    if {$data(vsb,packed) && $vmin == 0 && $vmax == 1} {
-		if {![info exists data(vlock)]} {
-		    set data(vsb,packed) 0
-		    grid remove $path.vscroll
-		}
+		set data(vsb,packed) 0
+		grid remove $path.vscroll
+		set data(vlock) 1
+		update idletasks
+		unset data(vlock)
 	    } elseif {!$data(vsb,packed) && ($vmin != 0 || $vmax != 1) } {
 		set data(vsb,packed) 1
 		grid $path.vscroll -column $data(vsb,column) -row 1 \

data/tcl/{BWidget-1.8.0 → BWidget-1.9.0}/tree.tcl

@@ -1,7 +1,7 @@
 # ----------------------------------------------------------------------------
 #  tree.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: tree.tcl,v 1.54 2006/09/28 15:46:06 dev_null42a Exp $
+#  $Id: tree.tcl,v 1.60 2009/07/24 16:01:55 oehhar Exp $
 # ----------------------------------------------------------------------------
 #  Index of commands:
 #     - Tree::create
@@ -327,6 +327,7 @@ proc Tree::insert { path index parent node args } {
     if { [info exists data($node)] } {
         return -code error "node \"$node\" already exists"
     }
+    set parent [_node_name $path $parent]
     if { ![info exists data($parent)] } {
         return -code error "node \"$parent\" does not exist"
     }
@@ -440,7 +441,7 @@ proc Tree::bindArea { path event script } {
 # ----------------------------------------------------------------------------
 proc Tree::bindText { path event script } {
     if {[string length $script]} {
-	append script " \[Tree::_get_node_name [list $path] current 2\]"
+	append script " \[Tree::_get_node_name [list $path] current 2 1\]"
     }
     $path.c bind "node" $event $script
     if {[Widget::getoption $path -selectfill]} {
@@ -456,7 +457,7 @@ proc Tree::bindText { path event script } {
 # ----------------------------------------------------------------------------
 proc Tree::bindImage { path event script } {
     if {[string length $script]} {
-	append script " \[Tree::_get_node_name [list $path] current 2\]"
+	append script " \[Tree::_get_node_name [list $path] current 2 1\]"
     }
     $path.c bind "img" $event $script
     if {[Widget::getoption $path -selectfill]} {
@@ -704,7 +705,11 @@ proc Tree::selection { path cmd args } {
 		return -code error \
 			"wrong#args: Expected $path selection get"
 	    }
-            return $data(selnodes)
+            set nodes [list]
+	    foreach node $data(selnodes) {
+		lappend nodes [_node_name_rev $path $node]
+	    }
+	    return $nodes
         }
         includes {
 	    if {[llength $args] != 1} {
@@ -838,10 +843,10 @@ proc Tree::find {path findInfo {confine ""}} {
             set xi [expr {[lindex [$path.c coords n:$node] 0] - $padx}]
             set xs [lindex [$path.c bbox n:$node] 2]
             if {$x >= $xi && $x <= $xs} {
-                return $node
+                return [_node_name_rev $path $node]
             }
         } else {
-            return $node
+            return [_node_name_rev $path $node]
         }
     }
     return ""
@@ -1364,12 +1369,10 @@ proc Tree::_draw_subnodes { path nodes x0 y0 deltax deltay padx showlines } {
         set yp $y1
         set y1 [_draw_node $path $node $x0 [expr {$y1+$deltay}] $deltax $deltay $padx $showlines]
     }
-    if { $showlines && [llength $nodes] } {
-	if {$y0 < 0} {
-	    # Adjust the drawing of the line to the first root node
-	    # to start at the vertical point (not go up).
-	    incr y0 $deltay
-	}
+    # Only draw a line to the invisible root node above the tree widget when
+    # there are multiple top nodes.
+    set len [llength $nodes]
+    if { $showlines && $len && !($y0 < 0 && $len < 2) } {
         set id [$path.c create line $x0 $y0 $x0 [expr {$yp+$deltay}] \
                     -fill    [Widget::getoption $path -linesfill]   \
                     -stipple [Widget::getoption $path -linestipple] \
@@ -1528,7 +1531,10 @@ proc Tree::_redraw_selection { path } {
             }
             set id [$path.c create rectangle $bbox -tags [list sel s:$node] \
 			-fill $selbg -outline $selbg]
-            $path.c itemconfigure "n:$node" -fill $selfg
+	    if {$selfg != ""} {
+		# Don't allow an empty fill - that would be transparent
+		$path.c itemconfigure "n:$node" -fill $selfg
+	    }
             $path.c lower $id
         }
     }
@@ -1592,8 +1598,7 @@ proc Tree::_drop_cmd { path source X Y op type dnddata } {
         set data(dnd,afterid) ""
     }
     set data(dnd,scroll) ""
-    if {[llength $data(dnd,node)]
-	&& [llength [set cmd [Widget::getoption $path -dropcmd]]]} {
+    if {[llength [set cmd [Widget::getoption $path -dropcmd]]]} {
 	return [uplevel \#0 $cmd \
 		    [list $path $source $data(dnd,node) $op $type $dnddata]]
     }
@@ -1849,14 +1854,15 @@ proc Tree::_auto_scroll { path x y } {
 # ----------------------------------------------------------------------------
 #  Command Tree::_scroll
 # ----------------------------------------------------------------------------
-proc Tree::_scroll { path cmd dir } {
+proc Tree::_scroll { path scroll } {
     variable $path
     upvar 0  $path data
-
+    set cmd [lindex $scroll 0]
+    set dir [lindex $scroll 1]
     if { ($dir == -1 && [lindex [$path.c $cmd] 0] > 0) ||
          ($dir == 1  && [lindex [$path.c $cmd] 1] < 1) } {
         $path.c $cmd scroll $dir units
-        set data(dnd,afterid) [after 100 [list Tree::_scroll $path $cmd $dir]]
+        set data(dnd,afterid) [after 50 [list Tree::_scroll $path $scroll]]
     } else {
         set data(dnd,afterid) ""
         DropSite::setcursor dot
@@ -2086,8 +2092,12 @@ proc Tree::_set_current_node {win node} {
 # Results:
 #	node	name of the tree node.
 
-proc Tree::_get_node_name {path {item current} {tagindex end-1}} {
-    return [string range [lindex [$path.c gettags $item] $tagindex] 2 end]
+proc Tree::_get_node_name {path {item current} {tagindex end-1} {truename 0}} {
+    set node [string range [lindex [$path.c gettags $item] $tagindex] 2 end]
+    if {$truename} {
+	return [_node_name_rev $path $node]
+    }
+    return $node
 }
 
 # Tree::_get_node_padx --
@@ -2139,7 +2149,8 @@ proc Tree::_get_node_deltax {path node} {
 #	list		The list of tags to apply to the canvas item
 proc Tree::_get_node_tags {path node {tags ""}} {
     eval [linsert $tags 0 lappend list TreeItemSentinal]
-    if {[Widget::getoption $path.$node -helptext] == ""} { return $list }
+    if {[Widget::getoption $path.$node -helptext] == "" &&
+        [Widget::getoption $path.$node -helpcmd]  == ""} { return $list }
 
     switch -- [Widget::getoption $path.$node -helptype] {
 	balloon {
@@ -2167,29 +2178,22 @@ proc Tree::_set_help { path node } {
     Widget::getVariable $path help
 
     set item $path.$node
-    set opts [list -helptype -helptext -helpvar]
-    foreach {cty ctx cv} [eval [linsert $opts 0 Widget::hasChangedX $item]] break
+    set opts [list -helptype -helptext -helpvar -helpcmd]
+    foreach {cty ctx cv cc} [eval [linsert $opts 0 Widget::hasChangedX $item]] break
     set text [Widget::getoption $item -helptext]
+    set cmd  [Widget::getoption $item -helpcmd]
 
-    ## If we've never set help for this item before, and text is not blank,
-    ## we need to setup help.  We also need to reset help if any of the
+    ## If we've never set help for this item before, and text or cmd is not
+    ## blank, we need to setup help. We also need to reset help if any of the
     ## options have changed.
-    if { (![info exists help($node)] && $text != "") || $cty || $ctx || $cv } {
+    if { (![info exists help($node)] && ($text != "" || $cmd != ""))
+         || $cty || $ctx || $cv } {
 	set help($node) 1
 	set type [Widget::getoption $item -helptype]
-        switch $type {
-            balloon {
-		DynamicHelp::register $path.c balloon n:$node $text
-		DynamicHelp::register $path.c balloon i:$node $text
-		DynamicHelp::register $path.c balloon b:$node $text
-            }
-            variable {
-		set var [Widget::getoption $item -helpvar]
-		DynamicHelp::register $path.c variable n:$node $var $text
-		DynamicHelp::register $path.c variable i:$node $var $text
-		DynamicHelp::register $path.c variable b:$node $var $text
-            }
-        }
+        set var [Widget::getoption $item -helpvar]
+        DynamicHelp::add $path.c -item n:$node -type $type -text $text -variable $var -command $cmd
+        DynamicHelp::add $path.c -item i:$node -type $type -text $text -variable $var -command $cmd
+        DynamicHelp::add $path.c -item b:$node -type $type -text $text -variable $var -command $cmd
     }
 }
 
@@ -2202,9 +2206,15 @@ proc Tree::_mouse_select { path cmd args } {
     }
 }
 
-
 proc Tree::_node_name { path node } {
-    set map [list & _ | _ ^ _ ! _]
+    # Make sure node names are safe as tags and variable names
+    set map [list & \1 | \2 ^ \3 ! \4 :: \5]
+    return  [string map $map $node]
+}
+
+proc Tree::_node_name_rev { path node } {
+    # Allow reverse interpretation of node names
+    set map [list \1 & \2 | \3 ^ \4 ! \5 ::]
     return  [string map $map $node]
 }