luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[CONFIGURATION]

Browse source 
* NEW: Switch version to 3.10.90.

[GB.DB]
* NEW: Connection.TimeZone is new property that will allow to define the default timezone of dates stored in the database we are connected to. Not implemented yet.


git-svn-id: svn://localhost/gambas/trunk@8168 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2017-07-24 18:53:33 +00:00
parent 8cd2dba1d4
commit d42a49b57d
20 changed files with 62 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
VERSION
View file

@ -1 +1 @@
3.9.90
3.10.90

2
acinclude.m4
View file

@ -81,7 +81,7 @@ AC_DEFUN([GB_INIT_AUTOMAKE],
AC_DEFINE(GAMBAS_VERSION_STRING, "GB_VERSION_MAJOR", Gambas version string)
AC_DEFINE(GAMBAS_FULL_VERSION_STRING, "GB_VERSION_MAJOR.GB_VERSION_MINOR", Gambas full version string)
AC_DEFINE(GAMBAS_FULL_VERSION, 0x03090090, [Full Gambas version])
AC_DEFINE(GAMBAS_FULL_VERSION, 0x03100090, [Full Gambas version])
AC_DEFINE(GAMBAS_PCODE_VERSION, 0x03080000, [Gambas bytecode version])
AC_DEFINE(GAMBAS_PCODE_VERSION_MIN, 0x03000000, [Minimum Gambas bytecode version])

2
comp/src/gb.form.terminal/.component
View file

@ -1,6 +1,6 @@
[Component]
Key=gb.form.terminal
Version=3.9.90
Version=3.10.90
State=1
Authors=Benoît Minisini,Fabien Bodard
Needs=Form

4
comp/src/gb.form.terminal/.project
View file

@ -1,9 +1,9 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.9.90
# Compiled with Gambas 3.10.90
Title=Gambas Terminal control
Startup=PipeTest
Icon=terminalview.png
Version=3.9.90
Version=3.10.90
VersionFile=1
Component=gb.image
Component=gb.gui

2
comp/src/gb.form/.component
View file

@ -1,5 +1,5 @@
[Component]
Key=gb.form
Version=3.9.90
Version=3.10.90
Authors=Benoît Minisini
Needs=Form

4
comp/src/gb.form/.project
View file

@ -1,8 +1,8 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.9.90
# Compiled with Gambas 3.10.90
Title=More controls for graphical components
Startup=FIconPanel
Version=3.9.90
Version=3.10.90
VersionFile=1
Component=gb.image
Component=gb.gui

2
comp/src/gb.gui.base/.component
View file

@ -1,5 +1,5 @@
[Component]
Key=gb.gui.base
Version=3.9.90
Version=3.10.90
Hidden=True
Needs=Form

4
comp/src/gb.gui.base/.project
View file

@ -1,8 +1,8 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.9.90
# Compiled with Gambas 3.10.90
Title=gb.gui.base
Startup=FGridView
Version=3.9.90
Version=3.10.90
VersionFile=1
Component=gb.image
Component=gb.gui

18
comp/src/gb.gui.base/.src/Test/FGridView.class
View file

@ -159,3 +159,21 @@ Public Sub Button2_Click()
gvwInfo.Border = Not gvwInfo.Border
End
Public Sub Label1_MouseDown()
End
Public Sub Label1_MouseDrag()
Drag(Label1, "text")
End
Public Sub gvwInfo_Drop()
Debug Drag.Paste()
End

11
comp/src/gb.gui.base/.src/Test/FGridView.form
View file

@ -1,12 +1,12 @@
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,72,68)
MoveScaled(0,0,87,68)
Arrangement = Arrange.Vertical
Spacing = True
Margin = True
{ HBox1 HBox
MoveScaled(6,1,55,4)
MoveScaled(6,1,75,4)
{ txtPadding SpinBox
MoveScaled(3,0,8,4)
}
@ -17,10 +17,17 @@
MoveScaled(34,0,16,4)
Text = ("Border")
}
{ Label1 Label
MoveScaled(53,0,13,4)
AutoResize = True
Text = ("Drag me")
Border = Border.Plain
}
}
{ gvwInfo GridView
MoveScaled(8,11,51,31)
Foreground = Color.Orange
Drop = True
Expand = True
Border = False
Mode = Select.Multiple

2
comp/src/gb.gui.base/.startup
View file

@ -2,7 +2,7 @@ FGridView
gb.gui.base
0
0
3.9.90
3.10.90
gb.image
gb.gui

2
comp/src/gb.web.feed/.component
View file

@ -1,6 +1,6 @@
[Component]
Key=gb.web.feed
Version=3.9.90
Version=3.9.91
State=2
Authors=(C) 2017 Tobias Boege <tobias@gambas-buch.de>
Needs=XML

4
comp/src/gb.web.feed/.project
View file

@ -1,8 +1,8 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.9.90
# Compiled with Gambas 3.10.90
Startup=Main
Icon=Feed-icon.svg
Version=3.9.90
Version=3.9.91
Component=gb.xml
Description="Web feed parser and generator"
Authors="(C) 2017 Tobias Boege <tobias@gambas-buch.de>"

2
comp/src/gb.web.form/.component
View file

@ -1,6 +1,6 @@
[Component]
Key=gb.web.form
Version=3.9.90
Version=3.10.90
State=1
Authors=Benoît Minisini
Requires=gb.web,gb.util.web,gb.util

4
comp/src/gb.web.form/.project
View file

@ -1,8 +1,8 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.9.90
# Compiled with Gambas 3.10.90
Startup=Webform3
UseHttpServer=1
Version=3.9.90
Version=3.10.90
VersionFile=1
Component=gb.util
Component=gb.util.web

1
main/gbx/gbx_api.c
View file

@ -255,6 +255,7 @@ const void *const GAMBAS_Api[] =
(void *)GB_SystemHasForked,
(void *)GB_SystemDebug,
(void *)FILE_get_home,
(void *)DATE_get_timezone,
(void *)GB_ArrayNew,
(void *)GB_ArrayCount,

12
main/lib/db/CConnection.c
View file

@ -154,6 +154,7 @@ BEGIN_METHOD(CCONNECTION_new, GB_STRING url)
THIS->db.handle = NULL;
THIS->db.ignore_case = FALSE; // Now case is sensitive by default!
THIS->db.timeout = 20; // Connection timeout is 20 seconds by default
THIS->db.timezone = GB.System.TimeZone();
if (_current == NULL)
_current = THIS;
@ -262,6 +263,16 @@ BEGIN_PROPERTY(Connection_Timeout)
END_PROPERTY
BEGIN_PROPERTY(Connection_Timezone)
if (READ_PROPERTY)
GB.ReturnInteger(THIS->db.timezone);
else
THIS->db.timezone = VPROP(GB_INTEGER);
END_PROPERTY
BEGIN_PROPERTY(CCONNECTION_opened)
CHECK_DB();
@ -767,6 +778,7 @@ GB_DESC CConnectionDesc[] =
GB_PROPERTY("Name", "s", CCONNECTION_name),
GB_PROPERTY("Port", "s", CCONNECTION_port),
GB_PROPERTY("Timeout", "i", Connection_Timeout),
GB_PROPERTY("Timezone", "i", Connection_Timezone),
GB_PROPERTY_READ("Charset", "s", CCONNECTION_charset),
GB_PROPERTY_READ("Version", "i", CCONNECTION_version),
GB_PROPERTY_READ("Opened", "b", CCONNECTION_opened),

1
main/lib/db/gb.db.h
View file

@ -54,6 +54,7 @@ typedef
void *data; /* Can be used by the driver for storing its own private data */
int error; /* Last SQL error code raise by a query */
int timeout; /* Connection timeout */
int timezone; /* Timezone of dates (default to local timezone) */
unsigned ignore_case : 1; /* If table, field and index names are case sensitive */
struct {
unsigned no_table_type : 1; /* Tables do not have types */

1
main/share/gambas.h
View file

@ -1105,6 +1105,7 @@ typedef
void (*HasForked)(void);
bool (*Debug)(void);
char *(*Home)(void);
int (*TimeZone)(void);
}
System;

4
version.m4
View file

@ -1,9 +1,9 @@
## Package version and e-mail for bugs are defined here
m4_define([GB_VERSION], [3.9.90])
m4_define([GB_VERSION], [3.10.90])
m4_define([GB_MAIL], [gambas@users.sourceforge.net])
m4_define([GB_URL], [http://gambas.sourceforge.net])
m4_define([GB_VERSION_MAJOR], [3])
m4_define([GB_VERSION_MINOR], [9])
m4_define([GB_VERSION_MINOR], [10])
m4_define([GB_VERSION_RELEASE], [90])