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

[SCRIPTER]

Browse source 
* BUG: Scripter works correctly again with the new component file syntax.


git-svn-id: svn://localhost/gambas/trunk@3640 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-03-06 19:15:34 +00:00
parent 0a7e85d778
commit cf68b87c32
2 changed files with 5 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
app/src/gbs3/.project
View file

@ -9,7 +9,6 @@ Component=gb.eval
Description="Gambas Script" Description="Gambas Script"
Authors="Fabien Bodard, Benoit Minisini" Authors="Fabien Bodard, Benoit Minisini"
TabSize=2 TabSize=2
KeepDebugInfo=1
Maintainer=benoit Maintainer=benoit
Vendor=Princeton Vendor=Princeton
Address=benoit@localhost Address=benoit@localhost

41
app/src/gbs3/.src/CComponent.class
View file

@ -102,38 +102,6 @@ Static Private Sub InitComponent(sFile As String)
With hComponent With hComponent
' If sGroup = "Change" Then
'
' aChange = Changes["." & sKey]
' If Not aChange Then
' aChange = New String[]
' Changes["." & sKey] = aChange
' Endif
'
' aStr = Split(sLig, ",")
' aStr.Add(sKey)
' aChange.Insert(aStr)
' aChange.Sort()
'
' For Each sChange In aStr
'
' aChange = Changes[sChange]
' If Not aChange Then
' aChange = New String[]
' Changes[sChange] = aChange
' Endif
'
' aChange.Add("." & sKey)
'
' Next
'
' Else
' IF sKey = "Key" THEN
' .Key = sLig
' ELSE IF sKey = "Name" THEN 'OR sKey = "Name[" & sLangShort & "]" OR sKey = "Name[" & sLang & "]" THEN
' PRINT "cName[\""; .Key; "\"] = (\""; sLig; "\")"
' .Name = sLig
If sKey = "Author" Or sKey = "Authors" Then If sKey = "Author" Or sKey = "Authors" Then
.Authors = Split(sLig) .Authors = Split(sLig)
'Else If sKey = "Type" Then 'Else If sKey = "Type" Then
@ -160,10 +128,11 @@ Static Private Sub InitComponent(sFile As String)
.Implement = Split(LCase(sLig)) .Implement = Split(LCase(sLig))
Else If sKey = "Need" Or sKey = "Needs" Then Else If sKey = "Need" Or sKey = "Needs" Then
.Need = Split(LCase(sLig)) .Need = Split(LCase(sLig))
Else If sKey = "Alpha" Then ' Do not care with State
.State = UNSTABLE 'Else If sKey = "Alpha" Then
Else If sKey = "State" Then ' .State = UNSTABLE
.State = CInt(sLig) 'Else If sKey = "State" Then
' .State = CInt(sLig)
Else If sKey = "Version" Then Else If sKey = "Version" Then
.Version = sLig .Version = sLig
Endif Endif