demo: edit: force fresnel package

demo/Button/ButtonSkia.lpr

@@ -1,6 +1,9 @@
 program ButtonSkia;
 
 uses
+  {$IFDEF Unix}
+  cthreads,
+  {$ENDIF}
   Fresnel, // initializes the widgetset
   Fresnel.App, MainUnit;
 

demo/Edit/.gitignore

@@ -0,0 +1 @@
+editdemo

demo/Edit/editdemo.lpi

@@ -31,9 +31,7 @@
     <RequiredPackages>
       <Item>
         <PackageName Value="Fresnel"/>
-      </Item>
-      <Item>
-        <PackageName Value="FresnelBase"/>
+        <DefaultFilename Value="../../src/fresnel.lpk" Prefer="True"/>
       </Item>
     </RequiredPackages>
     <Units>

demo/Edit/editdemo.lpr

@@ -1,7 +1,9 @@
-program editdemo;
+program EditDemo;
 
 uses
+  {$IFDEF Unix}
   cthreads,
+  {$ENDIF}
   Fresnel, // initializes the widgetset
   Fresnel.App,
   MainUnit;

demo/Edit/mainunit.pp

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Fresnel.Forms, Fresnel.Controls, Fresnel.Events,
-  FCL.Events, Fresnel.Edit;
+  FCL.Events, Fresnel.Edit, Fresnel.Classes;
 
 type
 
@@ -43,25 +43,26 @@ end;
 constructor TMainForm.CreateNew(aOwner: TComponent);
 begin
   inherited CreateNew(aOWner);
+
   Caption:='Edit demo';
-  FormLeft:= 450;
-  FormTop:= 300;
-  FormWidth := 350;
-  FormHeight := 255;
+  FormBounds:=BoundsRectFre(450,300,350,255);
   Stylesheet.Text:=
     'div {'+
     '  padding: 3px; '+
     '  border: 2px solid black; '+
     '  margin: 6px;'+
     '}';
+
   Body1:=TBody.Create(Self);
   Body1.Parent:=Self;
   Body1.Style:='border: 2px solid blue;'#10;
   Body1.Name:='Body1';
+
   Div1:=TDiv.Create(Self);
   Div1.Parent:=Body1;
   Div1.Style:='background-color: blue;'#10'border-color: black;'#10'height:30px;';
   Div1.Name:='Div1';
+
   Label1:=TLabel.Create(Self);
   Label1.Parent:=Div1;
   With Label1 do
@@ -85,12 +86,14 @@ begin
     +'div:hover {'
     +'  background:#88bb22;'
     +'};');
- Edit1:=TEdit.Create(Self);
- Edit1.Name:='Edit1';
- Edit1.Value:='Edit1';
- Edit1.Parent:=Body1;
- Edit1.Style:='font-size:15px; family:Arial; background-color: yellow;'#10'border-color: black;'#10; // 'height:30px;width: 100px;';
- Edit1.Focus;
+
+  Edit1:=TEdit.Create(Self);
+  Edit1.Name:='Edit1';
+  Edit1.Value:='Edit1';
+  Edit1.Parent:=Body1;
+  Edit1.Style:='font-size:15px; family:Arial; background-color: yellow;'#10
+     +'border-color: black;'#10; // 'height:30px;width: 100px;';
+  Edit1.Focus;
 end;
 
 end.