tclsolv: Adapt to Selection-flags change

Should have been in commit c6b300573f9974706db9dfd061b6e6c5b0e81bf8

diff --git a/examples/tclsolv b/examples/tclsolv
index 8d855be790e6175686f6155172fc8b5a190c995b..e24c1d81f6fd2b0bdbd13462cc968a771452f473 100755 (executable)
--- a/examples/tclsolv
+++ b/examples/tclsolv
@@ -636,10 +636,10 @@ foreach arg $::argv {
     puts "nothing matches '$arg'"
     exit 1
   }
-  if {[$sel flags] & $solv::Selection_SELECTION_FILELIST} {
+  if {[$sel cget -flags] & $solv::Selection_SELECTION_FILELIST} {
     puts "\[using file list match for '$arg']"
   }
-  if {[$sel flags] & $solv::Selection_SELECTION_PROVIDES} {
+  if {[$sel cget -flags] & $solv::Selection_SELECTION_PROVIDES} {
     puts "\[using capability match for '$arg']"
   }
   lappend jobs {*}[$sel jobs $cmdactionmap($cmd)]