// Copyright © 1993,4 Apple Computer, Inc. All rights reserved

// application constants
constant kAppSymbol := '|Dialer:PIEDTS| ;
// ---- End Project Data ----


// ---- File DialerMainLayout ----

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

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

presetDialButton := /* child of theMainView */
   {text: "Call  Todd",
    buttonClickScript:
      func()
      begin
         GetRoot():Dial("4269312",userconfiguration.currentDialSpeaker);
      end,
    viewBounds: {left: 35, top: 19, right: 99, bottom: 59},
    viewFlags: 515,
    _proto: protoTextButton,
    debug: "presetDialButton"
   };
// View presetDialButton is declared to theMainView



phonePad := /* child of theMainView */
   {
    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,
    _proto: protoKeypad,
    debug: "phonePad"
   };
// View phonePad is declared to theMainView







// ---- Beginning of section for non used Layout files ----

// End of output