Changeset 25 for trunk/lingosource

Timestamp:

09/14/07 13:34:02 (5 years ago)

Author:

alex

Message:

commit test

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (4 diffs)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -5820 +5820 @@
   retval = 0
   
-  if pStatusMode = On_Off then return retval
-  pStatusMode = 0
+  if pStatusMode = 0 then
+    if On_Off = 0 then
+      return retval
+    end if
+  else
+    if On_Off = 1 then
+      return retval
+    end if
+  end if
+  
   
   pHandlerMenuWindowName = string(pHandlerMenuWindowName)
@@ -5831 +5839 @@
   retval = 1
   
-  pStatusMode = On_Off
+  
   
   r = w.rect
   
+  oldwidth = pStatusMode
+  if On_Off = 1 then pStatusMode = r.width
+  else pStatusMode = 0
+  
   tell w
     
@@ -5840 +5852 @@
     
     if On_Off = 1 then
+      
       
       member("statusOutput").text = "The following operation may take some time..."
       spr.member = member("statusOutput")
       
-      newRect = rect(r.left, r.top, r.right, r.top + spr.rect.bottom)
+      newRect = rect(r.left, r.top, r.left + spr.rect.right, r.top + spr.rect.bottom)
       
       if (label("withSearch") <> marker(0)) then
@@ -5850 +5863 @@
       end if
       
+      
     else
       
       spr.member = member("helptext")
       
-      newRect = rect(r.left, r.top, r.right, r.top + spr.rect.top)
+      if ilk(oldwidth) <> #integer then oldwidth = r.width
+      if oldwidth < 1 then oldwidth = r.width
+      
+      newRect = rect(r.left, r.top, r.left + oldwidth, r.top + spr.rect.top)
       
       if (label("withoutSearch") <> marker(0)) then go "withoutSearch"