// Text of project DialerProj written on 5/9/95 at 5:25 PM
// Beginning of file DialerMainLayout

// Before Script for "theMainView"
// Copyright © 1993-1995 Apple Computer, Inc. All rights reserved


theMainView :=
    {viewFlags: 1,
     viewFormat: 336,
     viewBounds: {top: 64, left: 4, right: 140, bottom: 264},
     title: "Dialer",
     debug: "theMainView",
     _proto: @180
    };

presetDialButton :=
    {text: "Call  Todd",
     buttonClickScript:
       func()
       begin
          GetRoot():Dial("4269312",userconfiguration.currentDialSpeaker);
       end,
     viewBounds: {left: 35, top: 19, right: 99, bottom: 59},
     viewFlags: 515,
     debug: "presetDialButton",
     _proto: @226
    };
AddStepForm(theMainView, presetDialButton);
StepDeclare(theMainView, presetDialButton, 'presetDialButton);



phonePad :=
    {
     keyDefinitions:
       // the phone keypad
       // the string will eventually be returned on a key press
       // the then sent to :Dial
       [
          [keyVUnit, keyVUnit,
       				"1",  "1",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"2",  "2",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"3",  "3",  keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3],
       
          [keyVUnit, keyVUnit,
       				"4",  "4",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"5",  "5",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"6",  "6",  keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3],
       
          [keyVUnit, keyVUnit,
       				"7",  "7",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"8",  "8",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"9",  "9",  keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3],
       
          [keyVUnit, keyVUnit,
       				"*",  "*",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"0",  "0",	keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3,
       				"#",  "#",  keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3]
       ],
     viewBounds: {left: 25, top: 81, right: 121, bottom: 161},
     viewClickScript:
       func(unit)
       begin
       end,
     keyPressScript:
       func(key)
       begin
       	// just dial based on the string returned from the key
       	// use the current dialing speaker, so could dial from
       	// the serial port
       	:Dial(key,userconfiguration.currentDialSpeaker);
       end,
     debug: "phonePad",
     _proto: @188
    };
AddStepForm(theMainView, phonePad);
StepDeclare(theMainView, phonePad, 'phonePad);




constant |layout_DialerMainLayout| := theMainView;
// End of file DialerMainLayout