facingsDemo.rbfrm

#tag Window
Begin Window facingsDemo
   BackColor       =   16777215
   Backdrop        =   ""
   BalloonHelp     =   ""
   CloseButton     =   True
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   HasBackColor    =   False
   Height          =   517
   ImplicitInstance=   True
   LiveResize      =   True
   MacProcID       =   0
   MaxHeight       =   32000
   MaximizeButton  =   False
   MaxWidth        =   32000
   MenuBar         =   ""
   MenuBarVisible  =   True
   MinHeight       =   64
   MinimizeButton  =   True
   MinWidth        =   64
   Placement       =   0
   Resizeable      =   True
   Title           =   "Tab Facings"
   Visible         =   True
   Width           =   500
   Begin CustomTabPanelTabs northTabs
      AcceptFocus     =   ""
      AcceptTabs      =   ""
      AutoDeactivate  =   True
      Backdrop        =   ""
      DoubleBuffer    =   False
      Enabled         =   True
      enableTabReordering=   True
      EraseBackground =   True
      Facing          =   0
      Height          =   27
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   0
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   True
      LockTop         =   True
      Scope           =   0
      TabIndex        =   0
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   5
      UseFocusRing    =   True
      Visible         =   True
      Width           =   500
   End
   Begin PagePanel PagePanel1
      AutoDeactivate  =   True
      Enabled         =   True
      Height          =   460
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   20
      LockBottom      =   True
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   True
      LockTop         =   True
      PanelCount      =   0
      Panels          =   ""
      Scope           =   0
      TabIndex        =   1
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   37
      Value           =   -1
      Visible         =   True
      Width           =   460
   End
   Begin CheckBox confirm
      AutoDeactivate  =   True
      Bold            =   ""
      Caption         =   "Remove tab confirmation"
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   20
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   1
      LockBottom      =   True
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   ""
      LockTop         =   ""
      Scope           =   0
      State           =   1
      TabIndex        =   2
      TabPanelIndex   =   0
      TabStop         =   True
      TextFont        =   "SmallSystem"
      TextSize        =   0
      Top             =   497
      Underline       =   ""
      Value           =   True
      Visible         =   True
      Width           =   193
   End
End
#tag EndWindow

#tag WindowCode
#tag EndWindowCode

#tag Events northTabs
	#tag Event
		Function CancelRemoveTab(tabIndex as integer) As boolean
		  Dim n as Integer
		  n=MsgBox ("Do you want to remove this tab?",36)
		  Return n<>6
		  
		End Function
	#tag EndEvent
	#tag Event
		Sub Open()
		  me.attachPanel(PagePanel1)
		  
		  me.appendTab("North",icnNorth)
		  me.appendTab("South",icnSouth)
		  me.appendTab("East",icnEast)
		  me.appendTab("West",icnWest)
		  
		  me.value=0
		End Sub
	#tag EndEvent
	#tag Event
		Sub PanelPageAdded(panel as pagePanel, page as integer)
		  dim tabName as String=me.caption(page)
		  
		  dim container as ContainerControl
		  
		  select case tabName
		  case "North"
		    container=new tabsCCDemo(NORTH)
		  case "South"
		    container=new tabsCCDemo(SOUTH)
		  case "East"
		    container=new tabsCCDemo(EAST)
		  case "West"
		    Container=new tabsCCDemo(WEST)
		  end Select
		  
		  container.embedWithinPanel(panel,page)
		  container.left=panel.Left
		  container.top=panel.top
		  container.width=Panel.Width
		  container.height=panel.height
		End Sub
	#tag EndEvent
#tag EndEvents