"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "doc/manual/cache/ProPgPolymorphism.wakka" between
FreeBASIC-1.08.0-source.tar.xz and FreeBASIC-1.08.1-source.tar.xz

About: FreeBasic is a set of cross-platform development tools consisting of a compiler, GNU-based assembler, linker and archiver, and supporting runtime libraries, including a software-based graphics library.

ProPgPolymorphism.wakka  (FreeBASIC-1.08.0-source.tar.xz):ProPgPolymorphism.wakka  (FreeBASIC-1.08.1-source.tar.xz)
skipping to change at line 167 skipping to change at line 167
Property GraphicPoint.y () As Integer Property GraphicPoint.y () As Integer
Return This._y Return This._y
End Property End Property
Property GraphicPoint.y (Byval y0 As Integer) Property GraphicPoint.y (Byval y0 As Integer)
If GraphicPoint.yValid(y0) Then This._y = y0 If GraphicPoint.yValid(y0) Then This._y = y0
End Property End Property
Static Function GraphicPoint.xValid (Byval x0 As Integer) As Integer Static Function GraphicPoint.xValid (Byval x0 As Integer) As Integer
If ScreenPtr = 0 Then Return 0 '' no open graphic window If ScreenPtr = 0 Then Return 0 '' no open graphic window
Dim As Integer w Dim As Long w
Screeninfo(w) Screeninfo(w)
If x0 >= 0 And x0 <= w - 1 Then Return -1 Else Return 0 If x0 >= 0 And x0 <= w - 1 Then Return -1 Else Return 0
End Function End Function
Static Function GraphicPoint.yValid (Byval y0 As Integer) As Integer Static Function GraphicPoint.yValid (Byval y0 As Integer) As Integer
If ScreenPtr = 0 Then Return 0 '' no open graphic window If ScreenPtr = 0 Then Return 0 '' no open graphic window
Dim As Integer h Dim As Long h
Screeninfo( , h) Screeninfo( , h)
If y0 >= 0 And y0 <= h - 1 Then Return -1 Else Return 0 If y0 >= 0 And y0 <= h - 1 Then Return -1 Else Return 0
End Function End Function
Type GraphicForm2P Extends Object '' abstract graphic form defined by two point s Type GraphicForm2P Extends Object '' abstract graphic form defined by two point s
Public: '' user interface Public: '' user interface
Dim As GraphicPoint pt1, pt2 Dim As GraphicPoint pt1, pt2
Dim As Integer col Dim As Integer col
Declare Abstract Sub drawGraphicForm2P () '' request procedure i mplementation for instantiable derived type Declare Abstract Sub drawGraphicForm2P () '' request procedure i mplementation for instantiable derived type
Declare Virtual Destructor () '' for polymorphic com patibility with any derived type Declare Virtual Destructor () '' for polymorphic com patibility with any derived type
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)