#-------------------------------------------------------------
#  Copyright (c)  1994 Taligent, Inc. All rights reserved.
#
#  $Revision: 1.2 $
#
#  File : MarsBasic.i
#
#  Created by : Peter Sheu
#
#  Description: Coordinates for GUI elements in Mars
#				   
#-------------------------------------------------------------

################################################
#
#	Menu and submenu configurations in Mars
#	
################################################

# set GTitleHeight 20  ---  height of standard title bar
# set GMenuHeight 17   ---  height of standard menus 
# set GMenuX 30	--- relative x displacement of menus anchor to the upper-left conner
# set GMenuTitle  {MTitle {0 30 10}} ---  displacement of menu title anchor to the upper-left conner
# set GMenuClose  {MClose {0 10 10}} ---  displacement of menu close box anchor to the upper-left conner
# set GSeperatorHeight 6 ---  height of menu seperator

	
set MARS.MainMenu {
	{ Services }
	{ Document }
	{ Edit }
	{ Window }
	{ Tools }
	{ Color }
	{ Pen }
	{ Text }
	{ Test }
}

set MARS.MainMenu.Services {
	{ Printing }
	{ Debugging }
}

set MARS.MainMenu.Services.Printing {
	{ "Print One" }
}

set MARS.MainMenu.Debugging {
	{ "Invoke Debugger" }
	{ "Toggle ViewRoot Buffering" }
	{ - }
	{ HeapSize }
	{ Heapanalyzer }
	{ "Heap monitor" }
	{ "Toggle Heap Zapping" }
	{ "Request queue monitor" }
}

set MARS.MainMenu.Document {
	{ "About the Document ..." }
	{ "About TStandardCanvasModel ..." }
	{ - }
	{ Close }
}

set MARS.MainMenu.Edit {
	{ Undo }
	{ Redo }
	{ - }
	{ Cut }
	{ Copy  }
	{ "Copy Active Frame as Link" }
	{ Paste  }
	{ "Paste Frame as Link"  }
	{ "Update Link" }
	{ Delete }
	{ "Select All" }
	{ "Show Links" }
        { Reference }
}

set MARS.MainMenu.Window {
	{ Hide }
	{ "Hide Others" }
	{ - }
	{ "Show All" }
}

set MARS.MainMenu.Tools {
	{ Arrow }
	{ - }
	{ Line }
	{ Rectangle }
	{ Ellipse }
	{ Polyline }
	{ Polygon }
	{ Curve }
	{ Text }
}

set MARS.MainMenu.Color {
	{ "Red Frame" }
	{ "Green Frame" }
	{ "Blue Frame" }
	{ - }
	{ "Red Fill" }
	{ "Green Fill" }
	{ "Blue Fill" }
}

set MARS.MainMenu.Pen {
	{ "1 point" }
	{ "2 point" }
	{ "4 point" }
	{ "6 point" }
	{ "8 point" }
	{ "10 point" }
}

set MARS.MainMenu.Text {
	{ Typing }
	{ "Character Styles" }
	{ "Paragraph Styles" }
	{ Tool }
}

set MARS.MainMenu.Text.Typing {
	{ "US Capitalize" }
	{ Greek }
	{ "%Unicode" }
	{ "Symbol%" }
	{ "Standard US" }
	{ "Writing Heads" }
}

set MARS.MainMenu.Text.CharacterStyles {
	{ Font }
	{ Size }
	{ Color }
	{ Posture }
	{ Weight }
	{ Width }
	{ Transform }
	{ Positioning }
	{ "Line Styles" }
}

set MARS.MainMenu.Text.CharacterStyles.Font {
	{ Chicago }
	{ Courier }
	{ Geneva }
	{ HonMincho }
	{ MaruGothic }
	{ Monaco }
	{ NewYork }
	{ Symbol }
	{ TaligentMono }
	{ TaligentMono.Bold }
	{ TaligentMono.Italic }
	{ TaligentMonoExtras }
	{ TaligentSans }
	{ TaligentSans.Black }
	{ TaligentSans.Bold }
	{ TaligentSans.Italic }
	{ TaligentSansCondensed }
	{ TaligentSansCondensed.Bold }
	{ TaligentSansExtras 345}
}

set MARS.MainMenu.Text.CharacterStyles.Size {
	{ "9 Point" }
	{ "9.5 Point" }
	{ "10 Point" }
	{ "11 Point" }
	{ "12 Point" }
	{ "14 Point" }
	{ "18 Point" }
	{ "24 Point" }
	{ "36 Point" }
	{ "72 Point" }
}

set MARS.MainMenu.Text.CharacterStyles.Color {
	{ Black }
	{ Red }
	{ Green }
	{ Blue }
	{ White }
}

set MARS.MainMenu.Text.CharacterStyles.Posture {
	{ Backslant }
	{ Regular }
	{ Italic }
	{ ExtraSlant }
}

set MARS.MainMenu.Text.CharacterStyles.Weight {
	{ "Ultra Light" }
	{ "Extra Light" }
	{ Light }
	{ "Semi Light" }
	{ Regular }
	{ "Semi Bold" }
	{ Bold }
	{ "Extra Bold" }
	{ "UltraBold" }
}

set MARS.MainMenu.Text.CharacterStyles.Width {
	{ "Ultra Condensed" }
	{ "Extra Condensed" }
	{ Condensed }
	{ "Semi Condensed" }
	{ Regular }
	{ "Semi Expanded" }
	{ Expanded }
	{ "Extra Expanded" }
	{ "Ultra Expanded" }
}

set MARS.MainMenu.Text.CharacterStyles.Transform {
	{ None }
	{ "Skew Left" }
	{ "Skew Right" }
	{ "Skew Up" }
	{ "Skew Down" }
	{ "Stretch Right" }
	{ "Stretch Up" }
	{ "Rotate 22.5" }
	{ "Rotate 90" }
	{ "Rotate 180" }
	{ "Rotate 270" }
}

set MARS.MainMenu.Text.CharacterStyles.Positioning {
	{ Superscript }
	{ Subscript }
	{ None }
	{ Letterspacing }
}

set MARS.MainMenu.Text.CharacterStyles.Positioning.Letterspacing {
	{ "-10%" }
	{ "-5%" }
	{ None }
	{ "5%" }
	{ "10%" }
	{ "20%" }
	{ "40%" }
}

set MARS.MainMenu.Text.CharacterStyles.LineStyles {
	{ Underline }
	{ Strikethrough }
	{ None }
}

set MARS.MainMenu.Text.ParagraphStyles {
	{ Spacing }
	{ - }
	{ Flush }
	{ - }
	{ Justify }
	{ - }
	{ Margin }
	{ - }
	{ Indent }
	{ - }
	{ None }
}

set MARS.MainMenu.Text.Tool {
	{ "Selection I-Beam" }
	{ - }
	{ "Red Highlighter" }
	{ "Blue Highlighter" }
	{ - }
	{ "Red Marker" }
	{ "Underline Marker" }
	{ "Strikethrough Marker" }
	{ - }
	{ "Highlight/Mark Eraser" }
}

set MARS.MainMenu.Test {
	{ "Test" }
}


################################################
#	Window Cofigurations
################################################

proc	MARS.Window.Create { pos windowDefaultSize } {

	set	windowOptions	{1 1 1 1 1} 
#                       # where { 1 1 1 1 1 } means
#                       #       Title bar exist (always 1)
#                       #       hasCloseBox is TRUE
#                       #       hasZoomBox is TRUE
#                       #       hasMinimizer is TRUE
#                       #       isResizable is TRUE
	set	scrollOptions	{ 0 1 0 1 }
#                       #       no scroll bar at left
#                       #       yes scroll bar at right
#                       #       no scroll bar to top
#                       #       yes scroll bar at botton

#  	Default Common Point window size
	set x [ lindex $pos 0 ]
	set y [ lindex $pos 1 ]
	set w [lindex ${windowDefaultSize} 0 ]
	set h [lindex ${windowDefaultSize} 1 ]
	set n "{Frame {$x $y [expr $x + $w] [expr $y + $h]}}"
	CreateWindow n ${windowOptions} ${scrollOptions}
	return $n
}

#########################################################
# Window and Menu default positions.
# Warning: 
#  The default positions (upper left cornor) of menus or 
#  sub menus are not garenteed to work if
#  menus are moved or Common Point window size is changed
#  Please reset the values as needed.
#########################################################

set	MARS.Window.DefaultPos { 132 43 }
set	MARS.Window.DefaultSize	{ 350 300 }
set	MARS.MainMenu.DefaultPos {0 0}
set	MARS.Library.Info "TGUIModelPresenterStationeryFor<TStandardCanvasModel,TMarsTestPresenter>"
set	MARS.Library.File MarsTest