/*====================================================================
	Sample 1.def	©1996 Yosuke "Basuke" Suzuki.
	
	Simple button based on protoTextButton. 
	It displays simple alert.
  ====================================================================*/

partData := {
	
	//
	// Here is the definition of button frame.
	//
	
	button: {
			_proto: protoTextButton,
			
			buttonClickScript:
				func()
				begin
					:ClickStart(kAppSymbol);
					
					GetRoot():Notify(
								kNotifyAlert, 
								EnsureInternal("Sample 1"),
								EnsureInternal("Hello World!"));
					
					:ClickFinish(true);
				end,
			
			viewBounds: {left:0, right:13, top:0, bottom:13},
			
			text: "Hi",
			
			title: "Sample 1 : Hello World",
		}
};


InstallScript := func(partFrame,removeFrame)
begin
	
	//
	//	register button
	//
	
	call kRegTapBarButtonFunc with (kAppSymbol, partFrame.partData.button);
end;


RemoveScript := func(removeFrame)
begin
	
	//
	//	unregister button
	//
	
	call kUnRegTapBarButtonFunc with (kAppSymbol);
end;