[CONFIGURATION]

* BUG: gcc on CygWin does not support the -fvisibilty flag.

[GB.FORM]
* NEW: DateChooser.SetDateColor method has been removed.
* NEW: DateChooser.Colors is a new read-only property that returns a 
  virtual object for managing the date colors. This object acts like an 
  array that associate colors to dates, and has a Clear() method to remove
  all defined colors.

[GB.FORM.MDI]
* BUG: Sorting worskpace tabs does not change the current tab anymore.


git-svn-id: svn://localhost/gambas/trunk@2746 867c0c6c-44f3-4631-809d-bfa615b0a4ec

acinclude.m4

@@ -244,11 +244,15 @@ AC_DEFUN([GB_INIT],
   dnl ---- Check for gcc visibility flag
   
   have_gcc_visibility=no
-  AX_CFLAGS_GCC_OPTION([-fvisibility=hidden],,
-  [
-    AM_CFLAGS="$AM_CFLAGS -fvisibility=hidden"
-    AM_CXXFLAGS="$AM_CXXFLAGS -fvisibility=hidden"
-    have_gcc_visibility=yes])
+  
+  if test $SYSTEM != "CYGWIN"; then
+		AX_CFLAGS_GCC_OPTION([-fvisibility=hidden],,
+		[
+			AM_CFLAGS="$AM_CFLAGS -fvisibility=hidden"
+			AM_CXXFLAGS="$AM_CXXFLAGS -fvisibility=hidden"
+			have_gcc_visibility=yes])
+	fi
+	
   if test "$have_gcc_visibility" = "yes"; then
     AC_DEFINE(HAVE_GCC_VISIBILITY, 1, [Whether gcc supports -fvisibility=hidden])
   fi

comp/src/gb.form.mdi/.project

@@ -1,5 +1,5 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 2.99.0 (r2695)
+# Compiled with Gambas 2.99.0 (r2743)
 Startup=FImageEditor
 StackTrace=1
 Version=2.99.0

comp/src/gb.form.mdi/.src/FWorkspace.class

@@ -772,10 +772,12 @@ Public Sub btnSort_Click()
   Dim aTitle As New String[]
   Dim aWindow As CWindow[]
 
-  Dim hWin As CWindow
+  Dim hWin As Window
   Dim hMenu As Menu
   Dim sTitle As String
   
+  hWin = GetActiveWindow()
+  
   For iInd = 0 To tabWorkspace.Count - 1
     aTitle.Add(tabWorkspace[iInd].Text & "\t" & Format(iInd, "000"))
   Next
@@ -794,7 +796,7 @@ Public Sub btnSort_Click()
     UpdateTitleFromIndex(iInd)
   Next
   
-  Activate
+  Activate(hWin)
   
 End
 

comp/src/gb.form/.info

@@ -233,6 +233,10 @@ Font
 p
 Font
 
+Colors
+r
+_DateChooserColors
+
 :Change
 :
 
@@ -269,10 +273,6 @@ _Activate
 m
 
 
-SetDateColor
-m
-
-(Date)d(Color)i
 #DatePicker
 UserControl
 C
@@ -1712,3 +1712,18 @@ Wizard_Cancel
 m
 
 
+#_DateChooserColors
+
+CA
+Clear
+m
+
+
+_put
+m
+
+(Color)i(Date)d
+_get
+m
+i
+(Date)d

comp/src/gb.form/.lang/.pot

@@ -22,15 +22,15 @@ msgstr ""
 msgid "Cannot create directory."
 msgstr ""
 
-#: FCalendar.class:375
+#: FCalendar.class:390
 msgid "Today"
 msgstr ""
 
-#: FCalendar.class:382
+#: FCalendar.class:397
 msgid "Previous month"
 msgstr ""
 
-#: FCalendar.class:389
+#: FCalendar.class:404
 msgid "Next month"
 msgstr ""
 

comp/src/gb.form/.list

@@ -20,3 +20,4 @@ TableView
 ToolPanel
 ValueBox
 Wizard
+_DateChooserColors

comp/src/gb.form/.project

@@ -1,5 +1,5 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 2.99.0 (r2723)
+# Compiled with Gambas 2.99.0 (r2743)
 Startup=FMain
 StackTrace=1
 Version=2.99.0

comp/src/gb.form/.src/Date/DateChooser.class

@@ -8,6 +8,7 @@ Property Year As Integer
 Property Month As Integer
 Property Day As Integer
 Property Font As Font
+Property Read Colors As _DateChooserColors
 
 Event Change
 Event Activate
@@ -107,8 +108,9 @@ Private Sub Font_Write(Value As Font)
   
 End
 
-Public Sub SetDateColor({Date} As Date, Color As Integer)
-  
-  $hCal.SetDateColor({Date}, Color)
-  
+Private Function Colors_Read() As _DateChooserColors
+
+  _DateChooserColors._Calendar = $hCal
+  Return _DateChooserColors
+
 End

comp/src/gb.form/.src/Date/FCalendar.class

@@ -323,7 +323,15 @@ Public Sub UpdateFont()
   
 End
 
-Public Sub SetDateColor(dDate As Date, iColor As Integer)
+Public Sub ClearColors()
+  
+  $cDateColor.Clear
+  dwgMonth.Refresh
+  
+End
+
+
+Public Sub SetColor(dDate As Date, iColor As Integer)
   
   Dim sKey As String = CStr(Date(dDate))
   
@@ -332,11 +340,18 @@ Public Sub SetDateColor(dDate As Date, iColor As Integer)
   Else 
     $cDateColor[sKey] = iColor
   Endif
+  dwgMonth.Refresh
   
 End
 
-Public Sub Form_Open()
-
+Public Sub GetColor(dDate As Date) As Integer
+  
+  Dim sKey As String = CStr(Date(dDate))
+  Dim iColor As Integer
+  
+  Try iColor = $cDateColor[sKey]
+  If Error Then iColor = Color.Default
+  Return iColor
   
-
 End
+

comp/src/gb.form/.src/Date/_DateChooserColors.class

@@ -0,0 +1,26 @@
+' Gambas class file
+
+Export
+Create Static
+
+Public _Calendar As FCalendar
+
+Public Sub Clear()
+  
+  _Calendar.ClearColors()
+  
+End
+
+Public Sub _put(Color As Integer, {Date} As Date)
+  
+  _Calendar.SetColor({Date}, Color)
+  
+End
+
+
+Public Sub _get({Date} As Date) As Integer
+  
+  Return _Calendar.GetColor({Date})
+  
+End
+

gb.desktop/src/gb.desktop/.settings

@@ -13,7 +13,7 @@ SearchString=True
 
 [OpenFile]
 Active=1
-File[1]="/home/benoit/gambas/3.0/trunk/gb.desktop/src/gb.desktop/.src/Desktop.class:201.2"
+File[1]="/home/benoit/gambas/3.0/trunk/gb.desktop/src/gb.desktop/.src/Desktop.class:344.2"
 File[2]="/home/benoit/gambas/3.0/trunk/gb.desktop/src/gb.desktop/.src/Main.module:29.7"
 File[3]="/home/benoit/gambas/3.0/trunk/gb.desktop/src/gb.desktop/.src/_DesktopPasswords.class:66.42"
 File[4]="/home/benoit/gambas/3.0/trunk/gb.desktop/src/gb.desktop/.src/Form1.form"