clean up

src/base/fresnel.dom.pas

@@ -20,7 +20,9 @@ ToDo:
 unit Fresnel.DOM;
 
 {$mode ObjFPC}{$H+}
+{$IF FPC_FULLVERSION>30300}
 {$WARN 6060 off} // Case statement does not handle all possible cases
+{$ENDIF}
 {$Interfaces CORBA} // no reference counting
 {$ModeSwitch AdvancedRecords}
 
@@ -1337,7 +1339,7 @@ var
     // create or free layout nodes
     Layouter.ComputeCSSLayoutNode(El);
     El.ComputeCSSAfterLayoutNode(Layouter);
-    El.WriteComputedAttributes('TFresnelViewport.ApplyCSS');
+    //El.WriteComputedAttributes('TFresnelViewport.ApplyCSS');
 
     for i:=0 to El.NodeCount-1 do
       TraverseLayout(El.Nodes[i]);

src/base/fresnel.forms.pas

@@ -305,17 +305,17 @@ function TFresnelCustomForm.GetRenderer: TFresnelRenderer;
 begin
   if Designer<>nil then
     begin
-    Writeln('Designer renderer');
+    //Writeln('Designer renderer');
     Result:=Designer.GetRenderer;
     end
   else if WSFormAllocated then
     begin
-    Writeln('WSForm renderer');
+    //Writeln('WSForm renderer');
     Result:=WSForm.Renderer;
     end
   else
     begin
-    Writeln('Nil renderer');
+    //Writeln('Nil renderer');
     Result:=nil;
     end
 end;
@@ -860,12 +860,12 @@ begin
   end;
   OldEls:=FHoverElements;
   FHoverElements:=AValue;
-  writeln('TFresnelBaseApplication.SetHoverElements START ',Name,':',ClassName);
+  //writeln('TFresnelBaseApplication.SetHoverElements START ',Name,':',ClassName);
   // notify old hover elements
   for i:=0 to length(OldEls)-1 do
   begin
     El:=OldEls[i];
-    writeln('TFresnelBaseApplication.SetHoverElements Old[',i,']=',El.GetPath);
+    //writeln('TFresnelBaseApplication.SetHoverElements Old[',i,']=',El.GetPath);
     if IsHoverElement(El) then continue;
     El.CSSPseudoClass[fcpcHover]:=false;
   end;
@@ -873,14 +873,14 @@ begin
   for i:=0 to length(FHoverElements)-1 do
   begin
     El:=FHoverElements[i];
-    writeln('TFresnelBaseApplication.SetHoverElements New[',i,']=',El.GetPath);
+    //writeln('TFresnelBaseApplication.SetHoverElements New[',i,']=',El.GetPath);
     El.CSSPseudoClass[fcpcHover]:=true;
   end;
 end;
 
 procedure TFresnelBaseApplication.DoFresnelLog(aType: TEventType; const Msg: UTF8String);
 begin
-  writeln('TFresnelBaseApplication.DoFresnelLog ',aType,' ',Msg);
+  //writeln('TFresnelBaseApplication.DoFresnelLog ',aType,' ',Msg);
   Log(aType,Msg);
 end;