[Nsclspectcl-cvscommits] SF.net SVN: nsclspectcl: [1456] branches/SpecTcl-3-1-maintenance/SpecTcl/ Display

[<ro...@us...>]

Revision: 1456
          http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1456&view=rev
Author:   ron-fox
Date:     2007-12-27 07:35:21 -0800 (Thu, 27 Dec 2007)

Log Message:
-----------
Misc 64 bit cleanups

Modified Paths:
--------------
    branches/SpecTcl-3-1-maintenance/SpecTcl/Display/colorset.cc
    branches/SpecTcl-3-1-maintenance/SpecTcl/Display/copyatr.cc

Modified: branches/SpecTcl-3-1-maintenance/SpecTcl/Display/colorset.cc
===================================================================
--- branches/SpecTcl-3-1-maintenance/SpecTcl/Display/colorset.cc	2007-12-27 15:35:04 UTC (rev 1455)
+++ branches/SpecTcl-3-1-maintenance/SpecTcl/Display/colorset.cc	2007-12-27 15:35:21 UTC (rev 1456)
@@ -1399,7 +1399,7 @@
 */
 void pb_callback(XMWidget *wid, XtPointer cli, XtPointer cbd)
 {
-  int button_number = (int)cli;
+  long button_number = (long)cli;
   XMPushButton *help;
   static  color_entry *entry;
 

Modified: branches/SpecTcl-3-1-maintenance/SpecTcl/Display/copyatr.cc
===================================================================
--- branches/SpecTcl-3-1-maintenance/SpecTcl/Display/copyatr.cc	2007-12-27 15:35:04 UTC (rev 1455)
+++ branches/SpecTcl-3-1-maintenance/SpecTcl/Display/copyatr.cc	2007-12-27 15:35:21 UTC (rev 1456)
@@ -1465,9 +1465,9 @@
 void AttributeCopyDialog::OkPressed(XMWidget *buton, XtPointer user_d, 
 				    XtPointer call_d)
 {
-  int     dmis    = (int)user_d;
-  Boolean dismiss = (Boolean)dmis;
+  Boolean dismiss = (Boolean)(user_d != (XtPointer)0);
 
+
   /* Perform the copy operation. */
 
   CopyAttributes(WorkAreaContents);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.