Changeset acc9f1a in tol

Timestamp:

Jan 9, 2012, 10:58:49 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

6b78409

Parents:

7f11e05

Message:

refs #1191, avisamos de las opciones no implementadas todavía

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4000 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolpkg_gui.tcl (modified) (7 diffs)

tolbase/lib/toltk/tolpkg_gui.tcl

@@ -747 +747 @@
           set statusLabel "ok"
         } else {
+          puts "$pv OUTDATED : $dateremote > $datelocal"
           set img "software_update_16"
           set nodeStatus update
@@ -1189 +1190 @@
   variable installData
 
-  puts "InstallPackages: $pkgs"
   array unset installData
   foreach p $pkgs {
@@ -1301 +1301 @@
   variable installData
 
-  puts "UpgradePackages: $pkgs"
   if { ![ CheckConnectionConfig ] } {
     return 
@@ -1313 +1312 @@
   } else {
     # upgrade all, look for the list
+    Unimplemented "Upgrade all packages"
+    return
   }
   DlgProcess $upgradeList -title [ mc "Upgrade packages" ] \
@@ -1336 +1337 @@
   } else {
     # upgrade all, look for the list
+    Unimplemented "Update all packages"
+    return
   }
   DlgProcess $updateList -title [ mc "Update packages" ] \
@@ -1344 +1347 @@
 
 proc ::TolPkgGUI::ImportSyncInfo { } {
+  Unimplemented "Import Sync Info"
+}
+
+proc ::TolPkgGUI::Unimplemented { title } {
+  variable win
+
+  MessageDlg $win.ask -parent $win -title [ mc $title ] \
+      -icon warning \
+      -type ok -message [ mc "Unimplemented option" ]
 }
 
 proc ::TolPkgGUI::ExportSyncInfo { } {
+  Unimplemented "Export Sync Info"
 }
 
@@ -1370 +1383 @@
   if { ![ CheckConnectionConfig ] } {
     return 
+  }
+  if { ![ llength $pkgs ] } {
+    Unimplemented "Export all packages"
+    return
   }
   set remote {}