#86790 - 2002-07-17 10:07 PM
Re: bbChecker II - rc1
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Lonk,
Having a problem.. When I clicked on your response, it opened 11 Windows from http://kixtart.org ..
Hmmmm..
Kent
|
|
Top
|
|
|
|
#86803 - 2002-07-18 07:57 PM
Re: bbChecker II - rc1
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Just trying to isolate and maybe re-create the problem with this script. Im sure that some combination of show,hide,visible,show(n) will repro the problem (prob something to do with show(n), as that was last thing added.
code:
break on
$form = createobject("kixtart.form")
$form.caption = mainform
$form.fontname = verdana
$form.fontsize = 12
$button = $form.commandbutton("popup")
$button.center
$button.onclick = "pop"
$form.center
$form.show
while $form.visible
$=execute($form.doevents)
loop
exit 1
function pop
dim $popup
$popup = createobject("kixtart.form")
$popup.caption = popup
$popup.witdh = 200
$popup.height = 200
$popup.center
; $form.show(0)
$form.visible = 0
$popup.show(1)
while $popup.visible
$=execute($popup.doevents)
loop
$form.visible = 1
endfunction
|
|
Top
|
|
|
|
|
#86804 - 2002-07-18 08:28 PM
Re: bbChecker II - rc1
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Trying to replicate more like YOUR script does (runs in the background) ... have a theory that maybe "other windows" are "interfering" with show/hide and enablement. This script runs by itself:
just as a test, might want to try running BBChecker all by itself (no apps or windows open) ... does it still hang ?
code:
break on
$form = createobject("kixtart.form")
$form.caption = mainform
$form.fontname = verdana
$form.fontsize = 12
$button = $form.commandbutton("just a button")
$button.center
$form.center
$form.show
$DELAY = 4000 ; msecs
$timer = @TICKS+$delay
while $form.visible
$=execute($form.doevents(1))
if @TICKS > $timer
$form.hide
pop()
$form.show
$timer = @TICKS+$delay
endif
sleep(0.01)
loop
exit 1
function pop
dim $popup,$timer
$popup = createobject("kixtart.form")
$popup.caption = popup
$popup.witdh = 200
$popup.height = 200
$popup.center
$popup.show
$timer = @TICKS+$delay
while $popup.visible
$=execute($popup.doevents(1))
if @TICKS > $timer
$popup.hide
endif
sleep(0.01)
loop
endfunction
|
|
Top
|
|
|
|
|
#86805 - 2002-07-18 08:34 PM
Re: bbChecker II - rc1
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
GOT IT !!!
code:
break on
$form = createobject("kixtart.form")
$form.caption = mainform
$form.fontname = verdana
$form.fontsize = 12
$button = $form.commandbutton("just a button")
$button.center
$form.center
$form.show
$DELAY = 4000 ; msecs
$timer = @TICKS+$delay
while $form.visible
$=execute($form.doevents(1))
if @TICKS > $timer
$form.show(0)
pop()
$form.show
$timer = @TICKS+$delay
endif
sleep(0.01)
loop
exit 1
function pop
dim $popup,$timer
$popup = createobject("kixtart.form")
$popup.caption = popup
$popup.witdh = 200
$popup.height = 200
$popup.center
$popup.show
$timer = @TICKS+$delay
while $popup.visible
$=execute($popup.doevents(1))
if @TICKS > $timer
$popup.show(0) ; <--- heres the bugger
endif
sleep(0.01)
loop
endfunction
|
|
Top
|
|
|
|
|
#86808 - 2002-07-19 12:23 AM
Re: bbChecker II - rc1
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
I just stuck with a simple build or release number, some versioning schemes go too far overboard, way too complicated and too much information, ex 1.3.1_01rev4 SP2 etc etc .. ![[Wink]](images/icons/wink.gif)
Maybe we should just call it forms 1.21, and the next release will be 2.0 ?
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 569 anonymous users online.
|
|
|
