Simple non-modal custom dialog box closing automatically

[infratec]

A version which uses #PB_Window_WindowCentered.
And don't generate an error
Therfore UnbindEvent() was needed.

Code: Select all

Procedure CloseAboutWindow()
  
  Protected Win.i
  
  Win = EventWindow()
  
  If GetWindowData(Win)
    RemoveWindowTimer(Win, 1)
    UnbindEvent(#PB_Event_Timer, @CloseAboutWindow(), Win)
  EndIf
  UnbindEvent(#PB_Event_DeactivateWindow, @CloseAboutWindow(), Win)
  CloseWindow(Win)
  
EndProcedure


Procedure About(Timeout.i=0)
  
  Protected Win.i
  
  Win = OpenWindow(#PB_Any, 0, 0, 200, 100, "About", #PB_Window_Tool | #PB_Window_WindowCentered, WindowID(GetActiveWindow()))
  
  TextGadget(#PB_Any, 10, 10, 100, 20, "This is a demo")
  BindEvent(#PB_Event_DeactivateWindow, @CloseAboutWindow(), Win)
  If Timeout
    SetWindowData(Win , #True)
    AddWindowTimer(Win, 1, Timeout)
    BindEvent(#PB_Event_Timer, @CloseAboutWindow(), Win)
  EndIf
  
EndProcedure


Define.i Event

OpenWindow(0, 0, 0, 400, 300, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateMenu(0, WindowID(0))
MenuTitle("Help")
MenuItem(1, "About")


About(2000)

Repeat
  
  Event = WaitWindowEvent()
  
  Select Event
    Case #PB_Event_Menu
      If EventMenu() = 1
        About()
      EndIf
  EndSelect
  
Until Event = #PB_Event_CloseWindow

Bernd

[Blue]

Hi Bernd
You can read into minds now ? Impressive.

I was indeed trying to work out how exactly when, where and how to unBind the event, so i could integrate the genial Bernd Closing Method (gBCM, as we all know it) approach into a large project structured with many modules. It looks, so far, like i won't be able to use separate event loops for different child windows.
Still working it out, so i'll dive into this sometimes this morning, and, garanteed, i'll be back hounding you with questions.

Presently, i can't avoid being distracted by my smart phone, which is showing me the amazingly squinty face of my first grand-daughter.
This is a rocking experience, believe me. -> -> ->

She just stepped into our world 2 hours ago.
Long live [yet unNamed] Baby girl.

[infratec]

Happy Birthday

To .... noname.

[Blue]

Isn't it something, to be born in 2015 ?
In 2100, when she turns 75, she'll be coding with
      PureBasic v.272.1 (X64, X128, X256 or X512, your choice)
      (just a bugs correction release)
just like her GrandPa.
Imagine that !

[blueb]

Hopefully they can add in the year 2100.

[Blue]

Oh, no, really ? Another bug in PureBasic 6.40 beta 8 ?
Cross my heart and... Well, you know the rest.

[blueb]

I was referring to the fact that your grandchild will be 85 in 2100 NOT 75!

[Blue]

I was referring to the fact that your grandchild will be 85 in 2100 NOT 75!

I know, BlueB.
I thought i'd get a laugh out of you with some silly attempt at blaming PB for my lousy arithmetic.
Sorry for being obscure.

[Blue]

A version which uses #PB_Window_WindowCentered.
And don't generate an error
Therfore UnbindEvent() was needed.
[...code skipped...]

Bernd

Perfect, your version #2.
Your #1 was perfect as well, so I guess this would make #2 plusPerfect (?), of course.

Version #2 just adds this little extra flexibilty that I didn't even realize i was missing.
And it's a good lesson on where to properly use UnbindEvent().
Thanks.


PS: [Unnamed] baby girl is now known as Charlotte
A name full of promises to come.

[Vera]

~ wishing you lots of fun with your granddad

[Blue]

Charlotte NMP (newly minted person) says
"Thank you, Vera !
That's the nicest message I've received in my whole life !"

Luckily for you, Vera, I happened to be nearby with my NMC (Newly Minted Code) PB App to decode Charlotte's extensive personal dictionary.
Otherwise, you may have misunderstood her "Arrreuh! Arrreuh!" for something unintelligible.

But then, what are GrandPas for ?