Hello,

Newbie here, and I'm having some difficulties with treeview in TCL.

I'm working off a demo example from Active State TCL.

1) I wondered if someone could help, I get the following error but don't know what to do to fix or how to fix.

Error is invalid command error ERROR: invalid command name "populateTree"

command bound to event: "populateTree .fc.tv.tree [.fc.tv.tree focus]"

Code is below

2) How do I get a selection from multiple items treeview to be saved in a variable.

# temp dir to mimic Network dir
set ::dir "C:/Dev"

proc populateRoots {tree} {
populateTree $tree [$tree insert {} end -text "Network File" \
-values [list $::dir directory]]
}

## Code to populate a node of the tree
proc populateTree {tree node} {
if {[$tree set $node type] ne "directory"} {
return
}
set path [$tree set $node fullpath]
$tree delete [$tree children $node]
foreach f [lsort -dictionary [glob -nocomplain -dir $path *]] {
set type [file type $f]
set id [$tree insert $node end -text [file tail $f] \
-values [list $f $type]]
if {$type eq "directory"} {
## Make it so that this node is openable
$tree insert $id 0 -text dummy ;# a dummy
$tree item $id -text [file tail $f]/
} elseif {$type eq "file"} {
set size [file size $f]
set ttime [file mtime $f]
## Format the file size nicely
if {$size >= 1024*1024*1024} {
set size [format %.1f\ GB [expr {$size/1024/1024/1024.}]]
} elseif {$size >= 1024*1024} {
set size [format %.1f\ MB [expr {$size/1024/1024.}]]
} elseif {$size >= 1024} {
set size [format %.1f\ kB [expr {$size/1024.}]]
} else {
append size " bytes"
}
$tree set $id size $size
}
}

# Stop this code from rerunning on the current node
$tree set $node type processedDirectory
}

# ## Create the tree and set it up


ttk::treeview $tw.tree -columns {fullpath type size date time} -displaycolumns {size date time} \
-yscroll "$tw.vsb set" -xscroll "$tw.hsb set"
ttk::scrollbar $tw.vsb -orient vertical -command "$tw.tree yview"
ttk::scrollbar $tw.hsb -orient horizontal -command "$tw.tree xview"
$tw.tree heading \#0 -text "Directory Structure"
$tw.tree heading size -text "File Size"
$tw.tree column size -stretch 0 -width 70
populateRoots $tw.tree
bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}

# ## Arrange the tree and its scrollbars in the toplevel
lower [ttk::frame $tw.dummy]
pack $tw.dummy -fill both -expand 1
grid $tw.tree $tw.vsb -sticky nsew -in $tw.dummy
grid $tw.hsb -sticky nsew -in $tw.dummy
grid columnconfigure $tw.dummy 0 -weight 1
grid rowconfigure $tw.dummy 0 -weight 1

Thank you in advance

George

* GeorgeB <george.booth3182@gmail.com>
| Hello,
>
| Newbie here, and I'm having some difficulties with treeview in TCL.
>
| I'm working off a demo example from Active State TCL.
>
| 1) I wondered if someone could help, I get the following error but don't know what to do to fix or how to fix.
>
| Error is invalid command error ERROR: invalid command name "populateTree"
>
| command bound to event: "populateTree .fc.tv.tree [.fc.tv.tree focus]"
>
| Code is below

The code you posted works for me (I don't get that error, and from the
code logic, I could not understand how populateTree could not be
defined), so there probably is something else wrong. Are you using
additional namespace code around that example?

| ttk::treeview $tw.tree -columns {fullpath type size date time} -displaycolumns {size date time} \
| -yscroll "$tw.vsb set" -xscroll "$tw.hsb set"

Note that it is always preferable to use [list] to build up callback
commands:

... -yscroll [list $tw.vsb set] -xscroll [list $tw.hsb set]

In your example it depends on what $tw is set to whether it makes a
difference, but if more complex arguments are passed in the callbacks,
the [list] approach is the better one.

| 2) How do I get a selection from multiple items treeview to be saved in a variable.

It seems that [pathname selection] returns the currently selected items,
so just store that in a variable. But since that seems obvious maybe
that is not your question...

HTH
R'

Hi Ralf,

Thank you for you response.

Please pardon as I'm very new to TCL.

Yes there is an additional namespace around this code, and I have tried multiple examples all seem to give me an invalid name error.

Is there a way to define "populateTree" so that the error is not generated? or should the tree have it's own name space?

2) How do I get a selection from multiple items treeview to be saved in a variable.
> It seems that [pathname selection] returns the currently selected items,
> so just store that in a variable. But since that seems obvious maybe
> that is not your question...

I've tried [pathname selection], it doesn't print anything in console

On Monday, September 19, 2022 at 11:01:32 AM UTC+1, Ralf Fassel wrote:
> * GeorgeB <george.b...@gmail.com>
> | Hello,
> >
> | Newbie here, and I'm having some difficulties with treeview in TCL.
> >
> | I'm working off a demo example from Active State TCL.
> >
> | 1) I wondered if someone could help, I get the following error but don't know what to do to fix or how to fix.
> >
> | Error is invalid command error ERROR: invalid command name "populateTree"
> >
> | command bound to event: "populateTree .fc.tv.tree [.fc.tv.tree focus]"
> >
> | Code is below
> The code you posted works for me (I don't get that error, and from the
> code logic, I could not understand how populateTree could not be
> defined), so there probably is something else wrong. Are you using
> additional namespace code around that example?
> | ttk::treeview $tw.tree -columns {fullpath type size date time} -displaycolumns {size date time} \
> | -yscroll "$tw.vsb set" -xscroll "$tw.hsb set"
> Note that it is always preferable to use [list] to build up callback
> commands:
>
> ... -yscroll [list $tw.vsb set] -xscroll [list $tw.hsb set]
>
> In your example it depends on what $tw is set to whether it makes a
> difference, but if more complex arguments are passed in the callbacks,
> the [list] approach is the better one.
> | 2) How do I get a selection from multiple items treeview to be saved in a variable.
> It seems that [pathname selection] returns the currently selected items,
> so just store that in a variable. But since that seems obvious maybe
> that is not your question...
>
> HTH
> R'

On 18/09/2022 20:28, GeorgeB wrote:
> Hello,
>
> Newbie here, and I'm having some difficulties with treeview in TCL.
>
> I'm working off a demo example from Active State TCL.
>
> 1) I wondered if someone could help, I get the following error but don't know what to do to fix or how to fix.
>
> Error is invalid command error ERROR: invalid command name "populateTree"
>
> command bound to event: "populateTree .fc.tv.tree [.fc.tv.tree focus]"
>
> Code is below
>
> 2) How do I get a selection from multiple items treeview to be saved in a variable.
>
>
> # temp dir to mimic Network dir
> set ::dir "C:/Dev"
>
> proc populateRoots {tree} {
> populateTree $tree [$tree insert {} end -text "Network File" \
> -values [list $::dir directory]]
> }
>
> ## Code to populate a node of the tree
> proc populateTree {tree node} {
> if {[$tree set $node type] ne "directory"} {
> return
> }
> set path [$tree set $node fullpath]
> $tree delete [$tree children $node]
> foreach f [lsort -dictionary [glob -nocomplain -dir $path *]] {
> set type [file type $f]
> set id [$tree insert $node end -text [file tail $f] \
> -values [list $f $type]]
> if {$type eq "directory"} {
> ## Make it so that this node is openable
> $tree insert $id 0 -text dummy ;# a dummy
> $tree item $id -text [file tail $f]/
> } elseif {$type eq "file"} {
> set size [file size $f]
> set ttime [file mtime $f]
> ## Format the file size nicely
> if {$size >= 1024*1024*1024} {
> set size [format %.1f\ GB [expr {$size/1024/1024/1024.}]]
> } elseif {$size >= 1024*1024} {
> set size [format %.1f\ MB [expr {$size/1024/1024.}]]
> } elseif {$size >= 1024} {
> set size [format %.1f\ kB [expr {$size/1024.}]]
> } else {
> append size " bytes"
> }
> $tree set $id size $size
> }
> }
>
> # Stop this code from rerunning on the current node
> $tree set $node type processedDirectory
> }
>
> # ## Create the tree and set it up
>
>
> ttk::treeview $tw.tree -columns {fullpath type size date time} -displaycolumns {size date time} \
> -yscroll "$tw.vsb set" -xscroll "$tw.hsb set"
> ttk::scrollbar $tw.vsb -orient vertical -command "$tw.tree yview"
> ttk::scrollbar $tw.hsb -orient horizontal -command "$tw.tree xview"
> $tw.tree heading \#0 -text "Directory Structure"
> $tw.tree heading size -text "File Size"
> $tw.tree column size -stretch 0 -width 70
> populateRoots $tw.tree
> bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}
>
> # ## Arrange the tree and its scrollbars in the toplevel
> lower [ttk::frame $tw.dummy]
> pack $tw.dummy -fill both -expand 1
> grid $tw.tree $tw.vsb -sticky nsew -in $tw.dummy
> grid $tw.hsb -sticky nsew -in $tw.dummy
> grid columnconfigure $tw.dummy 0 -weight 1
> grid rowconfigure $tw.dummy 0 -weight 1
>
>
> Thank you in advance
>
> George

The error message says that the system doesn't know anything about the
command populateTree. This is a little surprising since you have defined
it in the code you have posted.

Probably what has happened is that when you executed "proc populateTree
{tree node} {...}" you were inside a namespace, so you ended up defining
<someNamespace>::populateTree; since the code associated with the event
operates in the global namespace, it is looking for ::populateTree and
can't find it.

You can ensure that you define populateTree in the global namespace by
changing your [proc] statment to "proc ::populateTree {tree node}...".
If you are interested to know where your current populateTree command is
ending up, you could add "puts stdout [namespace current]" immediately
before the [proc] statement, which willwrite the current namespace to
standard output when the script is first sourced.

Good luck sorting out your script, I hope this proves helpful,

Alan

On Monday, September 19, 2022 at 12:45:29 PM UTC+1, Alan Grunwald wrote:
> On 18/09/2022 20:28, GeorgeB wrote:
> > Hello,
> >
> > Newbie here, and I'm having some difficulties with treeview in TCL.
> >
> > I'm working off a demo example from Active State TCL.
> >
> > 1) I wondered if someone could help, I get the following error but don't know what to do to fix or how to fix.
> >
> > Error is invalid command error ERROR: invalid command name "populateTree"
> >
> > command bound to event: "populateTree .fc.tv.tree [.fc.tv.tree focus]"
> >
> > Code is below
> >
> > 2) How do I get a selection from multiple items treeview to be saved in a variable.
> >
> >
> > # temp dir to mimic Network dir
> > set ::dir "C:/Dev"
> >
> > proc populateRoots {tree} {
> > populateTree $tree [$tree insert {} end -text "Network File" \
> > -values [list $::dir directory]]
> > }
> >
> > ## Code to populate a node of the tree
> > proc populateTree {tree node} {
> > if {[$tree set $node type] ne "directory"} {
> > return
> > }
> > set path [$tree set $node fullpath]
> > $tree delete [$tree children $node]
> > foreach f [lsort -dictionary [glob -nocomplain -dir $path *]] {
> > set type [file type $f]
> > set id [$tree insert $node end -text [file tail $f] \
> > -values [list $f $type]]
> > if {$type eq "directory"} {
> > ## Make it so that this node is openable
> > $tree insert $id 0 -text dummy ;# a dummy
> > $tree item $id -text [file tail $f]/
> > } elseif {$type eq "file"} {
> > set size [file size $f]
> > set ttime [file mtime $f]
> > ## Format the file size nicely
> > if {$size >= 1024*1024*1024} {
> > set size [format %.1f\ GB [expr {$size/1024/1024/1024.}]]
> > } elseif {$size >= 1024*1024} {
> > set size [format %.1f\ MB [expr {$size/1024/1024.}]]
> > } elseif {$size >= 1024} {
> > set size [format %.1f\ kB [expr {$size/1024.}]]
> > } else {
> > append size " bytes"
> > }
> > $tree set $id size $size
> > }
> > }
> >
> > # Stop this code from rerunning on the current node
> > $tree set $node type processedDirectory
> > }
> >
> > # ## Create the tree and set it up
> >
> >
> > ttk::treeview $tw.tree -columns {fullpath type size date time} -displaycolumns {size date time} \
> > -yscroll "$tw.vsb set" -xscroll "$tw.hsb set"
> > ttk::scrollbar $tw.vsb -orient vertical -command "$tw.tree yview"
> > ttk::scrollbar $tw.hsb -orient horizontal -command "$tw.tree xview"
> > $tw.tree heading \#0 -text "Directory Structure"
> > $tw.tree heading size -text "File Size"
> > $tw.tree column size -stretch 0 -width 70
> > populateRoots $tw.tree
> > bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}
> >
> > # ## Arrange the tree and its scrollbars in the toplevel
> > lower [ttk::frame $tw.dummy]
> > pack $tw.dummy -fill both -expand 1
> > grid $tw.tree $tw.vsb -sticky nsew -in $tw.dummy
> > grid $tw.hsb -sticky nsew -in $tw.dummy
> > grid columnconfigure $tw.dummy 0 -weight 1
> > grid rowconfigure $tw.dummy 0 -weight 1
> >
> >
> > Thank you in advance
> >
> > George
> The error message says that the system doesn't know anything about the
> command populateTree. This is a little surprising since you have defined
> it in the code you have posted.
>
> Probably what has happened is that when you executed "proc populateTree
> {tree node} {...}" you were inside a namespace, so you ended up defining
> <someNamespace>::populateTree; since the code associated with the event
> operates in the global namespace, it is looking for ::populateTree and
> can't find it.
>
> You can ensure that you define populateTree in the global namespace by
> changing your [proc] statment to "proc ::populateTree {tree node}...".
> If you are interested to know where your current populateTree command is
> ending up, you could add "puts stdout [namespace current]" immediately
> before the [proc] statement, which willwrite the current namespace to
> standard output when the script is first sourced.
>
> Good luck sorting out your script, I hope this proves helpful,
>
> Alan

Alan, you genius....you have sorted the problem, thank you so much.
It also sorted one other issue I was having populating the nodes from a folder in network location...Thank you, I was going round in circles!.

Now I just need to figure out how to print selection (single or multiple) into console. It always comes up blank...

If you any tips or suggestion I'd greatly appreciate.

* GeorgeB <george.booth3182@gmail.com>
| Hi Ralf,
>
| Thank you for you response.
>
| Please pardon as I'm very new to TCL.
>
| Yes there is an additional namespace around this code, and I have
| tried multiple examples all seem to give me an invalid name error.

Usually it is best to post a _complete_ example which actually shows the
error. The code you posted did not use an additional namespace, so it
does not show the error.

If you define a proc inside a namespace, you need to specify that
namespace in callbacks, since those callbacks usually are invoked
outside of that namespace when they run later.

Instead of
bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}
try
bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]

The [namespace code ...] captures the current namespace for the
asynchronous invocation of the command later.

| Is there a way to define "populateTree" so that the error is not
| generated? or should the tree have it's own name space?

It's not how "populateTree" is defined, but how it is to be called.
If you define it inside a namespace, you need to specify that namespace
when calling it.

Note that procs which are defined in the same namespace can call other
procs in that namespace without specifying that namespace explicitly,
but for callbacks like [bind] you need to specfiy the namespace via
[namespace code ...].

| 2) How do I get a selection from multiple items treeview to be saved in a variable.
| > It seems that [pathname selection] returns the currently selected items,
| > so just store that in a variable. But since that seems obvious maybe
| > that is not your question...
>
| I've tried [pathname selection], it doesn't print anything in console

You need to replace 'pathname' by $tw.tree, then select something in the
treeview, then issue that command:

set selected [$tw.tree selection]
puts $selected
=> I004 I005 I006

HTH
R'

GeorgeB <george.booth3182@gmail.com> wrote:
> On Monday, September 19, 2022 at 12:45:29 PM UTC+1, Alan Grunwald wrote:
>> On 18/09/2022 20:28, GeorgeB wrote:
>> > Error is invalid command error ERROR: invalid command name "populateTree"
>> >
>>
>> Probably what has happened is that when you executed "proc populateTree
>> {tree node} {...}" you were inside a namespace, so you ended up defining
>> <someNamespace>::populateTree; since the code associated with the event
>> operates in the global namespace, it is looking for ::populateTree and
>> can't find it.
>>
>> You can ensure that you define populateTree in the global namespace by
>> changing your [proc] statment to "proc ::populateTree {tree node}...".
>> If you are interested to know where your current populateTree command is
>> ending up, you could add "puts stdout [namespace current]" immediately
>> before the [proc] statement, which willwrite the current namespace to
>> standard output when the script is first sourced.
>
> Alan, you genius....you have sorted the problem, thank you so much.

> If you any tips or suggestion I'd greatly appreciate.

If you do wish to use namespaces to structure your code, and if you do
not wish to pollute the global namespace (implied yes given you appear
to be using namespaces), then you should use Ralf's suggestion of
utilizing 'namespace code' to generate the callback script bound to the
binding event.

That will do the work of setting up the binding to call the proc inside
the namespace where it is defined, without you having to add lots of
global procs or having to manually handle the insertion of the
namespace pathname for each binding.

* Ralf Fassel <ralfixx@gmx.de>
| Instead of
| bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}
| try
| bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]

Nah, that's nonsense, since the [%W focus] needs to run later when the
binding is triggered, not when it is defined.

Easiest solution seems to move the "%W focus" into populateTree:

proc populateTree {tree node} {
...
=>
proc populateTree {tree {node ""}} {
if {$node eq ""} {
set node [$tree focus]
}
...

and then just do

bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W]]

HTH
R'

On Monday, September 19, 2022 at 1:40:47 PM UTC+1, Ralf Fassel wrote:
> * GeorgeB <george.b...@gmail.com>
> | Hi Ralf,
> >
> | Thank you for you response.
> >
> | Please pardon as I'm very new to TCL.
> >
> | Yes there is an additional namespace around this code, and I have
> | tried multiple examples all seem to give me an invalid name error.
> Usually it is best to post a _complete_ example which actually shows the
> error. The code you posted did not use an additional namespace, so it
> does not show the error.
>
> If you define a proc inside a namespace, you need to specify that
> namespace in callbacks, since those callbacks usually are invoked
> outside of that namespace when they run later.
>
> Instead of
> bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}
> try
> bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]
>
> The [namespace code ...] captures the current namespace for the
> asynchronous invocation of the command later.
> | Is there a way to define "populateTree" so that the error is not
> | generated? or should the tree have it's own name space?
> It's not how "populateTree" is defined, but how it is to be called.
> If you define it inside a namespace, you need to specify that namespace
> when calling it.
>
> Note that procs which are defined in the same namespace can call other
> procs in that namespace without specifying that namespace explicitly,
> but for callbacks like [bind] you need to specfiy the namespace via
> [namespace code ...].
> | 2) How do I get a selection from multiple items treeview to be saved in a variable.
> | > It seems that [pathname selection] returns the currently selected items,
> | > so just store that in a variable. But since that seems obvious maybe
> | > that is not your question...
> >
> | I've tried [pathname selection], it doesn't print anything in console
> You need to replace 'pathname' by $tw.tree, then select something in the
> treeview, then issue that command:
>
> set selected [$tw.tree selection]
> puts $selected
> => I004 I005 I006
>
> HTH
> R'

Hi Rich and Ralf,

Thank you for the suggestion,

I've replaced the binding with
bind $tw.tv.tree <<TreeviewOpen>> {::FG::populateTree %W [%W focus]}

However if I use bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]], where code = container name I get error
ERROR: invalid command name "%W"
in "%W focus"

> | I've tried [pathname selection], it doesn't print anything in console
> You need to replace 'pathname' by $tw.tree, then select something in the
> treeview, then issue that command:
>
> set selected [$tw.tree selection]
> puts $selected
> => I004 I005 I006

I'd done exactly as you had suggested...but realised I forgot to select items in the tree....doh!!!

I'm assuming I will have to map the id e.g. I004 etc to actual value in the tree?
i.e. if id = I004 and I004 relates to file config.txt in tree then I'll have to map it somehow to each other .

Is it possible to selected a node and get all values underneath it? On selection of the node is just gives me one single ID?
e.g.
Network file
|- Folder 1
|- file0.txt
|- file1.txt
|- file2.txt
|- file3.txt

I would like to get all items underneath Folder 1 by selecting Folder 1

On Monday, September 19, 2022 at 4:27:58 PM UTC+1, Ralf Fassel wrote:
> * Ralf Fassel <ral...@gmx.de>
> | Instead of
> | bind $tw.tree <<TreeviewOpen>> {populateTree %W [%W focus]}
> | try
> | bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]
> Nah, that's nonsense, since the [%W focus] needs to run later when the
> binding is triggered, not when it is defined.
>
> Easiest solution seems to move the "%W focus" into populateTree:
> proc populateTree {tree node} {
> ...
> =>
> proc populateTree {tree {node ""}} {
> if {$node eq ""} {
> set node [$tree focus]
> }
> ...
>
> and then just do
>
> bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W]]
>
> HTH
> R'

Ralf
I just saw this as I posted my last reply 5mins ago...this seems to work better.

GeorgeB <george.booth3182@gmail.com> wrote:
> However if I use bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]]
> , where code = container name I get error
> ERROR: invalid command name "%W"
> in "%W focus"

That is because if you look at the above, you are asking tcl to execute
a command named %W (note the []') at the time you define the binding.

There is no command named %W defined (unless you defined a proc by that
name), so you get "invalid command name "%W".

You would be best to follow Ralf's suggestion and perform the 'focus'
inside the proc, and just pass the window name that Tk inserts for %W
when the binding fires into the proc, then use that window name to
perform the focus. Note, are you sure you want to do a focus here?

>> | I've tried [pathname selection], it doesn't print anything in
>> console You need to replace 'pathname' by $tw.tree, then select
>> something in the treeview, then issue that command:
>>
>> set selected [$tw.tree selection]
>> puts $selected
>> => I004 I005 I006
>
> I'd done exactly as you had suggested...but realised I forgot to
> select items in the tree....doh!!!
>
> I'm assuming I will have to map the id e.g. I004 etc to actual value
> in the tree? i.e. if id = I004 and I004 relates to file config.txt
> in tree then I'll have to map it somehow to each other .

You get the internal ID's of the selected items. That is all Tk knows.
If you need to relate those ID's to something else then you have to
build that relationship map yourself.

> Is it possible to selected a node and get all values underneath it?
> On selection of the node is just gives me one single ID?

You can get a list of the children of a given node with the 'children'
subcommand (see the treeview man page).

If you wish to recurse down the tree, then you have to write your own
proc to walk down the tree and get all the grand/greatgrand/etc.
children.

On 9/19/22 5:03 PM, Rich wrote:
> GeorgeB <george.booth3182@gmail.com> wrote:
>> However if I use bind $tw.tree <<TreeviewOpen>> [namespace code [list populateTree %W [%W focus]]]
>> , where code = container name I get error
>> ERROR: invalid command name "%W"
>> in "%W focus"
>
> That is because if you look at the above, you are asking tcl to execute
> a command named %W (note the []') at the time you define the binding.
>
> There is no command named %W defined (unless you defined a proc by that
> name), so you get "invalid command name "%W".
>
> You would be best to follow Ralf's suggestion and perform the 'focus'

I agree Ralf's suggestion is the best approach here. Nevertheless, it
might be useful to OP to know that they could fix the error above by
properly constructing the callback like so:

bind $tw.tree <<TreeviewOpen>> \
[namespace code [list populateTree %W [list %W focus]]]

On 9/19/2022 5:28 AM, GeorgeB wrote:

>

> Now I just need to figure out how to print selection (single or multiple) into console. It always comes up blank...
>
> If you any tips or suggestion I'd greatly appreciate.
>

Welcome new tcl programmer.

Might I suggest "The Tcl Programming Language" book, both paper and pdf.

https://www.magicsplat.com/ttpl/index.html

I recommend both. They are an exact match; searching in the pdf can take you to the exact same page in the book.

The index and TOC in the pdf are hyperlinked. You can download the TOC for free on the above page and you can get a zip from there with all the utility functions used in the book as well.

You mentioned you print to the console, so probably on windows. Snippets of code from the book can be copied/pasted from the pdf right into a console window where you can interactively try things out.

Your issue with callbacks vs. scripts is discussed in section 10.7.1. and 12.2.1 when combined with namespaces.

I also recommend the free and portable PDF Xchange Viewer program on windows.

Almost forgot, a great on-line manual too:

https://www.magicsplat.com/tcl-docs/docindex.html

On Tuesday, September 20, 2022 at 4:13:05 AM UTC+1, et4 wrote:
> Almost forgot, a great on-line manual too:
>
> https://www.magicsplat.com/tcl-docs/docindex.html

Morning Rich, saitology9 & et4,

I've got most of the errors sorted (Ralf/Rich, thank you for the help, most appreciated).

I think as I get use to TCL I'll have a better understanding, right now I've been thrown in the deep end and hence steep learning curve.

@Rich thank you for the clarification on the mapping, I suspected as such but thought I'd double check.

@et4, thank you for the resource, anything on tree view (for immediate help), plus I need to add more widgets to treeview once I've figured out mapping.

Lastly, if I have more questions relating to the code shown in my first thread (as I build on it), should I create a new thread or continue with current thread for continuity?

* saitology9 <saitology9@gmail.com>
| I agree Ralf's suggestion is the best approach here. Nevertheless, it
| might be useful to OP to know that they could fix the error above by
| properly constructing the callback like so:
>
>
| bind $tw.tree <<TreeviewOpen>> \
| [namespace code [list populateTree %W [list %W focus]]]

I don't think so, since that just builds a list, but does not *execute*
the "%W focus" when the binding is triggered. It just passes the string
"$tw.tree focus" as second parameter to [populateTree].

It is usually very tricky to create callbacks with execution syntax in
them, especially when there might be whitespace involved in the
parameters (let alone arbitrary user input). The better approach is to
keep the arguments minimal and put the workload *inside* the callback.

R'

* GeorgeB <george.booth3182@gmail.com>
| > set selected [$tw.tree selection]
| > puts $selected
| > => I004 I005 I006
>
| I'd done exactly as you had suggested...but realised I forgot to select items in the tree....doh!!!

:-)

| I'm assuming I will have to map the id e.g. I004 etc to actual value in the tree?
| i.e. if id = I004 and I004 relates to file config.txt in tree then
| I'll have to map it somehow to each other .

That would be

$tw.tree item $item -text

or any other item option you are interested in:

foreach s [$tw.tree selection] {
puts "$s => [$tw.tree item $s -text]"
}
=>
I004 => _csp
I005 => _rpm
I006 => _s
I007 => _sk

| Is it possible to selected a node and get all values underneath it? On
| selection of the node is just gives me one single ID? e.g. Network
| file
| |- Folder 1
| |- file0.txt
| |- file1.txt
| |- file2.txt
| |- file3.txt
>
| I would like to get all items underneath Folder 1 by selecting Folder 1

Iterate over

$tw.tree children $item

HTH
R'

On Tuesday, September 20, 2022 at 9:37:21 AM UTC+1, Ralf Fassel wrote:
> * GeorgeB <george.b...@gmail.com>
> | > set selected [$tw.tree selection]
> | > puts $selected
> | > => I004 I005 I006
> >
> | I'd done exactly as you had suggested...but realised I forgot to select items in the tree....doh!!!
> :-)
> | I'm assuming I will have to map the id e.g. I004 etc to actual value in the tree?
> | i.e. if id = I004 and I004 relates to file config.txt in tree then
> | I'll have to map it somehow to each other .
> That would be
>
> $tw.tree item $item -text
>
> or any other item option you are interested in:
>
> foreach s [$tw.tree selection] {
> puts "$s => [$tw.tree item $s -text]"
> }
> =>
> I004 => _csp
> I005 => _rpm
> I006 => _s
> I007 => _sk
> | Is it possible to selected a node and get all values underneath it? On
> | selection of the node is just gives me one single ID? e.g. Network
> | file
> | |- Folder 1
> | |- file0.txt
> | |- file1.txt
> | |- file2.txt
> | |- file3.txt
> >
> | I would like to get all items underneath Folder 1 by selecting Folder 1
> Iterate over
>
> $tw.tree children $item
>
> HTH
> R'

:)

Thanks Ralf.

GeorgeB <george.booth3182@gmail.com> wrote:
> On Tuesday, September 20, 2022 at 9:37:21 AM UTC+1, Ralf Fassel wrote:
>> * GeorgeB <george.b...@gmail.com>
>> | > set selected [$tw.tree selection]
>> | > puts $selected
>> | > => I004 I005 I006
>> >
>> | I'd done exactly as you had suggested...but realised I forgot to
>> | select items in the tree....doh!!!
>> | :-)
>> | I'm assuming I will have to map the id e.g. I004 etc to actual value in the tree?
>> | i.e. if id = I004 and I004 relates to file config.txt in tree then
>> | I'll have to map it somehow to each other .
>> That would be
>>
>> $tw.tree item $item -text
>>
>> or any other item option you are interested in:
>>
>> foreach s [$tw.tree selection] {
>> puts "$s => [$tw.tree item $s -text]"
>> }
>
> :)
>
> Thanks Ralf.

Note also that you can add a list of tags to treeview items (read the
manpage for details). You can make use of tags for, among other uses,
tracking how a given row relates to the other data you are marshalling.

Note that the tags associated with an item are a Tcl list, so use
list operators to manipulate them.

On Tuesday, September 20, 2022 at 2:50:06 PM UTC+1, Rich wrote:
> GeorgeB <george.b...@gmail.com> wrote:
> > On Tuesday, September 20, 2022 at 9:37:21 AM UTC+1, Ralf Fassel wrote:
> >> * GeorgeB <george.b...@gmail.com>
> >> | > set selected [$tw.tree selection]
> >> | > puts $selected
> >> | > => I004 I005 I006
> >> >
> >> | I'd done exactly as you had suggested...but realised I forgot to
> >> | select items in the tree....doh!!!
> >> | :-)
> >> | I'm assuming I will have to map the id e.g. I004 etc to actual value in the tree?
> >> | i.e. if id = I004 and I004 relates to file config.txt in tree then
> >> | I'll have to map it somehow to each other .
> >> That would be
> >>
> >> $tw.tree item $item -text
> >>
> >> or any other item option you are interested in:
> >>
> >> foreach s [$tw.tree selection] {
> >> puts "$s => [$tw.tree item $s -text]"
> >> }
> >
> > :)
> >
> > Thanks Ralf.
>
> Note also that you can add a list of tags to treeview items (read the
> manpage for details). You can make use of tags for, among other uses,
> tracking how a given row relates to the other data you are marshalling.
>
> Note that the tags associated with an item are a Tcl list, so use
> list operators to manipulate them.

Thanks Rich,

One thing I'm trying to figure out is how to filter on file extension.

Now I'm passing two folder (Folder 1 & Folder 2) to simulate the structure (see below), the tree structure is created as one would expect. However I was hoping to filter on *.ini files.

In doing so I was trying to figure out were it determines the file names before it populates the tree.

For Folder with out sub folder e.g. Folder 2, applying filter to "foreach f [lsort -dictionary [glob -nocomplain -dir $path *.ini]]" works, but not for folder with sub folder i.e. Folder 1

|- Folder 1
|- Sub folder
|- file0.ini
|- file1.docx
|- Sub Folder 2
|- file1.txt
|- file1.ini
|- Sub Folder 3
|- file2.ini
|- file2.txt
|- file2.docx

|- Folder 2
|- file01.ini
|- file11.docx
|- file21.xlsx
|- file31.txt

GeorgeB <george.booth3182@gmail.com> wrote:
> On Tuesday, September 20, 2022 at 2:50:06 PM UTC+1, Rich wrote:
>> Note also that you can add a list of tags to treeview items (read
>> the manpage for details). You can make use of tags for, among other
>> uses, tracking how a given row relates to the other data you are
>> marshalling.
>>
>> Note that the tags associated with an item are a Tcl list, so use
>> list operators to manipulate them.
>
> Thanks Rich,
>
> One thing I'm trying to figure out is how to filter on file
> extension.

Read the 'file' manpage, specifically the "extension" subcommand.

> Now I'm passing two folder (Folder 1 & Folder 2) to simulate the
> structure (see below), the tree structure is created as one would
> expect. However I was hoping to filter on *.ini files.
>
> In doing so I was trying to figure out were it determines the file
> names before it populates the tree.

As we have no idea what "it" is, we are at a loss to offer much in the
way of suggestions.

On 9/20/22 4:29 AM, Ralf Fassel wrote:
>>
> | bind $tw.tree <<TreeviewOpen>> \
> | [namespace code [list populateTree %W [list %W focus]]]
>
> I don't think so, since that just builds a list, but does not *execute*
> the "%W focus" when the binding is triggered. It just passes the string
> "$tw.tree focus" as second parameter to [populateTree].
>

True indeed - it does not execute any code. What it does is enable
proper substitution as the original author of that code must have
intended, and passes its result as the argument. The argument happens
to contain a valid command that can be eval'ed, e.g., in the callback proc.

I am still learning the language but my suspicion is that anyone using
"%W" would know that it is only there to be substituted with the actual
target window name later when the callback takes place. Given the fact
that the original code the OP posted was from a demo file from
ActiveState, I assumed that they would know what they were doing with
that type of callback argument construction.

I completely agree with the rest of your post.

On 9/20/22 11:30 AM, GeorgeB wrote:
>
> For Folder with out sub folder e.g. Folder 2, applying filter to "foreach f [lsort -dictionary [glob -nocomplain -dir $path *.ini]]" works, but not for folder with sub folder i.e. Folder 1
>
> |- Folder 1
> |- Sub folder
> |- file0.ini
> |- file1.docx

Hello,

I doubt that, as Rich pointed out, "it" knows that you mean to separate
files from folders. Here you are dealing with two kinds of nodes in the
tree widget, and I believe it is up to you to determine when to add a
"folder" node and when to add a ".ini" file, or something else, and
where to add them in the tree hierarchy.

On Tuesday, September 20, 2022 at 6:22:42 PM UTC+1, Rich wrote:
> GeorgeB <george.b...@gmail.com> wrote:
> > On Tuesday, September 20, 2022 at 2:50:06 PM UTC+1, Rich wrote:
> >> Note also that you can add a list of tags to treeview items (read
> >> the manpage for details). You can make use of tags for, among other
> >> uses, tracking how a given row relates to the other data you are
> >> marshalling.
> >>
> >> Note that the tags associated with an item are a Tcl list, so use
> >> list operators to manipulate them.
> >
> > Thanks Rich,
> >
> > One thing I'm trying to figure out is how to filter on file
> > extension.
> Read the 'file' manpage, specifically the "extension" subcommand.
> > Now I'm passing two folder (Folder 1 & Folder 2) to simulate the
> > structure (see below), the tree structure is created as one would
> > expect. However I was hoping to filter on *.ini files.
> >
> > In doing so I was trying to figure out were it determines the file
> > names before it populates the tree.
> As we have no idea what "it" is, we are at a loss to offer much in the
> way of suggestions.

Yes I've read that bit of the documentation and can filter within directories with extensions.

What I meant was in the code I posted in my first thread, I can't seem to figure out where to correctly apply the filter.

If I apply it where I think I should, foreach f [lsort -dictionary [glob -nocomplain -dir $path *.ini]], doesn't yield the desired result. This only seems to work with folders where files are at top level e.g. Folder 2 in my previous thread.

Hence I was trying to ascertain where within the code (as posted in the first thread), does it create a node for Folder 1 > Sub Folder > file

Since I couldn't figure it out I came asking help.

Maybe this is the downside of using demo.

Anyhoo, I'll try with fresh eyes approach tomorrow.

On Tuesday, September 20, 2022 at 6:30:31 PM UTC+1, saitology9 wrote:
> On 9/20/22 11:30 AM, GeorgeB wrote:
> >
> > For Folder with out sub folder e.g. Folder 2, applying filter to "foreach f [lsort -dictionary [glob -nocomplain -dir $path *.ini]]" works, but not for folder with sub folder i.e. Folder 1
> >
> > |- Folder 1
> > |- Sub folder
> > |- file0.ini
> > |- file1.docx
> Hello,
>
> I doubt that, as Rich pointed out, "it" knows that you mean to separate
> files from folders. Here you are dealing with two kinds of nodes in the
> tree widget, and I believe it is up to you to determine when to add a
> "folder" node and when to add a ".ini" file, or something else, and
> where to add them in the tree hierarchy.

Thanks saitology9, I'll have a think tomorrow.