New requirements in PB 3.93?

Windows specific forum
chippy73
User
User
Posts: 59
Joined: Wed Feb 16, 2005 6:11 pm
Location: S.W.Wales

New requirements in PB 3.93?

Post by chippy73 »

I notice that if you don't put a "ProcedureReturn" in the windows procedure, it won't display ie...

Code: Select all

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 10, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window")
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 120, 110, 60, 20, "OK")
      ;HideWindow(#Window_0,0)
      ProcedureReturn WindowID()
    EndIf
  EndIf
EndProcedure
Is this a new feature requirement in PB 3.93? And are there others that we should be aware of?

Or maybe there is a site so that we can read about it.

Alan
PB v3.94 PVXP v2.13 JaPBe v2.5.4.22
Sparkie
PureBatMan Forever
PureBatMan Forever
Posts: 2307
Joined: Tue Feb 10, 2004 3:07 am
Location: Ohio, USA

Post by Sparkie »

This works for me with PB 3.93...

Code: Select all

#Window_0 = 0
#Button_0 = 0
Procedure Open_Window_0()  
  If OpenWindow(#Window_0, 216, 10, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window") 
    If CreateGadgetList(WindowID(#Window_0)) 
      ButtonGadget(#Button_0, 120, 110, 60, 20, "OK") 
      ;HideWindow(#Window_0,0) 
      ;ProcedureReturn WindowID() 
    EndIf 
  EndIf 
EndProcedure
Open_Window_0()
Repeat
  event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
End
What goes around comes around.

PB 5.21 LTS (x86) - Windows 8.1
chippy73
User
User
Posts: 59
Joined: Wed Feb 16, 2005 6:11 pm
Location: S.W.Wales

Post by chippy73 »

Sparkie,

Yes it worked for me too.

Did some investigating and found it was due to the bit under your code "Repeat"

I always get this tail bit wrong.

Thanks for you help.

Alan
PB v3.94 PVXP v2.13 JaPBe v2.5.4.22
Post Reply