[libreoffice-users] Need confirmation about Date type confusions

Since 4.1 the Date property from a 
"com.sun.star.awt.UnoControlDateFieldModel" returns no longer a 
"Isodate" but a "Unodate".

Since its stay like that in 4.2 is started to correct all or BASIC code 
who uses a "com.sun.star.awt.UnoControlDateFieldModel".

But i runed by accident in a  bug where as soon we have a "ss = Date" 
(who normaly returns today date as  a string) the Date property of a 
"com.sun.star.awt.UnoControlDateFieldModel" is corrupted with a BASIC 
syntax error.
"Symbol date already defined differently"
 as soon i left out the "ss = Date" the error disappeared
The error is not in 4.0
4.1 ?
The error is there in 4.2 under Windows all versions.

To reproduce the bug run the code below, who opens a dialog. The dialog 
has a Datecontrol who can been filed with todays date using a listener 
on the button.
Run the code and you run in the error
cancel the first row ("ss = date" ) to run without error

sub testDateError
  ss = date


   oDialogModel = createUnoService( 
"com.sun.star.awt.UnoControlDialogModel" )
   oDialogModel.PositionX = 10
   oDialogModel.PositionY = 10
   oDialogModel.Width = 100
   oDialogModel.Height = 100
   oDialogModel.Title = "test datecontrol"
   oDialogControl = createUnoService( "com.sun.star.awt.UnoControlDialog" )
   oDialogControl.setModel( oDialogModel )
   odialogModel = odialogcontrol.model
   oDateModel = oDialogModel.createInstance( 
"com.sun.star.awt.UnoControlDateFieldModel" )
   oDateModel.PositionX = 20
   oDateModel.PositionY = 20
   oDateModel.Width = 40
   oDateModel.Height = 14
   oDateModel.dropdown = true
   oDateModel.Name = "test1"
   oDateModel.TabIndex = nNumControls
   oDialogModel.insertByName( "test1", oDateModel )
   oDateControl = oDialogControl.getControl( "test1" )
   odialogModel = odialogcontrol.model
   oButtonModel = oDialogModel.createInstance( 
"com.sun.star.awt.UnoControlButtonModel" )
   oButtonModel.PositionX = 40
   oButtonModel.PositionY = 70
   oButtonModel.Width = 60
   oButtonModel.Height = 14
   oButtonModel.Name = "pressbuton"
   oButtonModel.Label = "press to fill with date"
   oDialogModel.insertByName( "pressbuton", oButtonModel )
   oButtonControl = oDialogControl.getControl( "pressbuton" )
   oActionListener = CreateUnoListener("pressbuton" + "_", 
"com.sun.star.awt.XActionListener" )
   oButtonControl.addActionListener( oActionListener )
   oDialogcontrol.setVISIBLE(true)
   oDialogcontrol.execute()

end sub
sub pressbuton_actionPerformed( oEvent As com.sun.star.awt.ActionEvent )

 oevent.source.context.getcontrol("test1").date = cdatetounodate(date)
dim dStart as New com.sun.star.util.Date
dStart.year = oevent.source.context.getcontrol("test1").date.year
dStart.day = oevent.source.context.getcontrol("test1").date.day
dStart.month = oevent.source.context.getcontrol("test1").date.month
end sub

Sub Main

--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted