| blob | 558732751fc4a2d1615d2cb9ba273e6b6dbbbe42 |
1 # vim: ft=tcl foldmarker=<<<,>>>
10 destructor {}
14 itk_option define -actions_orient actionsOrient ActionsOrient h
17 itk_option define -yscrollmode yScrollMode YScrollMode static
18 itk_option define -xscrollmode xScrollMode XScrollMode dynamic
20 public {
21 # inherited, overridden interface
22 method refresh {}
23 method clear {}
24 method add_item {}
25 method update_item {}
26 method remove_item {}
28 method get_selected_items {}
31 method action_add_supported {}
39 # specific to this implementation
47 # for the inbuilt functions: choose case insenstivity or not
48 # for the inbuilt functions: toggle display of case-sensitive checkbutton
57 method get_criteria_form {}
58 method reload_from_criteria_form {}
59 # site references
63 method get_tv_ref {}
65 method component_actions {}
66 }
68 protected {
69 method relayout {}
70 }
72 private {
73 variable tv
74 variable tb
75 variable datatree
79 variable cf
86 variable filtercode
87 variable filterframe
89 variable last_filter
91 variable filtered_nodes
93 variable cached_col_widths
94 variable selection_present
98 method selection_changed {}
99 method render_filters {}
101 method partial_match {filterarray rowarray type
103 method cache_col_widths {}
104 method restore_col_widths {}
106 }
107 }
112 }
117 }
123 }
124 }
128 #puts "Browse_treeview_flat: Reconfiguring action_buttonwidth: ($itk_option(-action_buttonwidth))"
132 }
133 }
139 }
140 }
148 # (a) create the treeview <<<
149 # (i) create widget
152 # puts "constructing:
153 # blt::treeview $f.list -width 130 -height 200 \\
154 # -xscrollcommand [list $f.hs set] \\
155 # -yscrollcommand [list $f.vs set] \\
156 # -hideroot 1 \\
157 # -exportselection 1 \\
158 # -selectcommand [code $this selection_changed] \\
159 # -flat 1 \\
160 # -tree $datatree
161 # "
164 itk_component add listview {
166 } {
167 keep -takefocus -selectmode -width -height
168 }
187 # Geometry <<<
193 # Geometry >>>
195 # Setup mousewheel x and y scrolling <<<
202 # Setup mousewheel x and y scrolling >>>
203 # (a) create the treeview >>>
207 # (b) create the criteria form (server-side searching) <<<
224 }
230 }
231 # (b) create the criteria form (server-side searching) >>>
233 # (c) create the toolbar (if necessary) <<<
235 # (c) create the toolbar (if necessary) >>>
237 # (d) the filter (client-side searching) <<<
239 # (d) the filter (client-side searching) >>>
241 # (e) layout with table <<<
242 relayout
243 # (e) end layout with table >>>
245 # get an item dialogue
247 }
251 #destroy $w.treeframe.list ;# DIE DIE DIE
255 }
256 }
264 # get data to load <<<
268 # get data to load >>>
270 clear
272 # if the data's headers have changed, update the treeview columns <<<
275 # but why? <<<
276 # the first "name" returned should be treeview,
277 # but is something not quite
278 # that; still we don't want to remove it
279 # (unless we are seeking segfaults)
280 # note that the placement of this column is only because
281 # i have chosen to insert
282 # after it -- it's not a hard rule that the first col
283 # is the treeview >>>
284 # remove old headers <<<
287 }
288 # remove old headers >>>
289 # get format options for headers <<<
290 # (which may have, conceivably, changed, if the field list has changed)
295 }
299 #array set colwidths $itk_option(-column_widths)
301 # get format options for headers >>>
302 # Get id column and name <<<
305 #puts "Browse_treeview_flat::refresh: id_col: ($id_col) id_col_name: ($id_col_name)"
306 # Get id column and name >>>
318 }
324 }
326 #if {[info exists colwidths($col)]} {
327 # $tv column configure $col -width $colwidths($col)
328 #}
329 }
330 }
331 # if the data's headers have changed, update the treeview columns >>>
333 # Handle the id column (hide, etc) <<<
337 }
338 # Handle the id column (hide, etc) >>>
340 # load up the data <<<
351 }
353 }
354 # load up the data >>>
356 # Re-apply the filter
357 form_filter
359 style_tree
360 selection_changed
361 }
364 $datatree delete root
366 }
369 # sort the treeview on a certain column
370 # unscrupulously ripped from the blt treeview demo
376 }
380 }
381 $tv sort auto yes
382 style_tree $tree_style
384 update
386 }
396 }
397 }
399 }
402 # populate with defaults
406 need_refresh
413 }
414 }
417 invoke_handlers onadd $row
418 invoke_handlers onadd_id $row_id
419 }
423 # check that the oldrow only contains one row: updating multiple rows is not supported
425 log debug "multiple row updates are not supported"
432 need_refresh
437 }
441 invoke_handlers onupdate $row
442 invoke_handlers onupdate_id $row_id
443 }
444 }
447 # set up a mini-description of the item
455 }
466 }
467 }
469 invoke_handlers ondelete_array $item
470 invoke_handlers ondelete $row
471 invoke_handlers ondelete_id $row_id
472 }
473 need_refresh
474 }
475 }
478 }
481 # returns a site referenced by a keyword -- to be used by a parent that wishes to inject something into one of the sites
489 log error "Unable to return reference to site $sitename -- site should be one of: criteria,actions,filter,tree|list"
491 }
492 }
493 }
496 # comments about the function <<<
497 # for each node in the current treeview, we see if it matches up with
498 # the search string, and if so, it gets to stay.
499 # If not, it gets dumped in the removed_nodes variable (which is just
500 # a list of lists)
501 # This variable is also checked for matches, which are added back
502 # into the tree if found
503 # >>>
504 # set up the filter array
510 }
514 log debug "enter"
521 }
522 }
523 }
524 log debug "leave"
525 }
528 }
529 }
530 }
534 }
538 need_refresh
540 }
547 }
549 }
557 }
566 }
567 }
576 }
578 #puts "onclick: nodeid: ($nodeid) data: ($data) selection present: ([$tv selection present])"
585 }
586 }
589 }
590 }
596 #puts "\n\nBrowse_treeview_flat::action_add:\n\torient: ($itk_option(-actions_orient))\n\tbuttonwidth: ($itk_option(-action_buttonwidth))\n\n"
601 }
614 button."
615 }
616 }
628 button."
629 }
630 }
642 button."
643 }
644 }
650 }
654 }
655 }
656 }
662 }
663 }
665 }
668 #puts "Browse_treeview_flat::action_attach_signal ($label) ($signal) ($sense)"
670 }
675 }
680 }
687 }
688 }
689 #puts "generating popup with schema: ($menu_schema $pop_commands)"
692 }
700 }
704 # implement some fairly standard search capabilities
717 }
726 }
735 }
745 }
747 }
748 }
753 }
756 }
766 }
771 }
784 }
795 }
797 }
804 }
805 # initial filtering method notes: <<<
806 # we have two possible filter methods: and and or (keeping it simple)
807 # for the case of an or, we start with a blank datatree and add in
808 # the elements from the shadowtree that make the grade.
809 # for the case of an and, we start with a filled datatree and remove
810 # items that violate the filtering rules
811 # >>>
817 }
818 }
819 cache_col_widths
823 log debug "enter"
824 $datatree delete root
834 }
835 }
836 log debug "populated"
837 #puts "filtercode:"
838 #parray filtercode
841 }
848 }
849 }
850 }
851 }
852 log debug "leave"
853 }
854 }
855 restore_col_widths
856 }
865 }
866 }
875 }
878 # ok, bear with me: i'm trying to keep the miniumum of checks on the
879 # inner loop, so there are a lot of variations on a theme here
889 }
890 }
891 }
892 }
893 }
903 }
904 }
905 }
906 }
907 }
908 }
915 }
916 }
921 }
922 }
928 }
929 }
930 }
936 # flat, light look
950 -relief solid
951 # -titleshadow ""
952 }
953 }
955 # tries to make the listview fit in with the chrome of the system
973 # -titleshadow ""
974 }
975 }
976 }
977 }
981 }
986 do_refresh
987 }
989 }
1003 # Restrict row and col growth to those containing the list <<<
1010 }
1014 # Restrict row and col growth to those containing the list >>>
1015 }
1023 }
1024 }
1036 }
1037 }
1045 }
1046 }
1050 }
1051 }
1052 }
1057 }
1063 need_refresh
1064 }
1071 invoke_handlers $cb $row
1073 }