[DEVELOPMENT ENVIRONMENT]

* NEW: Some little changes in the "cool" buttons and in the project item control. * BUG: Fix the console embedding flash when the debugger starts. [INTERPRETER] * BUG: Fix the Makefile.am file that prevented debugging flags to be sent to the compiler. [COMPILER] * BUG: Fix the Makefile.am file that prevented debugging flags to be sent to the compiler. [GB.FORM] * OPT: ListContainer.Clear() now locks the container, as there is no need to arrange its children while clearing it. git-svn-id: svn://localhost/gambas/trunk@2230 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2009-08-10 10:16:58 +00:00 · 2009-08-10 10:16:58 +00:00 · 8fa23b6351
commit 8fa23b6351
parent 1f47320a4f
29 changed files with 4321 additions and 4046 deletions
--- a/acinclude.m4
+++ b/acinclude.m4
@ -92,7 +92,7 @@ AC_DEFUN([GB_LIBTOOL],
  AC_SUBST(INCLTDL)
  AC_SUBST(LIBLTDL)

-  LD_FLAGS="-O1 -z defs"
+  LD_FLAGS="-Wl,-O1"
  AC_SUBST(LD_FLAGS)
 ])

--- a/app/src/MakeWebSite/.lang/tr.po
+++ b/app/src/MakeWebSite/.lang/tr.po
@ -10,6 +10,10 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"

+#: .project:2
+msgid "Generates Gambas web site from html templates and ChangeLog files."
+msgstr ""
+
 #: MTranslation.module:9
 msgid "Home"
 msgstr "Ana Sayfa"
--- a/app/src/MakeWebSite/.settings
+++ b/app/src/MakeWebSite/.settings
@ -27,17 +27,21 @@ SearchString=True
 File[1]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/.src/MMain.module:143.0"
 File[2]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/style.css:0.0"
 File[3]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/style-rtl.css:320.0"
-File[4]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/menu.html:51.6"
+File[4]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/menu.html:49.10"
 File[5]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/index.html:0.0"
 File[6]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/main.html:3.6"
 File[7]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/main-rtl.html:16.0"
 File[8]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/gambas.sourceforge.net/home.html.template:61.5"
 File[9]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/news/2009-07-30.html:3.96"
 File[10]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/.src/MTranslation.module:0.0"
-Active=11
 File[11]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/news/2009-08-04.html:2.0"
 File[12]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/authors.txt:334.5"
-Count=12
+File[13]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/news/2009-08-09.html:2.0"
+File[14]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/news/fr/2009-07-30.html:0.10"
+File[15]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/news/fr/2009-08-04.html:1.0"
+Active=16
+File[16]="/home/benoit/gambas/3.0/trunk/app/src/MakeWebSite/news/fr/2009-08-09.html:0.0"
+Count=16

 [Watches]
 Count=0
--- a/app/src/MakeWebSite/gambas.sourceforge.net/home.html
+++ b/app/src/MakeWebSite/gambas.sourceforge.net/home.html
@ -65,6 +65,18 @@

 </div>

+<div class="news-title">
+  <img src="top-left-corner.png" class="top-left-corner">
+  <img src="top-right-corner.png" class="top-right-corner">
+  <div style="height:4px;"></div>
+  <div><b>09  8月 2009 - Turkish translation of the web site</b></div>
+</div>
+<div class="news">
+<table class="none" width="100%"><tr><td class="none">
+<p>The translation has been done by Mehmet Basdemir.
+</td></tr></table>
+</div>
+<div class="space"></div>
 <div class="news-title">
  <img src="top-left-corner.png" class="top-left-corner">
  <img src="top-right-corner.png" class="top-right-corner">
@ -91,19 +103,6 @@ Most of the wiki pages are not translated yet.
 </td></tr></table>
 </div>
 <div class="space"></div>
-<div class="news-title">
-  <img src="top-left-corner.png" class="top-left-corner">
-  <img src="top-right-corner.png" class="top-right-corner">
-  <div style="height:4px;"></div>
-  <div><b>29  7月 2009 - Release of Gambas 2.15.2</b></div>
-</div>
-<div class="news">
-<table class="none" width="100%"><tr><td class="none">
-<p>This release includes a bug fix in string to integer conversion routine that 
-I forgot to backport from the development version.
-</td></tr></table>
-</div>
-<div class="space"></div>


 <a href="news.html">{Older News...}</a>
--- a/app/src/MakeWebSite/gambas.sourceforge.net/menu.html
+++ b/app/src/MakeWebSite/gambas.sourceforge.net/menu.html
@ -48,6 +48,7 @@
      <a class="image" href="../en/main.html" target="_top"><img src="flag/en.png" border="0" style="" alt="{English}" title="{English}"></img></a>
      <a class="image" href="../fr/main.html" target="_top"><img src="flag/fr.png" border="0" style="" alt="{French}" title="{French}"></img></a>
      <a class="image" href="../es/main.html" target="_top"><img src="flag/es.png" border="0" style="" alt="{Spanish}" title="{Spanish}"></img></a>
+      <br>
      <a class="image" href="../ar/main-rtl.html" target="_top"><img src="flag/ar.png" border="0" style="" alt="{Arabic}" title="{Arabic}"></img></a>
      <a class="image" href="../tr/main.html" target="_top"><img src="flag/tr.png" border="0" style="" alt="{Turkish}" title="{Turkish}"></img></a>
      <a class="image" href="../zh/main.html" target="_top"><img src="flag/zh.png" border="0" style="" alt="{Chinese}" title="{Chinese}"></img></a>
--- a/app/src/MakeWebSite/gambas.sourceforge.net/news.html
+++ b/app/src/MakeWebSite/gambas.sourceforge.net/news.html
@ -11,6 +11,18 @@
 <div class="title">{News Archive}</div>
 <div class="space"></div>

+<div class="news-title">
+  <img src="top-left-corner.png" class="top-left-corner">
+  <img src="top-right-corner.png" class="top-right-corner">
+  <div style="height:4px;"></div>
+  <div><b>09  8月 2009 - Turkish translation of the web site</b></div>
+</div>
+<div class="news">
+<table class="none" width="100%"><tr><td class="none">
+<p>The translation has been done by Mehmet Basdemir.
+</td></tr></table>
+</div>
+<div class="space"></div>
 <div class="news-title">
  <img src="top-left-corner.png" class="top-left-corner">
  <img src="top-right-corner.png" class="top-right-corner">
--- a/app/src/MakeWebSite/news/2009-08-09.html
+++ b/app/src/MakeWebSite/news/2009-08-09.html
@ -0,0 +1,2 @@
+Turkish translation of the web site
+<p>The translation has been done by Mehmet Basdemir.
--- a/app/src/MakeWebSite/news/fr/2009-07-30.html
+++ b/app/src/MakeWebSite/news/fr/2009-07-30.html
@ -0,0 +1,5 @@
+Traduction du site Web en arabe
+<p>Grâce à Daif Alotaibi and une bonne couche d'huile de coude de la part de votre serviteur, le site web est maintenant
+traduit en arabe. La plupart des pages du wiki ne sont pas traduites par contre.
+<p><i>Si quelqu'un sait pourquoi les barres de scrolling s'affichent sur la droite alors que la page HTML est définie comme s'écrivant
+de la droite vers la gauche...</i>
--- a/app/src/MakeWebSite/news/fr/2009-08-04.html
+++ b/app/src/MakeWebSite/news/fr/2009-08-04.html
@ -0,0 +1,2 @@
+Traduction du site web en chinois
+<p>La traduction a été faite par  梁 (Liang Wei).
--- a/app/src/MakeWebSite/news/fr/2009-08-09.html
+++ b/app/src/MakeWebSite/news/fr/2009-08-09.html
@ -0,0 +1,2 @@
+Traduction du site web en turque
+<p>La traduction a été faite par Mehmet Basdemir.
--- a/app/src/gambas3/.lang/fr.po
+++ b/app/src/gambas3/.lang/fr.po
--- a/app/src/gambas3/.src/CCoolButton.class
+++ b/app/src/gambas3/.src/CCoolButton.class
@ -54,6 +54,7 @@ Public Sub Panel_Enter()
  $iColor = Last.Foreground
  Last.Background = Color.LightBackground '&88D5FF&
  Last.Foreground = Color.SelectedForeground '&88D5FF&
+  GetPanel().Border = Border.Plain

 End

@ -62,6 +63,7 @@ Public Sub Panel_Leave()
  If Object.Type(Last) <> "Panel" Then Return
  Last.Background = Last.Parent.Background
  Last.Foreground = $iColor
+  GetPanel().Border = Border.None

 End

@ -81,12 +83,7 @@ End

 Public Sub Panel_MouseDown()

-  With GetPanel()
-    .Border = Border.Sunken
-  End With
-
-  '$hLabel.Move($hLabel.X + 1, $hLabel.Y + 1)
-  '$hImage.Move($hImage.X + 1, $hImage.Y + 1)
+  GetPanel().Background = Color.SelectedBackground

 End

@ -98,7 +95,7 @@ Public Sub Panel_MouseUp()
  Dim Y As Integer

  hPanel = GetPanel()
-  hPanel.Border = Border.None
+  HPanel.Background = Color.LightBackground

  X = Mouse.X
  Y = Mouse.Y
--- a/app/src/gambas3/.src/Debug/FDebugExpr.form
+++ b/app/src/gambas3/.src/Debug/FDebugExpr.form
@ -10,7 +10,6 @@
  { HBox1 HBox
    MoveScaled(1,1,27,4)
    Background = Color.TextBackground
-    Padding = 2
    { txtExpr TextBox
      MoveScaled(0,0,16,4)
      Font = Font["Bold"]
@ -26,8 +25,11 @@
      Toggle = True
    }
  }
+  { Separator1 Separator
+    MoveScaled(4,7,10,0.1429)
+  }
  { gvwExpr GridView
-    MoveScaled(1,7,21,17)
+    MoveScaled(1,11,21,17)
    Expand = True
    Mode = Select.Single
    Header = GridView.Horizontal
--- a/app/src/gambas3/.src/Debug/FDebugInfo.class
+++ b/app/src/gambas3/.src/Debug/FDebugInfo.class
@ -36,7 +36,7 @@ Public Sub Form_Open()
    .Columns[1].Text = ("Value")
  End With

-  FOutput.Load
+  FOutput.Load(panConsole)
  UpdateView
  
  FHelp.Load(panHelp)
--- a/app/src/gambas3/.src/Debug/FOutput.form
+++ b/app/src/gambas3/.src/Debug/FOutput.form
@ -5,6 +5,7 @@
  Text = ("Console - Gambas")
  Icon = Picture["icon:/small/terminal"]
  Persistent = True
+  Type = WindowType.Utility
  Arrangement = Arrange.Vertical
  { mnuEditor Menu
    Text = ("")
--- a/app/src/gambas3/.src/Editor/Code/FEditor.form
+++ b/app/src/gambas3/.src/Editor/Code/FEditor.form
@ -375,11 +375,13 @@
        Expand = True
      }
      { lblEditor Label
-        MoveScaled(4,0,10,4)
-        Font = Font["Bold"]
+        MoveScaled(3,0,10,4)
        AutoResize = True
        Text = ("")
      }
+      { Panel2 Panel
+        MoveScaled(14,0,1,4)
+      }
    }
  }
  { edtEditor Editor Editors
--- a/app/src/gambas3/.src/Editor/FTextEditor.form
+++ b/app/src/gambas3/.src/Editor/FTextEditor.form
@ -119,7 +119,7 @@
    }
  }
  { panToolBar ToolBar
-    MoveScaled(0,0,70,4)
+    MoveScaled(0,0,84,4)
    Key = "text"
    Text = ("Text editor")
    { btnSave ToolButton mnuSave
@ -224,11 +224,21 @@
      Text = ("")
      Picture = Picture["icon:/small/view-split-v"]
    }
-    { lblEditor Label
-      MoveScaled(52,0,10,4)
+    { HBox1 HBox
+      MoveScaled(52,0,16,4)
      Expand = True
-      Text = ("")
-      Alignment = Align.Right
+      { Panel1 Panel
+        MoveScaled(2,0,1,4)
+        Expand = True
+      }
+      { lblEditor Label
+        MoveScaled(3,0,10,4)
+        AutoResize = True
+        Text = ("")
+      }
+      { Panel2 Panel
+        MoveScaled(14,0,1,4)
+      }
    }
  }
  { edtEditor Editor Editors
@ -344,6 +354,6 @@
  { Toolbar text
    Text = "Text editor"
    List = "save,reload,show-class,cut,copy,paste,undo,redo,indent,unindent,view-nosplit,view-hsplit,view-vsplit"
-    Default = "save,reload,show-class,cut,copy,paste,undo,redo,indent,unindent,view-nosplit,view-hsplit,view-vsplit,$lblEditor"
+    Default = "save,reload,show-class,cut,copy,paste,undo,redo,indent,unindent,view-nosplit,view-hsplit,view-vsplit,$HBox1"
  }
 }
--- a/app/src/gambas3/.src/FOpenProject.class
+++ b/app/src/gambas3/.src/FOpenProject.class
@ -6,7 +6,7 @@ Static Private $bAnother As Boolean

 Static Public InAnotherWindow As Boolean

-Private frmProjectItem As FProjectItem
+Private frmProjectItem As ProjectItem

 Public Sub Run(Optional bAnother As Boolean) As String

@ -17,7 +17,7 @@ End

 Public Sub _new()
  
-  frmProjectItem = New FProjectItem(panProject)
+  frmProjectItem = New ProjectItem(panProject)
  
 End

@ -142,22 +142,26 @@ End
 Private Sub FillRecent()
  
  Dim sRecent As String
-  Dim hProjectItem As FProjectItem
-  Dim hFirst As FProjectItem
+  Dim hProjectItem As ProjectItem
+  Dim hFirst As ProjectItem
  Dim aRecent As String[]
  Dim bHighlight As Boolean
+  Dim fTime As Float
+  Dim Y As Integer
  
  If lstRecent.Children.Count Then Return

  Inc Application.Busy

-  'panRecent.Arrangement = Arrange.None
+  'panRecent.Hide
  lstRecent.Lock

  aRecent = Project.GetRecentFiles(chkSortRecent.Value)

  For Each sRecent In aRecent
-    hProjectItem = New FProjectItem(lstRecent)
+    hProjectItem = New ProjectItem(lstRecent)
+    hProjectItem.Y = Y
+    Y += hProjectItem.H
    If bHighlight Then hProjectItem.Background = Color.LightBackground
    bHighlight = Not bHighlight
    If Not hFirst Then hFirst = hProjectItem
@ -168,7 +172,7 @@ Private Sub FillRecent()
  
  ' Workaround a scrollview bug that does not show the scrollbars.
  lstRecent.Unlock 
-  'panRecent.Arrangement = Arrange.Vertical
+  'panRecent.Show
  
  Dec Application.Busy
  
@ -196,7 +200,7 @@ Private Sub FillExample()
  Dim sDir As String
  Dim sLastDir As String
  Dim hDrawingArea As DrawingArea
-  Dim hProjectItem As FProjectItem
+  Dim hProjectItem As ProjectItem
  Dim hLabel As Label
  Dim bHighlight As Boolean
  
@ -221,7 +225,7 @@ Private Sub FillExample()
      sLastDir = sDir
    Endif
    
-    hProjectItem = New FProjectItem(lstExample)
+    hProjectItem = New ProjectItem(lstExample)
    If bHighlight Then hProjectItem.Background = Color.LightBackground
    bHighlight = Not bHighlight
    hProjectItem.SetPath(Project.EXAMPLES_DIR &/ sExample)
--- a/app/src/gambas3/.src/FProjectItem.class
+++ b/app/src/gambas3/.src/FProjectItem.class
@ -15,11 +15,12 @@ Public Sub SetPath(sPath As String)
      sTitle = .Name
    Endif
    'lblName.Text = "<b><font size=\"+1\"" & sTitle & " (" & .Version & ")</font></b>"
-    lblName.Text = sTitle & " (" & .Version & ")"
+    sTitle = "<b>" & sTitle & " (" & .Version & ")" & "</b>"
    If .Authors And If .Authors.Count Then 
-      sInfo &= "<b>" & ("Author(s)") & " :</b> " & .Authors.Join(", ") & "<br>"
+      sTitle &= "<font color=\"#404040\" size=\"-1\">&nbsp;-&nbsp;<b>" & ("Author(s)") & " :</b> " & .Authors.Join(", ") & "</font>"
    Endif 
    sInfo &= Replace(sPath, System.User.Home, "~")
+    lblName.Text = sTitle
    txtInfo.Text = "<font color=\"#404040\">" & sInfo & "</font>"
  End With
  
--- a/app/src/gambas3/.src/FProjectItem.form
+++ b/app/src/gambas3/.src/FProjectItem.form
@ -1,7 +1,7 @@
 # Gambas Form File 3.0

 { Form Form
-  MoveScaled(0,0,55,10)
+  MoveScaled(0,0,55,8)
  Text = ("")
  Arrangement = Arrange.Vertical
  { HBox1 HBox
@ -19,9 +19,8 @@
    { VBox1 VBox
      MoveScaled(7,0,45,7)
      Expand = True
-      { lblName Label
+      { lblName TextLabel
        MoveScaled(2,0,40,3)
-        Font = Font["Bold"]
        AutoResize = True
        Text = ("")
      }
--- a/app/src/gambas3/.src/FWelcome.class
+++ b/app/src/gambas3/.src/FWelcome.class
@ -47,7 +47,7 @@ Public Sub Form_Open()
  Dim hImage As Image

  sFont = "Bold"
-  W = panButton.ClientW
+  W = panButton.ClientW + 4

  btnNew = New CCoolButton(panButton, 0, POS_BUTTON, W, HEIGHT_BUTTON, ("New project..."), "icon:/large/new", sFont) As "btnNew"
  btnNew.Foreground = Color.SelectedBackground
--- a/app/src/gambas3/.src/Debug/FHelp.class
+++ b/app/src/gambas3/.src/Debug/FHelp.class
--- a/app/src/gambas3/.src/Debug/FHelp.form
+++ b/app/src/gambas3/.src/Debug/FHelp.form
--- a/app/src/gambas3/.src/Help/MHelp.module
+++ b/app/src/gambas3/.src/Help/MHelp.module
--- a/app/src/gambas3/.src/ProjectItem.class
+++ b/app/src/gambas3/.src/ProjectItem.class
@ -0,0 +1,72 @@
+' Gambas class file
+
+Inherits UserControl
+
+Private $hDrawingArea As DrawingArea
+Private $sPath As String
+Private $hProjectInfo As CProjectInfo
+Private $hIcon As Picture
+
+Private Const ICON_SIZE As Integer = 48
+Private Const PADDING As Integer = 6
+
+Public Sub _new()
+  
+  $hDrawingArea = New DrawingArea(Me) As "DrawingArea"
+  Me.H = ICON_SIZE + PADDING * 2
+  
+End
+
+  
+Public Sub SetPath(sPath As String)
+  
+  $sPath = sPath
+  $hProjectInfo = New CProjectInfo(sPath)
+  Me.Tag = sPath
+  
+  With $hProjectInfo
+    
+    If .Icon.W = ICON_SIZE And If .Icon.H = ICON_SIZE Then
+      $hIcon = .Icon
+    Else
+      $hIcon = .Icon.Image.Stretch(ICON_SIZE, ICON_SIZE).Picture
+    Endif
+    
+  End With 
+  
+End
+
+Public Sub DrawingArea_Draw()
+  
+  Dim hIcon As Picture
+  Dim sTitle As String
+  Dim X, W As Integer
+  Dim sPath As String
+  
+  If Not $hProjectInfo Then Return
+  
+  With $hProjectInfo
+    
+    Draw.Picture($hIcon, PADDING, PADDING)
+    sTitle = .Title
+    If Not sTitle Then sTitle = .Name
+    Draw.Font.Bold = True
+    W = Draw.Font.Width(sTitle)
+    X = ICON_SIZE + PADDING * 3
+    Draw.Text(sTitle, X, PADDING, W, Desktop.Scale * 2, Align.TopLeft)
+    Draw.Font.Bold = False
+
+    Draw.Font.Grade = -1
+    Draw.Foreground = Color.DarkGray
+    If .Authors And If .Authors.Count Then
+      X += W + 8
+      Draw.Text(("Author(s)") & " : " & .Authors.Join(", "), X, PADDING, Draw.W - X - PADDING, Desktop.Scale * 2, Align.TopLeft)
+    Endif
+
+    sPath = Replace($sPath, System.User.Home, "~")
+    X = ICON_SIZE + PADDING * 3
+    Draw.Text(sPath, X, PADDING * 2 + Desktop.Scale * 2, Draw.W - X - PADDING, Desktop.Scale * 3, Align.TopLeft)
+    
+  End With
+  
+End
--- a/comp/src/gb.form/.project
+++ b/comp/src/gb.form/.project
@ -1,5 +1,5 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 2.99.0 (r2172)
+# Compiled with Gambas 2.99.0 (r2211)
 Startup=FMain
 StackTrace=1
 Version=2.99.0
--- a/comp/src/gb.form/.src/ListContainer.class
+++ b/comp/src/gb.form/.src/ListContainer.class
@ -95,7 +95,6 @@ Public Sub ScrollView_Scroll()
  
 End

-
 Public Sub Child_Insert(Child As Control)

  'Debug Me.Name
@ -302,8 +301,10 @@ Public Sub Clear()
  'For Each hChild In $hScrollView.Children
  '  hChild.Delete
  'Next
+  Lock()
  $hScrollView.Children.Clear
  $hSelected = Null
+  Unlock()
  'Wait
  
 End
@ -322,7 +323,7 @@ Private Sub Background_Write(Value As Integer)

 End

-Public Sub {Lock}()
+Public Sub Lock()
  
  If $iLock = 0 Then Me.Arrangement = Arrange.None
  Inc $iLock
--- a/main/gbc/Makefile.am
+++ b/main/gbc/Makefile.am
@ -1,4 +1,4 @@
-AM_CFLAGS = -I$(top_srcdir)/share @INCLTDL@
+AM_CFLAGS += -I$(top_srcdir)/share @INCLTDL@

 bin_PROGRAMS = gbc3 gba3 gbi3

--- a/main/gbx/Makefile.am
+++ b/main/gbx/Makefile.am
@ -1,9 +1,10 @@
-AM_CFLAGS = -I$(top_srcdir)/share @INTL_INC@ @CONV_INC@ @GBX_THREAD_INC@ @INCLTDL@ @FFI_INC@
+AM_CFLAGS += -I$(top_srcdir)/share @INTL_INC@ @CONV_INC@ @GBX_THREAD_INC@ @INCLTDL@ @FFI_INC@

 bin_PROGRAMS = gbx3
 gblib_LTLIBRARIES = gb.la

 gbx3_LDADD = @MATH_LIB@ @INTL_LIB@ @CONV_LIB@ @GETTEXT_LIB@ @DL_LIB@ @GBX_THREAD_LIB@ @FFI_LIB@
+gbx3_LDFLAGS = @LD_FLAGS@ @FFI_LDFLAGS@
 gbx3_CFLAGS = -DGAMBAS_PATH="\"$(bindir)\"" $(AM_CFLAGS)

 gb_la_LIBADD = @MATH_LIB@ @INTL_LIB@ @CONV_LIB@ @GETTEXT_LIB@ @DL_LIB@ @GBX_THREAD_LIB@ @FFI_LIB@