Changeset 1074 in Sophya

Timestamp:

Jul 17, 2000, 7:14:57 PM (25 years ago)

Author:

ercodmgr

Message:

Pb de XmForm fenetre principale sur Linux-PPC , Reza 17/7/2000

Location:

trunk/SophyaPI/PI

Files:

• Tests/pitcons.cc (modified) (1 diff)
• piapplx.cc (modified) (5 diffs)
• picontainerx.cc (modified) (2 diffs)
• piwdgx.cc (modified) (5 diffs)

trunk/SophyaPI/PI/Tests/pitcons.cc

@@ -102 +102 @@
 PITApp::~PITApp()
 {
+  MainWin()->Hide();  // Pb de plantage de ~PIConsole(), delete mScb , 07/2000
+  //  cerr << " Deleting scons ... \n " << endl;
   if (scons) delete scons;
+  //  cerr << " Deleting cons ... \n " << endl;
   if (cons) delete cons;
+  //  cerr << " end of  PITApp::~PITApp()... \n " << endl;
 }  
 

trunk/SophyaPI/PI/piapplx.cc

@@ -1 +1 @@
 #include <stdio.h>
 #include <X11/cursorfont.h>
+#include <X11/IntrinsicP.h>
 #include "piapplx.h"
 #include "picontainerx.h"
@@ -42 +43 @@
 };
 
+
 /* --Methode-- */
 PITopContAppX::PITopContAppX(PIContainer *par, char *nom, PIWdg* topw, int sx, int sy, int px, int py)
@@ -59 +61 @@
 {
 if ((sx <10) || (sy < 10) ) return; 
+
+int px = XPos();
+int py = YPos();
 #if !defined(SunOS)
 // Probleme sur Sun - Reza 10/99
-mTopWdg->SetSize(sx+XPos(), sy+YPos());
-#endif
-Parent()->SetSize(sx+XPos(), sy+YPos());
+mTopWdg->SetSize(sx+px, sy+py);
+#endif
+
+XtConfigureWidget(Parent()->XtWdg(),  0, 0, sx+px, sy+py, 0);
+
+// Parent()->SetPos(0, 0);
+// Parent()->SetSize(sx+px, sy+py);
 // PIContainer::SetSize(sx, sy);   Probleme sur Sun - Reza 9/08/99
+
+XtConfigureWidget(XtWdg(),  px, py, sx, sy, 0);
+
+// SetPos(px, py);
+// PIContainer::SetSize(sx, sy); 
 }
 
@@ -112 +126 @@
 MBCont()->Show();
 //DBG printf("PIApplicationX-DBG2:: MBContSize=%d %d \n", MBCont()->XSize(), MBCont()->YSize());
-//DBG printf("PIApplicationX-DBG2:: topcontSize=%d %d \n", MainWin()->XSize(), MainWin()->YSize());
+
 
 topcont->Show();
@@ -164 +178 @@
 // Pour appeler FinishCreate() des objets dans la fenetre principale 
 if (mStop) { // C'est la premiere fois
-  topwdg->SetSize(MBCont()->XSize(), MBCont()->YSize());
+  topcont->SetSize(topcont->XSize(), topcont->YSize());
+  // topwdg->SetSize(MBCont()->XSize(), MBCont()->YSize());
   MBCont()->FinishCreate();   
   }

trunk/SophyaPI/PI/picontainerx.cc

@@ -17 +17 @@
   CreateXtWdg(nom, xmFormWidgetClass , NULL, sx, sy, px, py);
   int fbase = PIXMFORMFRACBASE ;  // Valeur de XmNfractionBase des XmForm ds PIContainerX
-  Arg  wargs[2];
+  Arg  wargs[5];
   int n=0;
   XtSetArg(wargs[n],XmNfractionBase, fbase);  n++;
+  XtSetArg(wargs[n],XmNhorizontalSpacing, 0);  n++;
+  XtSetArg(wargs[n],XmNverticalSpacing, 0);  n++;
   XtSetValues(XtWdg(), wargs, n);
   }
@@ -35 +37 @@
   CreateXtWdg(nom, xmFormWidgetClass , parwdg->XtWdg(), sx, sy, px, py);
   int fbase = PIXMFORMFRACBASE ;  // Valeur de XmNfractionBase des XmForm ds PIContainerX
-  Arg  wargs[2];
+  Arg  wargs[5];
   int n=0;
   XtSetArg(wargs[n],XmNfractionBase, fbase);  n++;
+  XtSetArg(wargs[n],XmNhorizontalSpacing, 0);  n++;
+  XtSetArg(wargs[n],XmNverticalSpacing, 0);  n++;
   XtSetValues(XtWdg(), wargs, n);
   }

trunk/SophyaPI/PI/piwdgx.cc

@@ -398 +398 @@
 int frpos = 0;
 float frac;
-Arg  wargs[9];
+Arg  wargs[13];
 int n=0;
 
@@ -417 +417 @@
     frpos = frac*fbase;
     XtSetArg(wargs[n],XmNleftPosition, frpos );  n++;
+    XtSetArg(wargs[n],XmNleftOffset, 0 );  n++;
     break;
   default :
@@ -438 +439 @@
     frpos = frac*fbase;
     XtSetArg(wargs[n],XmNtopPosition, frpos );  n++;
+    XtSetArg(wargs[n],XmNtopOffset, 0 );  n++;
     break;
   default :
@@ -459 +461 @@
     frpos = frac*fbase;
     XtSetArg(wargs[n],XmNrightPosition, frpos );  n++;
+    XtSetArg(wargs[n],XmNrightOffset, 0 );  n++;
     break;
   default : 
@@ -481 +484 @@
     frpos = frac*fbase;
     XtSetArg(wargs[n],XmNbottomPosition, frpos );  n++;
+    XtSetArg(wargs[n],XmNbottomOffset, 0 );  n++;
     break;
   default :