Changeset 133 in Sophya for trunk/SophyaPI/PI/pistzwin.cc

Timestamp:

Aug 11, 1998, 7:19:56 PM (27 years ago)

Author:

ercodmgr

Message:

Modifs divers (const char*) et blink pour StackWin Reza 11/08/98

File:

• trunk/SophyaPI/PI/pistzwin.cc (modified) (5 diffs)

trunk/SophyaPI/PI/pistzwin.cc

@@ -7 +7 @@
 #include "psfile.h"
 
+// Fonction de l'objet PIPeriodic de PIStackWindow
+static void myadperpact(void* a);
+
+void myadperpact(void* a)
+{
+((PIStackWindow*)a)->DispNext();
+}
 /* --Methode-- */
 PIStackWindow::PIStackWindow(PIMsgHandler* par, char* nom, PIWindowKind k,
                              int sx, int sy, int px, int py)
-        : PIWindow(par, nom, k, sx, sy, px, py)
+        : PIWindow(par, nom, k, sx, sy, px, py) , mPerad(1)
 {
-curdisp = -1;
+mCurdisp = -1;
+mPerad.SetAction(myadperpact, this);
 } 
 
@@ -19 +27 @@
 PIStackWindow::~PIStackWindow()
 {
+mPerad.Stop();
+Hide();
 }
 
@@ -28 +38 @@
 PIWindow::ChildAdd(child);
 child->Manage();
-curdisp = NbChilds()-1;
+mCurdisp = NbChilds()-1;
 return;
 }
@@ -39 +49 @@
 PIWindow::ChildDel(child);
 if (NbChilds() > 0) {
-  curdisp--;
-  if (curdisp < 0)  curdisp = 0;
-  if (curdisp > NbChilds()) curdisp = NbChilds()-1; 
-  GetChild(curdisp)->Manage();
+  mCurdisp--;
+  if (mCurdisp < 0)  mCurdisp = 0;
+  if (mCurdisp > NbChilds()) mCurdisp = NbChilds()-1; 
+  GetChild(mCurdisp)->Manage();
   }
-else curdisp = -1;
+else mCurdisp = -1;
 return;
 }
@@ -65 +75 @@
 int k;
 for(k=0; k<NbChilds(); k++) GetChild(k)->UnManage();
-curdisp = (curdisp+1)%NbChilds();
-GetChild(curdisp)->Manage();
+mCurdisp = (mCurdisp+1)%NbChilds();
+GetChild(mCurdisp)->Manage();
 return;
 }
+
+/* --Methode-- */
+void PIStackWindow::StartAutoDisp(int dt)
+{
+mPerad.Start(dt);
+}
+
+/* --Methode-- */
+void PIStackWindow::StopAutoDisp()
+{
+mPerad.Stop();
+}
+
+//-------------------------------------------------------------------------------
 
 /* --Methode-- */