Apple Newton Utilities Guide de l'utilisateur Page 693

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 942
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 692
CHAPTER 19
Built-in Applications and System Data
Dates 19-19
Examples of Creating New Meeting Types 19
The following example code registers a new meeting type for a monthly meeting:
GetRoot().calendar:RegMeetingType (
'|MonthlyMeeting:MySig|,
{ item: "Monthly Meeting",
icon: myIcon,
smallicon: mySmallIcon,
NewMeeting: func(date, parentBox)
begin
local appt:= GetRoot().calendar
:AddAppointment ("",date, 60,
'monthly, nil);
appt.meetingType:=
'|MonthlyMeeting:MySig|;
EntryChange(appt);
appt; // the calendar will open the
// default meeting slip if we
// return the new appointment
end,
});
To register a new meeting type for a monthly event with a custom meeting slip:
GetRoot().calendar:RegMeetingType (
'|Monthly Event:MySig|,
{ item: "Monthly Event",
icon: myIcon,
smallicon: mySmallIcon,
NewMeeting: func(date, parentBox)
begin
local appt := GetRoot().calendar
:AddEvent("", date, 'monthly, nil);
appt.meetingType := '|MonthlyEvent:MySig|;
EntryChange(appt);
:OpenMeeting(appt,date,cal:GlobalBox());
nil; // tells calendar not to open
// default meeting slip
end,
OpenMeeting: func(meeting, date, parentBox)
begin
local cal := GetRoot().calendar;
Vue de la page 692
1 2 ... 688 689 690 691 692 693 694 695 696 697 698 ... 941 942

Commentaires sur ces manuels

Pas de commentaire