envos DATEFORMAT-EDITOR 2 4 1 DATEFORMAT-EDITOR 1 4 By: Johannes A. G. M. Koomen (Koomen.wbst@Xerox.com or Koomen@CS.Rochester.edu) This document last edited on May 19, 1989 by Bill van Melle. DESCRIPTION DATEFORMAT-EDITOR provides a menu-based interface for creating and editing date formatting lists (see IRM, Section 12.5). The menu is a Free Menu (see FREEMENU in Medley Release Notes), and looks like: 2"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""">ȀꓘѝȀ"~bKmvl"~nۍmnmmȀqL~8ٝȀ""ȀȀ""Ȁ`0Ȁ"l>Ϗ>|"lٻ0llٰ0Ȁlٰ0Ȁ"mnٰ6"o0ȀȀ""ȀȀ""ȀȀ""ȀȀ""ȀȀ""}Ȁg0}Ȁ"g0eN:"g>YٿH"l0]۰nH>Ȁo0]ۿH Ȁ"l0YۿH""?e;GȀȀ""ȀȀ"@"@4Ł"F68$@Ȁ&LR&A"ɀ*D$@ Ȁ""D!R$B"H*D$@ ""D!R$B H*DB P&LAR$D ɀ*DB PȀ4AQDF*8  @Ȁ" @"0ȀȀ""ȀȀ"<`:p"3`vmٻ&?>"Ȁ0f"Ȁ"3f`v@&">`;ȀȀ""ȀȀ"?p"a|tO8`@M,8pȀvaﹳ~6 $$J2Ȁ"fapv|$@$J "faﻷnv "$@$J fmﹷnv "$$ʑ Ȁf9wpw`#@#J pȀ"@"ȀȀ""ȀȀ"36`3>9H"0f36`3f`H3f36f͛1@HȀ>|33>>x|xGȀ"`0"0ȀȀ""癿_Ȁ_Ȁ"SL lXqa"Mޭ^n Td ]_TDȀ]_TDȀ"]ޭ^nTD "]ޭ^TDqȀȀ""ȀȀ"? " ` <ǟS"8pȀ ݳM"DȀ" ٿ]"|`"  ٰ]@  ٳ]DȀ 癞]8pȀ""0ȀȀ""Ȁ"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" INTERFACE (EDIT-DATEFORMAT DATEFORMAT) [Function] DATEFORMAT is either NIL or the value returned from a call to the function DATEFORMAT (see IRM, Section 12.5). EDIT-DATEFORMAT starts by pre-selecting date formatting keys according to DATEFORMAT, or default ones if DATEFORMAT is NIL. It then enters a busy-wait loop, blocking until the DateFormat Editor window is closed, or Quit or Abort is selected. EDIT-DATEFORMAT returns a new value obtained from the function DATEFORMAT given the selected date formatting keys if Quit was selected, otherwise NIL. DATEFORMAT-EDITOR-ITEMS [Variable] A list of items acceptable to the function FM.FORMATMENU (see FREEMENU in the Release Notes). Unfortunately, some of the date format details are embedded in the DateFormat Editor, rather than in these items, so leave ID's and LABEL's alone, otherwise mung around to your heart's content if you desire a different layout for the DateFormat Editor. Initial value is reflected by the screen snap above. (GET-DATEFORMAT-EDITOR RECOMPUTE?) [Document Object] Returns the FreeMenu window of the DateFormat Editor. If RECOMPUTE? is non-NIL, recomputes the FreeMenu. Use this funciton with argument T if you change the variable DATEFORMAT-EDITOR-ITEMS. EXTENDED DATEFORMAT OPTIONS DATEFORMAT-EDITOR supports the following additional DATEFORMAT options by virtue of loading the module DATEPATCH: MONTH.LONG [DateFormat Option] Provides for full names of months rather than the first three characters. For instance, "20 February 1987" is produced by (GDATE NIL (DATEFORMAT MONTH.LONG YEAR.LONG SPACES NO.TIME)) . MONTH.LEADING [DateFormat Option] Causes the month to appear before the day. For instance, "February 20, 1987" is produced by (GDATE NIL (DATEFORMAT MONTH.LEADING MONTH.LONG YEAR.LONG NO.TIME)). MONTH.LEADING implies SPACES and disables NUMBER.OF.MONTH. (LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 60) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) 3T3T22, ,,8,8H PAGEHEADING RUNNINGHEAD CLASSICCLASSICMODERN MODERN MODERN  HELVETICA MODERN MODERN MODERN MODERN    HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN   HRULE.GETFNMODERN  R<  BMOBJ.GETFN3MODERN    H  r  #Tz