Changed all EOLs to LF for git/diff

This commit is contained in:
Robert Lawrence 2011-08-29 14:10:35 -05:00
parent b478fe0c4f
commit 415bd85574
8 changed files with 3988 additions and 8 deletions

View file

@ -1 +1,22 @@
#tag Class Protected Class App Inherits Application #tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public #Tag Instance, Platform = Windows, Language = Default, Definition = \"&Delete" #Tag Instance, Platform = Linux, Language = Default, Definition = \"&Delete" #tag EndConstant #tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public #Tag Instance, Platform = Windows, Language = Default, Definition = \"E&xit" #tag EndConstant #tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public #Tag Instance, Platform = Mac OS, Language = Default, Definition = \"Cmd+Q" #Tag Instance, Platform = Linux, Language = Default, Definition = \"Ctrl+Q" #tag EndConstant #tag ViewBehavior #tag EndViewBehavior End Class #tag EndClass
#tag Class
Protected Class App
Inherits Application
#tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public
#Tag Instance, Platform = Windows, Language = Default, Definition = \"&Delete"
#Tag Instance, Platform = Linux, Language = Default, Definition = \"&Delete"
#tag EndConstant
#tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public
#Tag Instance, Platform = Windows, Language = Default, Definition = \"E&xit"
#tag EndConstant
#tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
#Tag Instance, Platform = Mac OS, Language = Default, Definition = \"Cmd+Q"
#Tag Instance, Platform = Linux, Language = Default, Definition = \"Ctrl+Q"
#tag EndConstant
#tag ViewBehavior
#tag EndViewBehavior
End Class
#tag EndClass

View file

@ -1 +1,14 @@
#tag BuildAutomation Begin BuildStepList Linux Begin BuildProjectStep Build End End Begin BuildStepList Mac OS X Begin BuildProjectStep Build End End Begin BuildStepList Windows Begin BuildProjectStep Build End End #tag EndBuildAutomation
#tag BuildAutomation
Begin BuildStepList Linux
Begin BuildProjectStep Build
End
End
Begin BuildStepList Mac OS X
Begin BuildProjectStep Build
End
End
Begin BuildStepList Windows
Begin BuildProjectStep Build
End
End
#tag EndBuildAutomation

View file

@ -1 +1,77 @@
#tag Class Protected Class Example2 Inherits fpdf #tag Method, Flags = &h1 Protected Sub Footer() //Posición: a 1,5 cm del final self.SetY(-15) //Arial italic 8 self.SetFont("Arial","I",8) //Número de página self.Cell(0,10,"Page " + str(self.PageNo()) + "/{nb}",0,0,"C") End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub Header() //Logo - must be the full absolute path to the image file. Dim logopath As String logopath = GetFolderItem("").Child("demoinfo").Child("logo_rpdf.png").ShellPath self.Image(logopath,10,8) //Arial bold 15 self.SetFont("Arial","B",15) //Movernos a la derecha self.Cell(80) //Título self.Cell(30,10,"Title",1,0,"C") //Salto de línea self.Ln(20) End Sub #tag EndMethod #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass
#tag Class
Protected Class Example2
Inherits fpdf
#tag Method, Flags = &h1
Protected Sub Footer()
//Posición: a 1,5 cm del final
self.SetY(-15)
//Arial italic 8
self.SetFont("Arial","I",8)
//Número de página
self.Cell(0,10,"Page " + str(self.PageNo()) + "/{nb}",0,0,"C")
End Sub
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub Header()
//Logo - must be the full absolute path to the image file.
Dim logopath As String
logopath = GetFolderItem("").Child("demoinfo").Child("logo_rpdf.png").ShellPath
self.Image(logopath,10,8)
//Arial bold 15
self.SetFont("Arial","B",15)
//Movernos a la derecha
self.Cell(80)
//Título
self.Cell(30,10,"Title",1,0,"C")
//Salto de línea
self.Ln(20)
End Sub
#tag EndMethod
#tag ViewBehavior
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass

View file

@ -1 +1,202 @@
#tag Class Protected Class Example4 Inherits fpdf #tag Method, Flags = &h1 Protected Function AcceptPageBreak() As boolean //Método que acepta o no el salto automático de página if(me.col < 2) then //Go to next column me.SetCol(me.col+1) //reset Y0 me.SetY(me.y0) //go to the next page return false else //Back to first column me.SetCol(0) //Page Break return true end if End Function #tag EndMethod #tag Method, Flags = &h1 Protected Sub ChapterBody(charfile as string) //Abrir fichero de texto Dim f As FolderItem Dim t As TextInputStream dim txt as string f = new FolderItem f = GetFolderItem("demoinfo").child(charfile) if f = nil then return // Could not locate file t = f.OpenAsTextFile t.Encoding = Encodings.ASCII txt = t.readall t.close //Font me.SetFont("Times","",12) //Print text in 6cm column me.MultiCell(60,5,txt) me.Ln() //Cita en itálica me.SetFont("","I") me.Cell(0,5,"(end of file)") //Volver a la primera columna me.SetCol(0) End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub ChapterTitle(num as integer, label as string) dim title as string title = "Chapter " + str(num) + " : " + label //Title me.SetFont("Arial","",12) me.SetFillColor(200,220,255) me.Cell(0,6,title,0,1,"L",1) me.Ln(4) //Guardar ordenada me.y0=me.GetY() End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub Footer() //Pie de página me.SetY(-15) me.SetFont("Arial","I",8) me.SetTextColor(128) me.Cell(0,10,"Page " + str(me.PageNo), 0, 0,"C") End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub Header() dim w as double me.SetFont("Arial","B",15) w = me.GetStringWidth(me.title) + 6 me.SetX( (210 - w) / 2) me.SetDrawColor(0,80,180) me.SetFillColor(230,230,0) me.SetTextColor(220,50,50) me.SetLineWidth(1) me.Cell(w,9,me.title, 1, 1,"C", 1) me.Ln(10) //Guardar ordenada me.y0 = me.GetY() End Sub #tag EndMethod #tag Method, Flags = &h0 Sub PrintChapter(num as integer, title as string, file as string) //Add Chapter me.AddPage() me.ChapterTitle(num,title) me.ChapterBody(file) End Sub #tag EndMethod #tag Method, Flags = &h1 Protected Sub SetCol(col as integer) dim x as double //Establecer la posición de una columna dada me.col = col x = 10 + col * 65 me.SetLeftMargin(x) me.SetX(x) End Sub #tag EndMethod #tag Property, Flags = &h21 #tag Note //Current Column #tag EndNote Private col As Integer #tag EndProperty #tag Property, Flags = &h21 #tag Note //Ordenada de Comienzo de Columna #tag EndNote Private y0 As Integer #tag EndProperty #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" InheritedFrom="Object" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" InheritedFrom="Object" #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass
#tag Class
Protected Class Example4
Inherits fpdf
#tag Method, Flags = &h1
Protected Function AcceptPageBreak() As boolean
//Método que acepta o no el salto automático de página
if(me.col < 2) then
//Go to next column
me.SetCol(me.col+1)
//reset Y0
me.SetY(me.y0)
//go to the next page
return false
else
//Back to first column
me.SetCol(0)
//Page Break
return true
end if
End Function
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub ChapterBody(charfile as string)
//Abrir fichero de texto
Dim f As FolderItem
Dim t As TextInputStream
dim txt as string
f = new FolderItem
f = GetFolderItem("demoinfo").child(charfile)
if f = nil then return // Could not locate file
t = f.OpenAsTextFile
t.Encoding = Encodings.ASCII
txt = t.readall
t.close
//Font
me.SetFont("Times","",12)
//Print text in 6cm column
me.MultiCell(60,5,txt)
me.Ln()
//Cita en itálica
me.SetFont("","I")
me.Cell(0,5,"(end of file)")
//Volver a la primera columna
me.SetCol(0)
End Sub
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub ChapterTitle(num as integer, label as string)
dim title as string
title = "Chapter " + str(num) + " : " + label
//Title
me.SetFont("Arial","",12)
me.SetFillColor(200,220,255)
me.Cell(0,6,title,0,1,"L",1)
me.Ln(4)
//Guardar ordenada
me.y0=me.GetY()
End Sub
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub Footer()
//Pie de página
me.SetY(-15)
me.SetFont("Arial","I",8)
me.SetTextColor(128)
me.Cell(0,10,"Page " + str(me.PageNo), 0, 0,"C")
End Sub
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub Header()
dim w as double
me.SetFont("Arial","B",15)
w = me.GetStringWidth(me.title) + 6
me.SetX( (210 - w) / 2)
me.SetDrawColor(0,80,180)
me.SetFillColor(230,230,0)
me.SetTextColor(220,50,50)
me.SetLineWidth(1)
me.Cell(w,9,me.title, 1, 1,"C", 1)
me.Ln(10)
//Guardar ordenada
me.y0 = me.GetY()
End Sub
#tag EndMethod
#tag Method, Flags = &h0
Sub PrintChapter(num as integer, title as string, file as string)
//Add Chapter
me.AddPage()
me.ChapterTitle(num,title)
me.ChapterBody(file)
End Sub
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub SetCol(col as integer)
dim x as double
//Establecer la posición de una columna dada
me.col = col
x = 10 + col * 65
me.SetLeftMargin(x)
me.SetX(x)
End Sub
#tag EndMethod
#tag Property, Flags = &h21
#tag Note
//Current Column
#tag EndNote
Private col As Integer
#tag EndProperty
#tag Property, Flags = &h21
#tag Note
//Ordenada de Comienzo de Columna
#tag EndNote
Private y0 As Integer
#tag EndProperty
#tag ViewBehavior
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass

View file

@ -1 +1,87 @@
#tag Menu Begin Menu MenuBar1 Begin MenuItem FileMenu SpecialMenu = 0 Text = "&File" Index = -2147483648 AutoEnable = True Begin QuitMenuItem FileQuit SpecialMenu = 0 Text = "#App.kFileQuit" Index = -2147483648 ShortcutKey = "#App.kFileQuitShortcut" Shortcut = "#App.kFileQuitShortcut" AutoEnable = True End End Begin MenuItem EditMenu SpecialMenu = 0 Text = "&Edit" Index = -2147483648 AutoEnable = True Begin MenuItem EditUndo SpecialMenu = 0 Text = "&Undo" Index = -2147483648 ShortcutKey = "Z" Shortcut = "Cmd+Z" MenuModifier = True AutoEnable = True End Begin MenuItem UntitledMenu1 SpecialMenu = 0 Text = "-" Index = -2147483648 AutoEnable = True End Begin MenuItem EditCut SpecialMenu = 0 Text = "Cu&t" Index = -2147483648 ShortcutKey = "X" Shortcut = "Cmd+X" MenuModifier = True AutoEnable = True End Begin MenuItem EditCopy SpecialMenu = 0 Text = "&Copy" Index = -2147483648 ShortcutKey = "C" Shortcut = "Cmd+C" MenuModifier = True AutoEnable = True End Begin MenuItem EditPaste SpecialMenu = 0 Text = "&Paste" Index = -2147483648 ShortcutKey = "V" Shortcut = "Cmd+V" MenuModifier = True AutoEnable = True End Begin MenuItem EditClear SpecialMenu = 0 Text = "#App.kEditClear" Index = -2147483648 AutoEnable = True End Begin MenuItem UntitledMenu0 SpecialMenu = 0 Text = "-" Index = -2147483648 AutoEnable = True End Begin MenuItem EditSelectAll SpecialMenu = 0 Text = "Select &All" Index = -2147483648 ShortcutKey = "A" Shortcut = "Cmd+A" MenuModifier = True AutoEnable = True End End End #tag EndMenu
#tag Menu
Begin Menu MenuBar1
Begin MenuItem FileMenu
SpecialMenu = 0
Text = "&File"
Index = -2147483648
AutoEnable = True
Begin QuitMenuItem FileQuit
SpecialMenu = 0
Text = "#App.kFileQuit"
Index = -2147483648
ShortcutKey = "#App.kFileQuitShortcut"
Shortcut = "#App.kFileQuitShortcut"
AutoEnable = True
End
End
Begin MenuItem EditMenu
SpecialMenu = 0
Text = "&Edit"
Index = -2147483648
AutoEnable = True
Begin MenuItem EditUndo
SpecialMenu = 0
Text = "&Undo"
Index = -2147483648
ShortcutKey = "Z"
Shortcut = "Cmd+Z"
MenuModifier = True
AutoEnable = True
End
Begin MenuItem UntitledMenu1
SpecialMenu = 0
Text = "-"
Index = -2147483648
AutoEnable = True
End
Begin MenuItem EditCut
SpecialMenu = 0
Text = "Cu&t"
Index = -2147483648
ShortcutKey = "X"
Shortcut = "Cmd+X"
MenuModifier = True
AutoEnable = True
End
Begin MenuItem EditCopy
SpecialMenu = 0
Text = "&Copy"
Index = -2147483648
ShortcutKey = "C"
Shortcut = "Cmd+C"
MenuModifier = True
AutoEnable = True
End
Begin MenuItem EditPaste
SpecialMenu = 0
Text = "&Paste"
Index = -2147483648
ShortcutKey = "V"
Shortcut = "Cmd+V"
MenuModifier = True
AutoEnable = True
End
Begin MenuItem EditClear
SpecialMenu = 0
Text = "#App.kEditClear"
Index = -2147483648
AutoEnable = True
End
Begin MenuItem UntitledMenu0
SpecialMenu = 0
Text = "-"
Index = -2147483648
AutoEnable = True
End
Begin MenuItem EditSelectAll
SpecialMenu = 0
Text = "Select &All"
Index = -2147483648
ShortcutKey = "A"
Shortcut = "Cmd+A"
MenuModifier = True
AutoEnable = True
End
End
End
#tag EndMenu

File diff suppressed because one or more lines are too long

2972
fpdf.rbbas

File diff suppressed because one or more lines are too long

View file

@ -1 +1,42 @@
Type=Desktop RBProjectVersion=2011.02 MinIDEVersion=20110100 Class=App;App.rbbas;&h64F77FFF;&h0;false Window=Window1;Window1.rbfrm;&h601087FF;&h0;false MenuBar=MenuBar1;MenuBar1.rbmnu;&h79D817FF;&h0;false Class=Example2;Example2.rbbas;&h59332FFF;&h0;false Class=Example4;Example4.rbbas;&h18AF7FF;&h0;false BuildSteps=Build Automation;Build Automation.rbbas;&h5759A003;&h0;false Class=fpdf;fpdf.rbbas;&h1F0567FF;&h0;false Module=zlib;zlib.rbo;&h77DD4121;&h0;false DefaultWindow=Window1 AppMenuBar=MenuBar1 MajorVersion=0 MinorVersion=0 SubVersion=4 NonRelease=3 Release=2 InfoVersion= LongVersion= ShortVersion= WinCompanyName= WinInternalName= WinProductName= AutoIncrementVersionInformation=True BuildFlags=&h1890 BuildLanguage=&h0 DebugLanguage=&h0 Region=0 WindowsName=rsFPDF Demo MacCarbonMachName=rsFPDF Demo LinuxX86Name=rsfpdf_demo MacCreator= MDI=0 MDICaption= DefaultEncoding=&h0 AppIcon=rsfpdf.rbres;&h0 OSXBundleID= DebuggerCommandLine= UseGDIPlus=False UseBuildsFolder=True IsWebProject=False
Type=Desktop
RBProjectVersion=2011.02
MinIDEVersion=20110100
Class=App;App.rbbas;&h64F77FFF;&h0;false
Window=Window1;Window1.rbfrm;&h601087FF;&h0;false
MenuBar=MenuBar1;MenuBar1.rbmnu;&h79D817FF;&h0;false
Class=Example2;Example2.rbbas;&h59332FFF;&h0;false
Class=Example4;Example4.rbbas;&h18AF7FF;&h0;false
BuildSteps=Build Automation;Build Automation.rbbas;&h5759A003;&h0;false
Class=fpdf;fpdf.rbbas;&h1F0567FF;&h0;false
Module=zlib;zlib.rbo;&h77DD4121;&h0;false
DefaultWindow=Window1
AppMenuBar=MenuBar1
MajorVersion=0
MinorVersion=0
SubVersion=4
NonRelease=3
Release=2
InfoVersion=
LongVersion=
ShortVersion=
WinCompanyName=
WinInternalName=
WinProductName=
AutoIncrementVersionInformation=True
BuildFlags=&h1890
BuildLanguage=&h0
DebugLanguage=&h0
Region=0
WindowsName=rsFPDF Demo
MacCarbonMachName=rsFPDF Demo
LinuxX86Name=rsfpdf_demo
MacCreator=
MDI=0
MDICaption=
DefaultEncoding=&h0
AppIcon=rsfpdf.rbres;&h0
OSXBundleID=
DebuggerCommandLine=
UseGDIPlus=False
UseBuildsFolder=True
IsWebProject=False