BLT 2.3's now-absent drag&drop `config' option

[Marcus G. Daniels]

In the files:

   swarm/src/simtools/{ClassDisplayWidget.m,
                       MessageProbeWidget.m,
                       SimpleProbeDisplay.m,
                       VarProbeWidget.m}

the calls to the drag&drop BLT extension use a `config' tag before listing
options; however, in BLT 2.3, this tag has been dropped.  The symptom
of the problem looks like so:

(Tcl -eval:) bad operation "config": must be "handler" or a configuration option
    while executing
"drag&drop source 
.w100db6a8.w100de040.w100db3b0.w100de5e0.w100de630.w100de680.w100de6d0 config 
-packagecmd {do_package address@hidden  ..."
while evaluating: drag&drop source 
.w100db6a8.w100de040.w100db3b0.w100de5e0.w100de630.w100de680.w100de6d0 config 
-packagecmd {do_package address@hidden -sitecmd sitecmd -button 1
(Tcl -eval:) bad operation "config": must be "handler" or a configuration option
    while executing
"drag&drop source 
.w100db6a8.w100de040.w100db3b0.w100de5e0.w100ea850.w100ea8f0.w100ead00 config 
-packagecmd {do_package address@hidden -sit ..."
while evaluating: drag&drop source 
.w100db6a8.w100de040.w100db3b0.w100de5e0.w100ea850.w100ea8f0.w100ead00 config 
-packagecmd {do_package address@hidden -sitecmd sitecmd -button 1

In the workaround below, unless there is something like this:

  EXTRACFLAGS=-DBLT_DRAG_AND_DROP_CONFIG_TAG="" 

in Makefile.conf, the BLT-2.1 expectation remains.

diff -r -c /u/marcus/src/swarm-1.0.3/src/tkobjc/tkobjc.h 
swarm/src/tkobjc/tkobjc.h
*** /u/marcus/src/swarm-1.0.3/src/tkobjc/tkobjc.h       Tue Oct  1 19:53:08 1996
--- swarm/src/tkobjc/tkobjc.h   Sat Sep 27 09:01:32 1997
***************
*** 30,32 ****
--- 30,36 ----
  #import <tkobjc/OvalNodeItem.h>
  #import <tkobjc/LinkItem.h>
  #import <tkobjc/global.h>
+ 
+ #ifndef BLT_DRAG_AND_DROP_CONFIG_TAG
+ #define BLT_DRAG_AND_DROP_CONFIG_TAG "config"
+ #endif
diff -c -r /u/marcus/src/swarm-1.0.3/src/simtools/ClassDisplayWidget.m 
swarm/src/simtools/ClassDisplayWidget.m
*** /u/marcus/src/swarm-1.0.3/src/simtools/ClassDisplayWidget.m Tue Oct  1 
20:30:32 1996
--- swarm/src/simtools/ClassDisplayWidget.m     Sat Sep 27 08:31:25 1997
***************
*** 104,110 ****
      eval: "%s configure -anchor w -foreground blue", [myTitle getWidgetName]] 
;
  
    [globalTkInterp 
!         eval: "drag&drop source %s config -packagecmd {do_package %s} 
-sitecmd sitecmd -button 1", 
          [myTitle getWidgetName],
          tclObjc_objectToName(self)] ;
    [globalTkInterp
--- 104,110 ----
      eval: "%s configure -anchor w -foreground blue", [myTitle getWidgetName]] 
;
  
    [globalTkInterp 
!         eval: "drag&drop source %s " BLT_DRAG_AND_DROP_CONFIG_TAG " 
-packagecmd {do_package %s} -sitecmd sitecmd -button 1", 
          [myTitle getWidgetName],
          tclObjc_objectToName(self)] ;
    [globalTkInterp
diff -c -r /u/marcus/src/swarm-1.0.3/src/simtools/MessageProbeWidget.m 
swarm/src/simtools/MessageProbeWidget.m
*** /u/marcus/src/swarm-1.0.3/src/simtools/MessageProbeWidget.m Thu May  1 
09:34:37 1997
--- swarm/src/simtools/MessageProbeWidget.m     Sat Sep 27 08:32:36 1997
***************
*** 70,76 ****
          [self getWidgetName]] ;
        [globalTkInterp 
          eval: 
!    "drag&drop source %s config -packagecmd {do_package %s} -sitecmd sitecmd 
-button 1", 
            [result getWidgetName],
            tclObjc_objectToName(self)] ;
          [globalTkInterp eval: "drag&drop source %s handler id send_id", 
--- 70,76 ----
          [self getWidgetName]] ;
        [globalTkInterp 
          eval: 
!    "drag&drop source %s " BLT_DRAG_AND_DROP_CONFIG_TAG " -packagecmd 
{do_package %s} -sitecmd sitecmd -button 1", 
            [result getWidgetName],
            tclObjc_objectToName(self)] ;
          [globalTkInterp eval: "drag&drop source %s handler id send_id", 
***************
*** 157,163 ****
            [myWidgets[i] getWidgetName],
            tclObjc_objectToName(self), which_arg] ;
  
!          [globalTkInterp eval: "drag&drop source %s config -packagecmd 
{do_package_arg %s %d} -sitecmd sitecmd -button 1", 
              [myWidgets[i] getWidgetName],
              tclObjc_objectToName(self),which_arg] ;
  
--- 157,163 ----
            [myWidgets[i] getWidgetName],
            tclObjc_objectToName(self), which_arg] ;
  
!          [globalTkInterp eval: "drag&drop source %s " 
BLT_DRAG_AND_DROP_CONFIG_TAG " -packagecmd {do_package_arg %s %d} -sitecmd 
sitecmd -button 1", 
              [myWidgets[i] getWidgetName],
              tclObjc_objectToName(self),which_arg] ;
  
diff -c -r /u/marcus/src/swarm-1.0.3/src/simtools/SimpleProbeDisplay.m 
swarm/src/simtools/SimpleProbeDisplay.m
*** /u/marcus/src/swarm-1.0.3/src/simtools/SimpleProbeDisplay.m Fri Mar 21 
07:21:38 1997
--- swarm/src/simtools/SimpleProbeDisplay.m     Sat Sep 27 08:31:44 1997
***************
*** 89,95 ****
      eval: "%s configure -anchor w -foreground blue", [myTitle getWidgetName]] 
;
  
    [globalTkInterp 
!         eval: "drag&drop source %s config -packagecmd {do_package %s} 
-sitecmd sitecmd -button 1", 
          [myTitle getWidgetName],
          tclObjc_objectToName(self)] ;
    [globalTkInterp
--- 89,95 ----
      eval: "%s configure -anchor w -foreground blue", [myTitle getWidgetName]] 
;
  
    [globalTkInterp 
!         eval: "drag&drop source %s " BLT_DRAG_AND_DROP_CONFIG_TAG " 
-packagecmd {do_package %s} -sitecmd sitecmd -button 1", 
          [myTitle getWidgetName],
          tclObjc_objectToName(self)] ;
    [globalTkInterp
diff -c -r /u/marcus/src/swarm-1.0.3/src/simtools/VarProbeWidget.m 
swarm/src/simtools/VarProbeWidget.m
*** /u/marcus/src/swarm-1.0.3/src/simtools/VarProbeWidget.m     Tue Oct  1 
20:31:07 1996
--- swarm/src/simtools/VarProbeWidget.m Sat Sep 27 08:31:51 1997
***************
*** 108,114 ****
        [myEntry getWidgetName],
        tclObjc_objectToName(self)] ;
  
!     [globalTkInterp eval: "drag&drop source %s config -packagecmd {do_package 
%s} -sitecmd sitecmd -button 1", 
          [myEntry getWidgetName],
          tclObjc_objectToName(self)] ;
  
--- 108,114 ----
        [myEntry getWidgetName],
        tclObjc_objectToName(self)] ;
  
!     [globalTkInterp eval: "drag&drop source %s " BLT_DRAG_AND_DROP_CONFIG_TAG 
" -packagecmd {do_package %s} -sitecmd sitecmd -button 1", 
          [myEntry getWidgetName],
          tclObjc_objectToName(self)] ;




                  ==================================
   Swarm-Support is for discussion of the technical details of the day
   to day usage of Swarm.  For list administration needs (esp.
   [un]subscribing), please send a message to <address@hidden>
   with "help" in the body of the message.
                  ==================================