Apple Newton Programmer’s Newton 2.0 (for Newton 2.0) - Manual (Page 587)

C H A P T E R 1 5
Filing
Summary 15-21
Filing Protos 15
protoFilingButton 15
myFilingButtonView :=
// do not override ViewClickScript; use ButtonClickScript instead
{ _parent:{ // MyAppBaseView
_parent: {…}, // root view
_proto: {…}, // myAppBaseViewTemplate
…},
_proto: {// myFilingButtonTemplate
// set your own viewBounds in NTK view editor
viewBounds: {left: 10, top: 250,
right: 27, bottom: 263},
_proto: {// protoFilingButton
_proto: {…}, // protoPictureButton
// your ButtonClickScript must call inherited
ButtonClickScript:,
// your Update must call inherited
Update: ,
// your viewSetupFormScript must call inherited
viewSetupFormScript:
…},
…},
…}
protoNewFolderTab 15
myNewFolderTabView := {
{_parent: myAppBaseView, // see summary on page 15-20
_proto: { protoNewFolderTab,
// your folder tab’s viewSetupFormScript must
// call this inherited method using conditional send
viewSetupFormScript: ,
…},
// do not alter this slot; set only the text slot
title: {_parent: <2> // myNewFolderTabView,
_proto: {viewClass: clTextView, …},
// string displayed at left of newFolderTab view
text: "My Text",
…},
}