Re: Mercury QTP and Curl 6.0

2008-01-03 Thread curl

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, 

Re: Mercury QTP and Curl 6.0

2008-01-03 Thread 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.