Clear the window debugger [Resolved by NETMAESTRO]

netmaestro · Post by **netmaestro** » Tue Jan 01, 2008 7:17 pm

OK, recompiled the code to test for all 4 supported PB languages. Download again and it is going to work for sure. I always only used this myself so I never hit this problem with it before.

Kwai chang caine · Post by **Kwai chang caine** » Tue Jan 01, 2008 7:56 pm

YAHHHOOOOOO !!!!

You are a champion

Nothing resists to you

I love you and give you a french kiss

Post by **Berikco** » Tue Jan 01, 2008 8:00 pm

Kwaï chang caïne wrote: I love you and give you a french kiss

euh guys, there are children under age sixteen reading here, kiss in private pls

Kwai chang caine · Post by **Kwai chang caine** » Tue Jan 01, 2008 8:07 pm

netmaestro · Post by **netmaestro** » Tue Jan 01, 2008 8:19 pm

Here, Grasshopper, lemme teach you how to fish:

Code: Select all

;=====================================================
; Library:          ClearDebugWindow
; Author:           Lloyd Gallant (netmaestro)
; Date:             August 7, 2007
; ====================================================

Procedure FindListBox(hwnd, *lbhwnd.LONG)
  cn$=Space(255)
  GetClassName_(hwnd, @cn$, 254)
  If UCase(cn$) = "LISTBOX"
    *lbhwnd\l = hwnd
    ProcedureReturn 0
  Else
    ProcedureReturn 1
  EndIf
EndProcedure

Procedure FindDebugWindow(hwnd, *debugoutput.LONG)
  wt$ = Space(255)
  GetWindowText_(hwnd, @wt$, 254)
  If FindString(wt$, "Debug Output", 1) Or FindString(wt$, "Messages du débogueur", 1) Or FindString(wt$, "Debugger-Ausgabe", 1) Or FindString(wt$, "Salida Depurador", 1)
    *debugoutput\l = hwnd
    ProcedureReturn 0
  Else
    ProcedureReturn 1
  EndIf
EndProcedure

ProcedureDLL ClearDebugWindow()
  Protected debugoutput=0, listboxhwnd=0
  time = ElapsedMilliseconds()
  Repeat
    EnumWindows_(@FindDebugWindow(), @debugoutput)
    Delay(1)
  Until debugoutput Or ElapsedMilliseconds()-time > 200
  If debugoutput
    EnumChildWindows_(debugoutput, @FindListBox(),@listboxhwnd)
  EndIf
  If listboxhwnd
    SendMessage_(listboxhwnd, #LB_RESETCONTENT,0,0)
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

Kwai chang caine · Post by **Kwai chang caine** » Tue Jan 01, 2008 8:34 pm

OOOoooohhhh !!
It's still Christmas thanks to netmaestro

I dared not ask the code.

My empire for 10% of your intelligence

You also have very nice teeth

One thousand of thanks, my hero

yrreti · Post by **yrreti** » Tue Jan 01, 2008 9:38 pm

Thanks netmaestro,
That's a nice addition.

Dare · Post by **Dare** » Tue Jan 01, 2008 10:04 pm

Kwaï chang caïne wrote:You also have very nice teeth

Very funny thread!

And very useful.

Thanks netmaestro!

PB · Post by PB » Tue Jan 01, 2008 10:41 pm

> Very funny thread!

And very gross!

electrochrisso · Post by **electrochrisso** » Wed Jan 02, 2008 3:35 am

If you kiss the netmaestro, does he turn into a Prince.

Kwai chang caine · Post by **Kwai chang caine** » Wed Jan 02, 2008 9:23 am

If you kiss the netmaestro, does he turn into a Prince.

It is not serious, i like it, if is a frog, or if is a prince

It's my hero

I love also FRED, NETMAESTRO, SPARKIE, GNOZAL, TROND, SROD, FREAK, ABBKLAUS, FLYPE, COMTOIS, .....etc (Excuse me for those i forget

), and all this god of code.

I'm a looser of the code

For me, they are all magicians, angels, and it's been 3 years that I admire all, since I started purebasic.
So I dream have friends like them.

A thousand of thousand thanks at all for the dream that I live.