X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client.tcl;h=fa9e4c0278ea25fb92e5613782dec6e5442b5c6a;hb=5196b7077c82880b814cbacda5c05038c4b2c9ea;hp=52c3064089d8af8637e181102f35786fa1c4a85a;hpb=7dd77a1b99f5d7202ec35d7a9d31266799290eb2;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 52c3064..fa9e4c0 100644
--- a/client.tcl
+++ b/client.tcl
@@ -1,6 +1,13 @@
 #
 # $Log: client.tcl,v $
-# Revision 1.16  1995-03-31 08:56:36  adam
+# Revision 1.18  1995-04-10 10:50:22  adam
+# Result-set name defaults to suffix of ir-set name.
+# Started working on scan. Not finished at this point.
+#
+# Revision 1.17  1995/03/31  09:34:57  adam
+# Search-button disabled when there is no connection.
+#
+# Revision 1.16  1995/03/31  08:56:36  adam
 # New button "Search".
 #
 # Revision 1.15  1995/03/28  12:45:22  adam
@@ -229,7 +236,7 @@ proc set-target-hotlist {} {
     set i 1
     foreach target $hotTargets {
         .top.target.m add command -label "$i $target" -command \
-                "menu-open-target $target {}"
+                "reopen-target $target {}"
         incr i
         if {$i > 8} {
              break
@@ -237,7 +244,8 @@ proc set-target-hotlist {} {
     }
 }
 
-proc menu-open-target {target base} {
+proc reopen-target {target base} {
+    close-target
     open-target $target $base
     update-target-hotlist $target
 }
@@ -297,6 +305,7 @@ proc open-target {target base} {
     set hostid $target
     .top.target.m disable 0
     .top.target.m enable 1
+    .top.search configure -state normal
 }
 
 proc close-target {} {
@@ -309,6 +318,7 @@ proc close-target {} {
     show-message {}
     .top.target.m disable 1
     .top.target.m enable 0
+    .top.search configure -state disabled
 }
 
 proc load-set-action {} {
@@ -379,6 +389,8 @@ proc search-request {} {
 
     if {[lindex $profile($target) 10]} {
         z39.$setNo setName $setNo
+    } else {
+        z39.$setNo setName Default
     }
     if {[lindex $profile($target) 8]} {
         z39 query rpn
@@ -426,6 +438,9 @@ proc present-more {number} {
     global setMax
 
     puts "present-more"
+    if {$setNo == 0} {
+	return
+    }
     set max [z39.$setNo resultCount]
     if {$max <= $setMax} {
         return
@@ -585,7 +600,6 @@ proc protocol-setup-action {target} {
     destroy .setup-${target}
 }
 
-
 proc place-force {window parent} {
     set g [wm geometry $parent]
 
@@ -597,7 +611,6 @@ proc place-force {window parent} {
     wm geometry $window +${x}+${y}
 }
 
-
 proc add-database-action {target} {
     set w .setup-${target}
     
@@ -812,11 +825,11 @@ proc cascade-target-list {} {
                 menu .top.target.m.clist.$nl
                 foreach b [lindex $profile($n) 7] {
                     .top.target.m.clist.$nl add command -label $b \
-                            -command "menu-open-target $n $b"
+                            -command "reopen-target $n $b"
                 }
             } else {
                 .top.target.m.clist add command -label $n \
-                        -command "menu-open-target $n {}"
+                        -command "reopen-target $n {}"
             }
         }
     }
@@ -925,6 +938,7 @@ menu .top.search.m.querytype
 menu .top.search.m.present
 .top.search.m.present add command -label "More" -command [list present-more 10]
 .top.search.m.present add command -label "All" -command [list present-more {}]
+.top.search configure -state disabled
 
 menubutton .top.help -text "Help" -menu .top.help.m
 menu .top.help.m