BlackBox Component Builder

Bug #106

Updated by J. Templ about 8 years ago

The Restore procedure of a view is called twice when a view is first opened. Experiments showed that for simple views (no scrollbars) this is not required. Until a final solution is available it is proposed that a flag (HostWindows.creatingDoc) is introduced that allows a simple view to skip the first Restore. 

 <pre> 
 MODULE ToolsTestView; 

 IMPORT Views, Log; 

 TYPE 
	 View = POINTER TO RECORD (Views.View) END; 

	 PROCEDURE (v: View) Restore (f: Views.Frame; l, t, r, b: INTEGER); 
	 BEGIN 
		 Log.Int(l); Log.Int(r); Log.Int(t); Log.Int(b); Log.Ln; 
	 END Restore; 

	 PROCEDURE Start*; 
	 VAR v: View; 
	 BEGIN 
		 NEW(v); 
		 Views.OpenView(v); 
	 END Start; 

 END ToolsTestView. 

 ^Q ToolsTestView.Start 
 </pre> 

 Log window: 
 <pre> 
  0 5912792 0 5880100 
  0 5912792 0 5880100 
 </pre> 

Back