From c96a3426458bc3df678146673a8e507904ccb7fe Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Fri, 19 Dec 2003 22:25:03 +0000
Subject: [PATCH] Updated to compile with new BView implementation

---
 bepascal/demos/demo/sources/button_view.pp | 31 ++++++++-------
 bepascal/demos/demo/sources/edit_view.pp   | 46 +++++++++++-----------
 bepascal/demos/demo/sources/other_view.pp  | 28 ++++++-------
 3 files changed, 52 insertions(+), 53 deletions(-)

diff --git a/bepascal/demos/demo/sources/button_view.pp b/bepascal/demos/demo/sources/button_view.pp
index 8a37fb3..0eb8ec4 100644
--- a/bepascal/demos/demo/sources/button_view.pp
+++ b/bepascal/demos/demo/sources/button_view.pp
@@ -27,25 +27,26 @@ uses
   Common;
 
 type 
-  TButton_View = class(BView)
-  public
-    constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
-    Button1: BButton;
-    Button2: BButton;
-    Button3: BButton;
+	TButton_View = class(BView)
+	public
+   	constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal); 
+   	Button1: BButton;    
+   	Button2: BButton;    
+   	Button3: BButton;    
+   		
+  	ListView1 : BListView;
+ 		ItemString : BStringItem;
+ 		outlineListView : BOutlineListView;
+ 		Box1 : BBox;
+ 		Box2 : BBox;
 
-    ListView1 : BListView;
-    ItemString : BStringItem;
-    outlineListView : BOutlineListView;
-    Box1 : BBox;
-    Box2 : BBox;
   end;
 
 implementation
 
-constructor TButton_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
-var
-  aRect2 : BRect;
+constructor TButton_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
+Var
+  aRect2 : BRect;  
   mess : BMessage;
   rgb : RGB_color;
 begin
@@ -131,4 +132,4 @@ begin
   outlineListView.AddItem(ItemString);
 end;
 
-end.
\ No newline at end of file
+end.
diff --git a/bepascal/demos/demo/sources/edit_view.pp b/bepascal/demos/demo/sources/edit_view.pp
index 8aa0b36..5941b19 100644
--- a/bepascal/demos/demo/sources/edit_view.pp
+++ b/bepascal/demos/demo/sources/edit_view.pp
@@ -25,35 +25,33 @@ uses
 	archivable, handler,  rect, window, view, graphicdefs, dataio,box, scrollview,
 	invoker, messenger, Control,textview,font,textcontrol,radiobutton,common;
 
+type 
+	TEdit_View = class(BView)
+ 	public
+   	constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal); 
 
-type
-  TEdit_View = class(BView)
-  public
-    constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); 
-
-    aTextView : BTextView;
-    Edit : BTextControl;
-
-    afont : Bfont;
-    Box1 : BBox;
-    Box2 : BBox;
-    Box3 : BBox;
-    Box4 : BBox;
-    RadioButton1,
-    RadioButton2 : BRadioButton;	
-    RadioButton3,
-    RadioButton4 : BRadioButton;	
-    scroll_vert : BscrollView;
+   	aTextView : BTextView;
+ 		Edit : BTextControl;
+   	
+   	afont : Bfont;
+ 		Box1 : BBox;
+ 		Box2 : BBox;
+		Box3 : BBox;
+ 		Box4 : BBox;
+		RadioButton1,
+		RadioButton2 : BRadioButton;	
+		RadioButton3,
+		RadioButton4 : BRadioButton;	
+		scroll_vert : BscrollView;
   end;
 
 implementation
 
-constructor TEdit_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
+constructor TEdit_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
 var
-   aRect2,aRect3 : BRect;  
-   mess : BMessage;
-     rgb : RGB_color;
-
+  aRect2,aRect3 : BRect;  
+  mess : BMessage;
+  rgb : RGB_color;
 begin
   inherited;
   SetViewColor(ui_color(B_PANEL_BACKGROUND_COLOR));  
@@ -150,4 +148,4 @@ begin
   aRect2.Free;
 end;
 
-end.
\ No newline at end of file
+end.
diff --git a/bepascal/demos/demo/sources/other_view.pp b/bepascal/demos/demo/sources/other_view.pp
index 4a6faeb..b95a177 100644
--- a/bepascal/demos/demo/sources/other_view.pp
+++ b/bepascal/demos/demo/sources/other_view.pp
@@ -27,24 +27,24 @@ uses
   Common;
 
 type 
-  Tother_View = class(BView)
-  public
-    constructor Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal); 
+	Tother_View = class(BView)
+	public
+   	constructor Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal); 
 
-    Box1 : BBox;
-    Box2 : BBox;
-    StatusBar1 : BStatusBar;
-    Button1: BButton;    
-    Button2: BButton;    
-    Button3: BButton;    
-    Value : BStringView;
+ 		Box1 : BBox;
+ 		Box2 : BBox;
+ 	  StatusBar1 : BStatusBar;
+   	Button1: BButton;    
+   	Button2: BButton;    
+   	Button3: BButton;    
+   	Value : BStringView;
   end;
 
 implementation
 
-constructor Tother_View.Create(frame : BRect; name : PChar; resizingMode, flags : Cardinal);
-var
-  aRect2, aRect3 : BRect;  
+constructor Tother_View.Create(aframe : BRect; name : PChar; aresizingMode, flags : Cardinal);
+Var
+  aRect2,aRect3 : BRect;  
   mess : BMessage;
   rgb : RGB_color;
 begin
@@ -106,4 +106,4 @@ begin
   aRect2.Free;
 end;
 
-end.
\ No newline at end of file
+end.