| blob | 416583180b8e35d46c4d57dbde54bb1bc4e93b2a |
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 #rename -background -textbackground textBackground TextBackground
169 }
188 # Geometry <<<
194 # Geometry >>>
196 # Setup mousewheel x and y scrolling <<<
203 # Setup mousewheel x and y scrolling >>>
204 # (a) create the treeview >>>
208 # (b) create the criteria form (server-side searching) <<<
225 }
231 }
232 # (b) create the criteria form (server-side searching) >>>
234 # (c) create the toolbar (if necessary) <<<
236 # (c) create the toolbar (if necessary) >>>
238 # (d) the filter (client-side searching) <<<
240 # (d) the filter (client-side searching) >>>
242 # (e) layout with table <<<
243 relayout
244 # (e) end layout with table >>>
246 # get an item dialogue
248 }
252 #destroy $w.treeframe.list ;# DIE DIE DIE
256 }
257 }
263 #after idle [code $this onclick "" 1] ;# Fake click to blank any existing selection
268 array unset tmp
273 }
274 array unset tmp
275 }
277 # get data to load <<<
281 # get data to load >>>
283 clear
285 # if the data's headers have changed, update the treeview columns <<<
288 # but why? <<<
289 # the first "name" returned should be treeview,
290 # but is something not quite
291 # that; still we don't want to remove it
292 # (unless we are seeking segfaults)
293 # note that the placement of this column is only because
294 # i have chosen to insert
295 # after it -- it's not a hard rule that the first col
296 # is the treeview >>>
297 # remove old headers <<<
300 }
301 # remove old headers >>>
302 # get format options for headers <<<
303 # (which may have, conceivably, changed, if the field list has changed)
308 }
312 #array set colwidths $itk_option(-column_widths)
314 # get format options for headers >>>
315 # Get id column and name <<<
318 #puts "Browse_treeview_flat::refresh: id_col: ($id_col) id_col_name: ($id_col_name)"
319 # Get id column and name >>>
331 }
337 }
339 #if {[info exists colwidths($col)]} {
340 # $tv column configure $col -width $colwidths($col)
341 #}
342 }
343 }
344 # if the data's headers have changed, update the treeview columns >>>
346 # Handle the id column (hide, etc) <<<
350 }
351 # Handle the id column (hide, etc) >>>
353 # load up the data <<<
364 }
366 }
367 # load up the data >>>
369 # Re-apply the filter
370 form_filter
372 style_tree
374 # Attempt to restore selection <<<
379 array unset tmp
387 }
390 parray tmp
391 }
392 array unset tmp
393 }
396 }
397 # Attempt to restore selection >>>
399 selection_changed
400 }
403 $datatree delete root
405 }
408 # sort the treeview on a certain column
409 # unscrupulously ripped from the blt treeview demo
415 }
419 }
420 $tv sort auto yes
421 style_tree $tree_style
423 update
425 }
435 }
436 }
438 }
441 # populate with defaults
445 need_refresh
452 }
453 }
456 invoke_handlers onadd $row
457 invoke_handlers onadd_id $row_id
458 }
462 # check that the oldrow only contains one row: updating multiple rows is not supported
464 log debug "multiple row updates are not supported"
471 need_refresh
476 }
480 invoke_handlers onupdate $row
481 invoke_handlers onupdate_id $row_id
482 }
483 }
486 # set up a mini-description of the item
494 }
505 }
506 }
508 invoke_handlers ondelete_array $item
509 invoke_handlers ondelete $row
510 invoke_handlers ondelete_id $row_id
511 }
512 need_refresh
513 }
514 }
517 }
520 # returns a site referenced by a keyword -- to be used by a parent that wishes to inject something into one of the sites
528 log error "Unable to return reference to site $sitename -- site should be one of: criteria,actions,filter,tree|list"
530 }
531 }
532 }
535 # comments about the function <<<
536 # for each node in the current treeview, we see if it matches up with
537 # the search string, and if so, it gets to stay.
538 # If not, it gets dumped in the removed_nodes variable (which is just
539 # a list of lists)
540 # This variable is also checked for matches, which are added back
541 # into the tree if found
542 # >>>
543 # set up the filter array
549 }
553 log debug "enter"
560 }
561 }
562 }
563 log debug "leave"
564 }
567 }
568 }
569 }
573 }
577 need_refresh
579 }
586 }
588 }
596 }
605 }
606 }
615 }
617 #puts "onclick: nodeid: ($nodeid) data: ($data) selection present: ([$tv selection present])"
624 }
625 }
628 }
629 }
635 #puts "\n\nBrowse_treeview_flat::action_add:\n\torient: ($itk_option(-actions_orient))\n\tbuttonwidth: ($itk_option(-action_buttonwidth))\n\n"
640 }
653 button."
654 }
655 }
667 button."
668 }
669 }
681 button."
682 }
683 }
689 }
693 }
694 }
695 }
701 }
702 }
704 }
707 #puts "Browse_treeview_flat::action_attach_signal ($label) ($signal) ($sense)"
709 }
714 }
719 }
726 }
727 }
728 #puts "generating popup with schema: ($menu_schema $pop_commands)"
731 }
739 }
743 # implement some fairly standard search capabilities
756 }
765 }
774 }
784 }
786 }
787 }
792 }
795 }
805 }
810 }
823 }
834 }
836 }
843 }
844 # initial filtering method notes: <<<
845 # we have two possible filter methods: and and or (keeping it simple)
846 # for the case of an or, we start with a blank datatree and add in
847 # the elements from the shadowtree that make the grade.
848 # for the case of an and, we start with a filled datatree and remove
849 # items that violate the filtering rules
850 # >>>
856 }
857 }
858 cache_col_widths
862 log debug "enter"
863 $datatree delete root
873 }
874 }
875 log debug "populated"
876 #puts "filtercode:"
877 #parray filtercode
880 }
887 }
888 }
889 }
890 }
891 log debug "leave"
892 }
893 }
894 restore_col_widths
895 }
904 }
905 }
914 }
917 # ok, bear with me: i'm trying to keep the miniumum of checks on the
918 # inner loop, so there are a lot of variations on a theme here
928 }
929 }
930 }
931 }
932 }
942 }
943 }
944 }
945 }
946 }
947 }
954 }
955 }
960 }
961 }
967 }
968 }
969 }
975 # flat, light look
989 -relief solid
990 # -titleshadow ""
991 }
992 }
994 # tries to make the listview fit in with the chrome of the system
1013 # -titleshadow ""
1014 }
1015 }
1016 }
1017 }
1021 }
1026 do_refresh
1027 }
1029 }
1043 # Restrict row and col growth to those containing the list <<<
1050 }
1054 # Restrict row and col growth to those containing the list >>>
1055 }
1063 }
1064 }
1076 }
1077 }
1085 }
1086 }
1090 }
1091 }
1092 }
1097 }
1103 need_refresh
1104 }
1111 invoke_handlers $cb $row
1113 }