From 9cd7f5ba39d6e945aea6c38721a4d2aacc5c0cbb Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Thu, 2 Jul 2009 13:46:46 +0000
Subject: show first schemes, then collections, then packages in the list of
 packages in the GUI

git-svn-id: svn://tug.org/texlive/trunk@14071 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index 89835da02e8..f06a35c393d 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -560,6 +560,7 @@ sub create_update_list {
 sub setup_list {
   my $addi = shift;
   my @ret;
+  my @colls;
   my @other;
   foreach my $p (@_) {
     if ($p !~ m;\.;) {
@@ -572,14 +573,16 @@ sub setup_list {
         }
       }
       $pushstr .= "$p";
-      if ($p =~ m;^collection-;) {
+      if ($p =~ m;^scheme-;) {
         push @ret, $pushstr;
+      } elsif ($p =~ m;^collection-;) {
+        push @colls, $pushstr;
       } else {
         push @other, $pushstr;
       }
     }
   }
-  push @ret, @other;
+  push @ret, @colls, @other;
   return(@ret);
 }
 
-- 
cgit v1.2.3