Re: Mercury QTP and Curl 6.0

[Duke Briscoe]

Nathan,

Thanks for sending the example.  We have created a bug ticket for this, 
bug 28690, where we are not playing back activity on controls inside a 
DropdownList.

I will mail you separately about what we should do about this as a 
support issue for Paisley, since that does not seem appropriate for the 
public curlbreaker-l list.  It looks like there may be a limited 
workaround for this using the OPEN-CONTROLS package, and we are thinking 
about how to fix it as part of a release.

Duke Briscoe
Curl Support

On 1/3/2008 8:31 AM, [EMAIL PROTECTED] ([EMAIL PROTECTED]) wrote:

I was able to get that to work as well. However the following code 
will not work. It may have to do with the checkbutton control being 
subclassed.
The following control will register activity with the checkboxes, but 
not with the DropdownList that contains them

These are the test results:

Browser("Browser").CurlAppletView("file:///c:/Documents 
and").CurlDialog("Menu").CurlCheckBox("one").Set "ON"
Browser("Browser").CurlAppletView("file:///c:/Documents 
and").CurlDialog("Menu").CurlCheckBox("two").Set "ON"
Browser("Browser").CurlAppletView("file:///c:/Documents 
and").CurlDialog("Menu").CurlCheckBox("three").Set "ON"
Browser("Browser").CurlAppletView("file:///c:/Documents 
and").CurlDialog("Menu").CurlCheckBox("four").Set "ON"

This is the code:

{curl 6.0 applet}
{curl-file-attributes character-encoding = "windows-latin-1"}
{define-class public open CXCheckButton {inherits CheckButton}

{constructor public {default ...}
{with-compiler-directives allow-slow-spliced-arguments? = true do
{construct-super ...}
}
}

{method public open {object-describe
out:TextOutputStream,
locale:Locale
}:void
{out.write-one-string "test"}
}
}
{let title-drop-down:DropdownList = {uninitialized-value-for-type 
DropdownList}}
{let ck-buttons:{Array-of CheckButton} = {new {Array-of CheckButton}}}
{set title-drop-down ={DropdownList
width = 3.5cm,
control-appearance-changeable? = true,
control-color="#6c6c6c",
cell-margin=0cm,
prompt="this is a test ddl",
color = "#173A0B",
font-size = 8pt,
{on e:ValueChanged do

{e.consume}
},
{on e:ValueFinished do
{e.consume}
},
{on e:PointerEnvelopeEvent do
{if e.contents isa PointerPress then
{if not e.consumed? then

let farray:{FastArray-of any} = {new {FastArray-of any},
max-size=3
}

{farray.append (e.contents asa PointerPress)}

}
}
},
{on e:GuiEvent do

}
}
}
{set title-drop-down.test-name="title-drop-down"}
||Now append checkbox items onto this list
{let items:{Array-of String} = {{Array-of String} 
"one","two","three","four"}}
{for item:String in items do
let ck-button:CheckButton = {CXCheckButton
width = 4cm,
opaque-to-events? = true,
control-appearance-changeable?=true,
color = "black",
label = item,
value = false,
style = "standard",

{on ValueFinished at btn:CheckButton do

{if btn.value then
{output btn.value}
else
{output "returned no value"}
}

}
}
{ck-buttons.append ck-button}
let drop-down-item:ListValueItem = {ListValueItem
value="test",
{HBox ck-button}
}
{title-drop-down.append drop-down-item}
}
{value title-drop-down}




/ATTENTION:/

/This message and any attachments are intended only for the named 
recipient(s), and may contain information that is confidential, 
privileged, or exempt or protected from disclosure under applicable 
laws and rules. If you are not the intended recipient(s), you are 
notified that the dissemination, distribution, or copying of this 
message and any attachments is strictly prohibited. If you receive 
this message in error, or are not the named recipient(s), please 
notify the sender at either the email address or the telephone number 
included herein and delete this message and any of its attachments 
from your computer and/or network. Receipt by anyone other than the 
named recipient(s) is not a waiver of any attorney-client, work 
product, or other applicable privilege, protection, or doctrine. Thank 
you./

/This message and any attachments are covered by the Electronic 
Communications Privacy Act, 18 U.S.C SS 2510-2521./

ATTENTION:

This message and any attachments are intended only for the named recipient(s), 
and may contain information belonging to Paisley or others that is 
confidential, privileged, or exempt or protected from disclosure under 
applicable laws and rules. If you are not the intended recipient(s), you are 
notified that the dissemination, distribution, or copying of this message and 
any attachments is strictly prohibited. If you receive this message in error, 
or are not the named recipient(s), please notify the sender at either the email 
address or the telephone number included herein and delete this message and any 
of its attachments from your computer and/or network. Receipt by anyone other 
than the named recipient(s) is not a waiver of any confidentiality, 
attorney-client, work product, or other applicable privilege, protection, or 
doctrine. Thank you.

This message and any attachments are covered by the Electronic Communications 
Privacy Act, 18 U.S.C SS 2510-2521.