From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 18 Oct 1995 17:20:32 +0000 (+0000)
Subject: Work on target setup in client.tcl.
X-Git-Tag: IRTCL.1.4~192
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=0755d3460cea1541d1fc12852e4e25c2c9fd771e;p=ir-tcl-moved-to-github.git

Work on target setup in client.tcl.
---

diff --git a/client.tcl b/client.tcl
index 31685b7..f08a26b 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.79  1995-10-18 16:42:37  adam
+# Revision 1.80  1995-10-18 17:20:32  adam
+# Work on target setup in client.tcl.
+#
+# Revision 1.79  1995/10/18  16:42:37  adam
 # New settings: smallSetElementSetNames and mediumSetElementSetNames.
 #
 # Revision 1.78  1995/10/18  15:45:36  quinn
@@ -1829,11 +1832,11 @@ proc protocol-setup {target} {
     global CCLCheck
     global ResultSetCheck
     
-    set b 0
-    while {[winfo exists .setup-$b]} {
-        incr b
+    set bno 0
+    while {[winfo exists .setup-$bno]} {
+        incr bno
     }
-    set w .setup-$b
+    set w .setup-$bno
 
     toplevelG $w
 
@@ -1959,9 +1962,59 @@ proc protocol-setup {target} {
     # Ok-cancel
     bottom-buttons $w [list {Ok} [list protocol-setup-action $target $w] \
             {Delete} [list protocol-setup-delete $target $w] \
+            {Advanced} [list advanced-setup $target $bno] \
             {Cancel} [list destroy $w]] 0   
 }
 
+
+proc advanced-setup {target b} {
+    global profile
+
+    set w .advanced-setup-$b
+    
+    toplevelG $w
+    
+    wm title $w "Advanced setup $target"
+    
+    top-down-window $w
+    
+    if {$target == ""} {
+        set target Default
+    }
+    dputs target
+    dputs $profile($target)
+    
+    frame $w.top.largeSetLowerBound
+    frame $w.top.smallSetUpperBound
+    frame $w.top.mediumSetPresentNumber
+    frame $w.top.presentChunk
+    frame $w.top.maximumRecordSize
+    frame $w.top.preferredMessageSize
+
+    pack $w.top.largeSetLowerBound $w.top.smallSetUpperBound \
+            $w.top.mediumSetPresentNumber $w.top.presentChunk \
+            $w.top.maximumRecordSize $w.top.preferredMessageSize \
+            -side top -anchor e -pady 2
+    
+    entry-fields $w.top {largeSetLowerBound smallSetUpperBound \
+            mediumSetPresentNumber presentChunk maximumRecordSize \
+            preferredMessageSize} \
+            {{Large Set Lower Bound:} {Small Set Upper Bound:} \
+            {Medium Set Present Number:} {Present Chunk:} \
+            {Maximum Record Size:} {Preferred Message Size:}} \
+            [list advanced-setup-action $target $b] [list destroy $w]
+    
+    bottom-buttons $w [list {Ok} [list advanced-setup-action $target $b] \
+            {Cancel} [list destroy $w]] 0   
+}
+
+proc advanced-setup-action {target b} {
+    set w .advanced-setup-$b
+
+    dputs "advanced-setup-action"
+    destroy $w
+}
+
 proc database-select-action {} {
     set w .database-select.top
     set b {}
diff --git a/ir-tcl.c b/ir-tcl.c
index cf40cb5..2e01beb 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.61  1995-10-18 16:42:42  adam
+ * Revision 1.62  1995-10-18 17:20:33  adam
+ * Work on target setup in client.tcl.
+ *
+ * Revision 1.61  1995/10/18  16:42:42  adam
  * New settings: smallSetElementSetNames and mediumSetElementSetNames.
  *
  * Revision 1.60  1995/10/18  15:43:31  adam
@@ -1411,7 +1414,7 @@ static int do_elementSetNames (void *obj, Tcl_Interp *interp,
 }
 
 /*
- * do_smallSetElementSetNames: Set/Get element Set Names
+ * do_smallSetElementSetNames: Set/Get small Set Element Set Names
  */
 static int do_smallSetElementSetNames (void *obj, Tcl_Interp *interp,
                                int argc, char **argv)
@@ -1437,7 +1440,7 @@ static int do_smallSetElementSetNames (void *obj, Tcl_Interp *interp,
 }
 
 /*
- * do_mediumSetElementSetNames: Set/Get element Set Names
+ * do_mediumSetElementSetNames: Set/Get medium Set Element Set Names
  */
 static int do_mediumSetElementSetNames (void *obj, Tcl_Interp *interp,
                                int argc, char **argv)