Window not refreshed

clipper · Post by **clipper** » Sat Jun 23, 2007 5:49 am

In this code the window is not refreshed (empty) after I have called Openfilerequester()
A Reszisewindow() will not work!
What can I do, that the windows gadgets are shown during the fileoperations?

Code: Select all

hwnd = OpenWindow(0, 0,0,300,300, "", #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu )
If hwnd
   If CreateGadgetList(hwnd)
      TextGadget(0, 10, 33,  70,  14, "Item:")
      StringGadget( 1, 80, 30, 175,  20, "")
      If CreateToolBar(2,hwnd)
         ToolBarStandardButton(0, #PB_ToolBarIcon_Open)
         Repeat
            EventID = WaitWindowEvent() 
            Select EventID
               Case #PB_Event_Menu
                  menu = EventMenu()
                  Select menu
                     Case 0
                        file.s=OpenFileRequester("Load", "Text (*.txt)|*.txt", "", 0)
                        ; Do some longer fileactions - here Delay(5000)
                        Delay(5000)
                  EndSelect
            EndSelect 
         Until EventID = #PB_Event_CloseWindow
      EndIf
   EndIf
EndIf

Edwin Knoppert · Post by **Edwin Knoppert** » Sat Jun 23, 2007 7:24 am

UpdateWindow_() API..

Trond · Post by **Trond** » Sat Jun 23, 2007 8:34 am

You could do the file operations in a thread. As long as the window doesn't process events with WaitWindowEvent() it won't refresh.

ts-soft · Post by **ts-soft** » Sat Jun 23, 2007 8:40 am

This can help a bit:

Code: Select all

Case 0
  DisableWindow(0, #True)
  file.s=OpenFileRequester("Load", "Text (*.txt)|*.txt", "", 0)
  ; Do some longer fileactions - here Delay(5000)
  Delay(5000)
  DisableWindow(0, #False)

Edwin Knoppert · Post by **Edwin Knoppert** » Sat Jun 23, 2007 10:13 am

Trond wrote:You could do the file operations in a thread. As long as the window doesn't process events with WaitWindowEvent() it won't refresh.

http://www.hellobasic.com/cgi-bin/forum ... 1177591460

(2nd message)

clipper · Post by **clipper** » Sat Jun 23, 2007 10:21 am

Thanks a lot.

Baldrick · Post by **Baldrick** » Sat Jun 23, 2007 12:52 pm

Bit late maybe clipper, I am on the Bourbons atm.

This might help a little....

Code: Select all

Procedure DoSumStuff(Sumparameter.s) 
 file$=GetFilePart(Sumparameter)
  Debug "Started processing > "+file$
  Delay(5000) 
  Debug "Finished processing > "+file$
EndProcedure 

hwnd = OpenWindow(0, 0,0,300,300, "", #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu ) 
If hwnd 
   If CreateGadgetList(hwnd) 
      TextGadget(0, 10, 33,  70,  14, "Item:") 
      StringGadget( 1, 80, 30, 175,  20, "") 
      If CreateToolBar(2,hwnd) 
         ToolBarStandardButton(0, #PB_ToolBarIcon_Open) 
         Repeat 
            EventID = WaitWindowEvent() 
            Select EventID 
               Case #PB_Event_Menu 
                  menu = EventMenu() 
                  Select menu 
                     Case 0 
                        file.s=OpenFileRequester("Load","", "All files (*.*)|*.*", 0) 
                        ; Do some longer fileactions - here Delay(5000) 
                        If file
                         mythread=CreateThread(@DoSumStuff(),file)
                        EndIf  
                  EndSelect 
            EndSelect 
         Until EventID = #PB_Event_CloseWindow 
      EndIf 
   EndIf 
EndIf 
If IsThread(mythread)
 KillThread(mythread) 
 Debug "thread killed"
  Else 
 Debug "thread not active"
EndIf 
End

Hmm, pretty sad I am sitting at home on the drink, looking at the forum while talking to some friends on the phone who live 300 Km away. ( who are also on the drink btw)