;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Copyright (c) 2000, Perforce Software, All rights reserved.
; 
; This software was originally developed by Silicon Graphics, Inc (SGI).
; 
; Redistribution and use in source and binary forms, with or
; without modification, are permitted provided that the following
; conditions are met:
; 
; Redistributions of source code must retain the above copyright notice,
; this list of conditions and the following disclaimer.
; 
; Redistributions in binary form must reproduce the above copyright
; notice, this list of conditions and the following disclaimer in the
; documentation and/or other materials provided with the distribution.
; 
; Neither name of Perforce Software nor SGI nor the names of its
; contributors may be used to endorse or promote products derived from
; this software without specific prior written permission.
; 
; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
; ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR
; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.


;edit/read mode setting - default is read  - user may override this in their cdsuser file.
CDS_lbbdblClickMode="read"

;the length of the history list before entries roll off
CDS_LBBhistListLength=25

;file to keep opened cell history list in
CDS_LBBhistoryFile="./.CDS_LBBcellOpenHistory"
load("cdsp4_lib.il")


procedure(CDS_LBBAddWindowBanner()		  ;_Jul 17 00 sikand 411
;add banner items for the floorplanner
  CDS_LBBwindowMenu=hiCreatePulldownMenu('CDS_LBBwindowMenu "Window"
					 list( 
					    hiCreateMenuItem(?name     'CDS_LBBwindowClose
							     ?itemText "Close"
							     ?callback "CDS_lbbCloseDownForms(CDS_LBBwid)"
					    )
					 )
		    ); hiCreatePulldownMenu
  hiInsertBannerMenu(CDS_LBBwid CDS_LBBwindowMenu 0)
) ; ** procedure CDS_LBBAddWindowBanner **


procedure(CDS_lbbevalLibCommand()		  ;_Oct  3 02 sikand 0
  prog((doWhat srcLib destLib)
    doWhat=CDS_listBoxBrowserForm->libCommands->value
    cond(
					;reset button text to "Library Commands"  Just a 
					;kludgy way of getting the ;cyclic box to act like a command button 
					;but with choices.  This way we don't have to use a middle-button 
					;activated popup.

       (doWhat == "Find"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_findNameInListBox("Lib")
       )
       
       (doWhat == "Library File Manager"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	   CDS_P4LibFileManager(lib)
	)
       )
       
       ;;(doWhat == "Make local client"
       ;;CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
       ;;foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
       ;;   CDS_lbbMakeLocal(ddGetObj(lib))
       ;;)
       ;;)
       (doWhat == "New"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	;;CDS_lbbCreateNew("Lib")
	ddsHiCreateLibrary()
	
       )

       (doWhat == "Revision"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	   CDS_lbbRevision(ddGetObj(lib))
	)
       )
       (doWhat == "Refresh"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_lbbrefreshTheLibList(t)
       )
       (doWhat == "Synchronize"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	   CDS_P4SyncLib(ddGetObj(lib))
	)
       )
       (doWhat == "Update Access Lists"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_P4Permissions()
       )
       
       (doWhat == "Copy"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_lbbCopyLib()
       )
       (doWhat == "Delete"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_lbbDelete("Lib")
       )
       (doWhat == "Delete Empty Cells"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_lbbDelete("EmptyCells")
       )
       (doWhat == "Delete Views"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_lbbDelete("Views")
       )
       (doWhat == "Rename"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	srcLib=car(CDS_listBoxBrowserForm->libraryListBox->value)
	destLib=CDS_lbbCopyLib()
	unless(destLib
	   return()
	)
	CDS_lbbDelete("Lib" srcLib)
	CDS_listBoxBrowserForm->libraryListBox->value=list(destLib)
	printf("Rename Complete:  %s renamed to %s\n" srcLib destLib)
       )
       (doWhat == "Properties"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	if(CDS_listBoxBrowserForm->libraryListBox->value then
	   foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	      ddsViewDDProp(lib)
	   )
	else
	   println("No Library selected!  Select lib(s) before choosing Properties command.")
	) ; ** if CDS_listBoxBrowserForm **
       )
       (doWhat == "Purge"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_FFpurgeCells(CDS_listBoxBrowserForm->libraryListBox->value)
       )
       (doWhat == "Show Changes"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button

	if(CDS_listBoxBrowserForm->libraryListBox->value then
	   foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	      CDS_lbbDisplayChanges(lib)
	   )
	else
	   println("No Library selected!  Select lib before choosing show-checkouts command.")
	) ; ** if CDS_listBoxBrowserForm **
       )
       
       (doWhat == "Show Checkouts"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button

	if(CDS_listBoxBrowserForm->libraryListBox->value then
	   foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	      CDS_lbbShowCheckouts(lib)
	   )
	else
	   println("No Library selected!  Select lib before choosing show-checkouts command.")
	) ; ** if CDS_listBoxBrowserForm **
       )
       (doWhat == "Options"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands" ;reset button
	CDS_lbbLibOptions()
       )

       (doWhat == "Integration Wizard"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands"
	CDS_P4IntWiz()
       )


       (doWhat == "Clean Catalog"
	CDS_listBoxBrowserForm->libCommands->value = "Library Commands"
	if(CDS_listBoxBrowserForm->libraryListBox->value then
	   foreach(lib CDS_listBoxBrowserForm->libraryListBox->value
	      CDS_P4CleanEmpty(ddGetObj(lib))
	   )
	else
	   println("No Library selected!")
	) ; ** if CDS_listBoxBrowserForm **
       )
    );cond
  ); ** prog **
  nil
) ; ** procedure CDS_lbbevalLibCommand **



procedure(CDS_lbbevalCatCommand()		  ;_Jul 17 00 sikand 848
  prog((doWhat currentLib)
    doWhat=CDS_listBoxBrowserForm->catCommands->value
    cond(
					;reset button text to "Category Commands"  Just a 
					;kludgy way of getting the ;cyclic box to act like a command button 
					;but with choices.  This way we don't have to use a middle-button 
					;activated popup.

       (doWhat == "Find"
	CDS_listBoxBrowserForm->catCommands->value = "Category Commands" ;reset button
	CDS_findNameInListBox("Cat")
       )

       (doWhat == "Toggle Flatten"
	CDS_listBoxBrowserForm->catCommands->value = "Category Commands" ;reset button
	CDS_lbbFlattenCats = !CDS_lbbFlattenCats
	currentLib=CDS_listBoxBrowserForm->libraryListBox->value
	CDS_lbbopenLibraryUpdateCat(car(currentLib) "open")
       )
       
       (doWhat == "Delete"
	CDS_listBoxBrowserForm->catCommands->value = "Category Commands" ;reset button
	CDS_lbbDelete("Cat")
       )
       (doWhat == "Open"
	CDS_listBoxBrowserForm->catCommands->value = "Category Commands" ;reset button
	if(CDS_listBoxBrowserForm->categoryListBox->value then
	   CDS_lbbmoveToCatUpdateCell(car(CDS_listBoxBrowserForm->categoryListBox->value))
	else
	   println("No Category selected!  Select one before choosing Open command.")
	)
       )
    );cond
  );let
  nil
) ; ** procedure CDS_lbbevalCatCommand **



procedure(CDS_lbbevalCellCommand()		  ;_May  2 02 sikand 1313
  prog((doWhat)
    doWhat=CDS_listBoxBrowserForm->cellCommands->value
					;reset button text to "Cell Commands"  Just a 
					;kludgy way of getting the ;cyclic box to act like a command button 
					;but with choices.  This way we don't have to use a middle-button 
					;activated popup.
    cond(
       (doWhat == "Properties"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	if(CDS_listBoxBrowserForm->cellListBox->value then
	   foreach(cell CDS_listBoxBrowserForm->cellListBox->value
	      ddsViewDDProp(car(CDS_lbbselectedLibIDs)~>name cell)
	   )
	else
	   println("No cells selected!  Select one before choosing Properties command.")
	); ** if CDS_listBoxBrowserForm **
       )
       (doWhat == "Find"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_findNameInListBox("Cell")
       )
       (doWhat == "Copy"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbCopyCell()
       )
       (doWhat == "Delete"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbDelete("Cell")
       )
       (doWhat == "New"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbCreateNew("Cell")
       )
       (doWhat == "Read"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbOpenCell("r")
       )
       (doWhat == "Edit"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbOpenCell("a")
       )
       (doWhat == "Move"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbMove()
       )
       (doWhat == "Purge"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_FFpurgeCells(CDS_listBoxBrowserForm->libraryListBox->value
			 ?cellList CDS_listBoxBrowserForm->cellListBox->value)
       )
       (doWhat == "CDS_lbbUserFunc"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbUserFuncLoop()
       )
       (doWhat == "Options"
	CDS_listBoxBrowserForm->cellCommands->value= "Cell Commands" ;reset button
	CDS_lbbCellOptions()
       )
    );cond
  );prog
  nil
) ; ** procedure CDS_lbbevalCellCommand **




procedure(CDS_lbbevalCellViewCommand()		  ;_Jul 17 00 sikand 3624
  prog((doWhat cdbId )
    doWhat=CDS_listBoxBrowserForm->cellViewCommands->value
    cond(
					;reset button text to "CellView Commands"  Just a 
					;kludgy way of getting the ;cyclic box to act like a command button 
					;but with choices.  This way we don't have to use a middle-button 
					;activated popup.

       (doWhat == "Properties"
	CDS_listBoxBrowserForm->cellViewCommands->value= "CellView Commands" ;reset button
	if(CDS_listBoxBrowserForm->cellViewListBox->value then
	   foreach(view CDS_listBoxBrowserForm->cellViewListBox->value
	      ddsViewDDProp(car(CDS_lbbselectedLibIDs)~>name 
			    car(CDS_listBoxBrowserForm->cellListBox->value) view)
	   )
	else
	   println("No cellView selected!  Select one before choosing Properties command.")
	) ; ** if CDS_listBoxBrowserForm **
       )
       (doWhat == "New"
	CDS_listBoxBrowserForm->cellViewCommands->value= "CellView Commands" ;reset button
	CDS_lbbCreateNew("CellView")
       )
       (doWhat == "Copy"
	CDS_listBoxBrowserForm->cellViewCommands->value= "CellView Commands" ;reset button
	CDS_lbbCopyCellView()
       )
       (doWhat == "Delete"
	CDS_listBoxBrowserForm->cellViewCommands->value= "CellView Commands" ;reset button
	CDS_lbbDelete("CellView")
       )
       (doWhat == "Read"
	CDS_listBoxBrowserForm->cellViewCommands->value= "CellView Commands" ;reset button
	CDS_lbbOpenCell("r")
       )
       (doWhat == "Edit"
	CDS_listBoxBrowserForm->cellViewCommands->value= "CellView Commands" ;reset button
	CDS_lbbOpenCell("a")
       )
       (doWhat == "Show Versions"
	CDS_listBoxBrowserForm->cellViewCommands->value = "CellView Commands" ;reset button
	CDS_lbbShowVersions()
       )
       (doWhat == "Check-In" 
	CDS_listBoxBrowserForm->cellViewCommands->value = "CellView Commands" ;reset button
	unless(car(CDS_listBoxBrowserForm->cellViewListBox->value)
	   if(length(CDS_listBoxBrowserForm->cellViewListBox->choices) == 1 then
	      CDS_listBoxBrowserForm->cellViewListBox->value=CDS_listBoxBrowserForm->cellViewListBox->choices
	   else
	      CDS_lbbChooseCellView()
	   )
	   unless(CDS_listBoxBrowserForm->cellViewListBox->value
	      printf("You must choose a view to checkin...\n")
	      return()
	   )
	) ; ** unless car **
	foreach(view CDS_listBoxBrowserForm->cellViewListBox->value
	   printf("Checking in: %s %s %s\n" car(CDS_lbbselectedLibIDs)~>name
		  car(CDS_listBoxBrowserForm->cellListBox->value) view)
	   
	   cdbId=CDS_lbbGetMasterId(car(CDS_lbbselectedLibIDs)~>name 
				    car(CDS_listBoxBrowserForm->cellListBox->value) view)
	   ;; added the f flag so it will work for unrevisioned
	   ;; objects
	   ddCheckin(list(cdbId) "" "f") 
	) ; ** foreach view **
       )
       (doWhat == "Cancel-Checkout"
	CDS_listBoxBrowserForm->cellViewCommands->value = "CellView Commands" ;reset button
	unless(car(CDS_listBoxBrowserForm->cellViewListBox->value)
	   if(length(CDS_listBoxBrowserForm->cellViewListBox->choices) == 1 then
	      CDS_listBoxBrowserForm->cellViewListBox->value=CDS_listBoxBrowserForm->cellViewListBox->choices
	   else
	      CDS_lbbChooseCellView()
	   )
	   unless(CDS_listBoxBrowserForm->cellViewListBox->value
	      printf("Error: You must choose a view to cancel checkout on...\n")
	      return()
	   )
	) ; ** unless car **
	foreach(view CDS_listBoxBrowserForm->cellViewListBox->value
	   printf("Cancelling checkout for: %s %s %s\n" car(CDS_lbbselectedLibIDs)~>name
		  car(CDS_listBoxBrowserForm->cellListBox->value) view)
	   
	   cdbId=CDS_lbbGetMasterId(car(CDS_lbbselectedLibIDs)~>name 
				    car(CDS_listBoxBrowserForm->cellListBox->value) view)
	   ddCheckin(list(cdbId) "Cancel" "c")
	) ; ** foreach view **
       )
    );cond
  );prog
  nil
) ; ** procedure CDS_lbbevalCellViewCommand **


procedure(CDS_lbbrefreshTheLibList(@optional (update nil)) ;_Jul 17 00 sikand 1514
					;procedure to go re-read and display the lib list
					;"update" mode forces updating the liblist
  prog((currentLib cdsLibName)

    currentLib=CDS_listBoxBrowserForm->libraryListBox->value

    when(update
					;go reread the cds.lib to get the most up to data path info
					;see if a new lib path was forced in by the user (at the CIW)
					;if so, use it, else get the default one.
       cdsLibName=ddGetForcedLib()
       unless(cdsLibName == ""
	  cdsLibName=ddGetUpdatedLib()
       )
       ddSetForcedLib(cdsLibName)
       ddUpdateLibList()
    ) ; ** when update **

    CDS_lbblibraryList=CDS_lbbsortTheList("Lib" ddGetLibList()~>name)

    if(length(currentLib) == 1 && ddGetObj(car(currentLib)) && !update then

       CDS_lbbopenLibraryUpdateCat(car(currentLib) "open")
       CDS_listBoxBrowserForm->libraryListBox->value=currentLib
    else
					;go get the initial lib,cat,cell lists then open and read the lib cells
       CDS_lbblibraryList=CDS_lbbsortTheList("Lib" ddGetLibList()~>name)
       CDS_lbbupdateListDisplay(CDS_lbblibraryList "update" "Lib")
       CDS_lbbClearListBox(list("Cat" "Cell" "CellView"))

					;refresh the cell/cellview fields if a single lib was selected
       when(length(currentLib) == 1 && ddGetObj(car(currentLib))
	  CDS_lbbopenLibraryUpdateCat(car(currentLib) "open")
	  CDS_listBoxBrowserForm->libraryListBox->value=currentLib
       )
    ) ; ** if length **

    CDS_lbbupdateClientField()

  ) ; ** prog **
  nil
) ; ** procedure CDS_lbbrefreshTheLibList **

procedure(CDS_lbbcheckOtherForms(cellname)	  ;_Oct  3 02 sikand 0
  prog((cellId)

					;update the cellview list box
    cellId=ddGetObj(car(CDS_lbbselectedLibIDs)~>name cellname)
    ;; use a mapping function Shiv
    ;; this is just sloppy
    CDS_lbbviewList=cellId~>views~>name

    ;; prune empty views
    foreach(view cellId~>views
       unless(view~>files
	  CDS_lbbviewList=remove(view~>name  CDS_lbbviewList)
       ) 
    )

    CDS_listBoxBrowserForm->cellViewListBox->choices=CDS_lbbviewList

					;check if the instantiate cell form is displayed, if so fill in the info
    when(boundp('leCreateInstForm)
       when(hiIsFormDisplayed(leCreateInstForm)
	  leCreateInstForm->libName->value = car(CDS_lbbselectedLibIDs)~>name
	  leCreateInstForm->cellName->value = cellname
	  if(member(car(CDS_listBoxBrowserForm->cellViewListBox->value) 
		    CDS_listBoxBrowserForm->cellViewListBox->choices) then
	     leCreateInstForm->viewName->value = car(CDS_listBoxBrowserForm->cellViewListBox->value)
	  else
	     leCreateInstForm->viewName->value = ""
	  ) ; ** if member **
       ) ; ** when hiIsFormDisplayed **
    ) ; ** when boundp **
    when(boundp('deOpenForm)
       when(hiIsFormDisplayed(deOpenForm)
	  deOpenForm->deLibName->value = car(CDS_lbbselectedLibIDs)~>name
	  deOpenForm->deCellName->value = cellname
	  if(member(car(CDS_listBoxBrowserForm->cellViewListBox->value) 
		    CDS_listBoxBrowserForm->cellViewListBox->choices) then
	     deOpenForm->deViewName->value = car(CDS_listBoxBrowserForm->cellViewListBox->value)
	  else
	     deOpenForm->deViewName->value = ""
	  ) ; ** if member **
       ) ; ** when hiIsFormDisplayed **
    ) ; ** when boundp **
  ) ; ** prog **
) ; ** procedure CDS_lbbcheckOtherForms **




procedure(CDS_lbbDefineLibOptionsForm()		  ;_Jul 17 00 sikand 852
					;Set options to be used for lib actions
  prog((sortType sortOrder)

    when(!(boundp('CDS_lbbLibOptionsForm) && CDS_lbbLibOptionsForm) || CDS_lbbformDebug 

       sortType=hiCreateRadioField(
		   ?name  'sortType
		   ?prompt "List Names:"
		   ?choices list("Alphabetic" "By Date")
		   ?itemsPerRow 1
		   ?value   "Alphabetic"
		   ?callback '("")
		)

       sortOrder=hiCreateBooleanButton(
		    ?name 'sortOrder
		    ?buttonText "Reverse Sort?"
		    ?value nil
		    ?defValue nil
		 )
					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_lbbLibOptionsForm
	  ?buttonLayout 'OKCancel
	  ?fields list(
		     list(sortType              5:5  150:25 90)
		     list(sortOrder            5:60 150:25 100)
		  )
	  ?formTitle "Library Options"
	  ?callback "CDS_lbbrefreshTheLibList(t)"
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize 220:150
       );hiCreateAppForm
    );when not defined before
    return(t)
  ) ; ** prog **
) ; ** procedure CDS_lbbDefineLibOptionsForm **



procedure(CDS_lbbLibOptions()			  ;_Jul 17 00 sikand 288
					;Set options to be used for lib actions
  prog((mainXY LROffset)

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=0
    else
       LROffset=-290
    )
    hiDisplayForm(CDS_lbbLibOptionsForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+40)
  ) ; ** prog **
) ; ** procedure CDS_lbbLibOptions **



procedure(CDS_lbbDefineCellOptionsForm()	  ;_Jul 17 00 sikand 854
					;Set options to be used for cell actions
  prog((sortOrder sortType)

    when(!(boundp('CDS_lbbCellOptionsForm) && CDS_lbbCellOptionsForm) || CDS_lbbformDebug 

       sortType=hiCreateRadioField(
		   ?name  'sortType
		   ?prompt "List Names:"
		   ?choices list("Alphabetic" "By Date")
		   ?itemsPerRow 1
		   ?value   "Alphabetic"
		   ?callback '("")
		)

       sortOrder=hiCreateBooleanButton(
		    ?name 'sortOrder
		    ?buttonText "Reverse Sort?"
		    ?value nil
		    ?defValue nil
		 )

					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_lbbCellOptionsForm
	  ?buttonLayout 'OKCancel
	  ?fields list(
		     list(sortType              5:5  150:25 90)
		     list(sortOrder            5:60 150:25 100)
		  )
	  ?formTitle "Cell Options"
	  ?callback "CDS_lbbcellOptionsCB()"
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize 220:150
       );hiCreateAppForm
    );unless not defined before
    return(t)
  ) ; ** prog **
) ; ** procedure CDS_lbbDefineCellOptionsForm **



procedure(CDS_lbbcellOptionsCB()      ;_Jun 26 98 sikand 0
  prog(()
    CDS_lbbcellList=CDS_lbbsortTheList("Cell" CDS_lbbcellList)
    CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
    CDS_lbbClearListBox(list("CellView"))
  )
) ; ** procedure CDS_lbbcellOptionsCB **



procedure(CDS_lbbCellOptions()			  ;_Jul 17 00 sikand 290
					;Set options to be used for cell actions
  prog((mainXY LROffset)

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=0
    else
       LROffset=-290
    )
    hiDisplayForm(CDS_lbbCellOptionsForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+440)
  ) ; ** prog **
) ; ** procedure CDS_lbbCellOptions **



procedure(CDS_lbbGetLibCats(libId)		  ;_Jul 17 00 sikand 385
					;wrote our own equivalent of ddCatGetLibCats to check relative speed
  prog((libPath fileId aLine childCatNames)
    libPath=libId~>readpath
    fileId=infile(strcat(libPath "/" libId~>name ".TopCat"))

					;if file does not exist, then there are no cats
    unless(fileId
       return(nil)
    )
    while(aLine=CDS_FFreadLine(fileId)

					;ignor blank lines
       unless(strlen(aLine) < 1
	  when(rexMatchp("\"category\"" aLine)
	     childCatNames=cons(car(parseString(nth(1 parseString(aLine " /")) ".")) childCatNames)
	  )
       )
    );while lines
    close(fileId)
    return(childCatNames)
  ) ; ** prog **
) ; ** procedure CDS_lbbGetLibCats **



procedure(CDS_LBBopenHistory()			  ;_Jul 17 00 sikand 489
					;read the history file: CDS_LBBhistoryFile and display a form
					;with the last n file opens.  User can select from list to 
					;open that lib/cell/view.
  prog((mainXY LROffset)

    CDS_LBBhistList=CDS_LBBaccessHistFile("read")
    CDS_LBBdefineHistForm()

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-200
    else
       LROffset=-295
    )
    hiDisplayForm(CDS_LBBhistForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+440)
  ) ; ** prog **
) ; ** procedure CDS_LBBopenHistory **


procedure(CDS_LBBdefineHistForm()		  ;_Jul 17 00 sikand 868
  let((lbbhistViewBox lbbOpenMode)

    when(!(boundp('CDS_LBBhistForm) && CDS_LBBhistForm) || CDS_lbbformDebug

       lbbOpenMode=hiCreateRadioField(
		      ?name  'lbbOpenMode
		      ?prompt "Open File In "
		      ?choices list("Read" "Edit")
		      ?itemsPerRow 2
		      ?value   "Read"
		      ?callback '("")
		   )

       lbbhistViewBox= hiCreateListBoxField(
			  ?name 'lbbhistViewBox
			  ?choices CDS_LBBhistList
			  ?multipleSelect nil
			  ?doubleClickCB "CDS_LBBopenHistCell()"
			  ?callback ""
		       )

					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_LBBhistForm
	  ?buttonLayout 'OKCancelApply
	  ?fields list(
		     list(lbbOpenMode        5:0   250:20  85)
		     list(lbbhistViewBox     5:20  290:78)
		  )
	  ?formTitle "Cell Opened History"
	  ?callback "CDS_LBBopenHistCell()"
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize 300:250
       );hiCreateAppForm
    );if not defined before
  );let
) ; ** procedure CDS_LBBdefineHistForm **


procedure(CDS_LBBupdateHistList(newEntry)	  ;_Jul 17 00 sikand 810
  prog((tmpList)
					;update the cell-open history list

					;blow off old entry
    when(member(newEntry CDS_LBBhistList)
       CDS_LBBhistList=remove(newEntry CDS_LBBhistList)
    )
    CDS_LBBhistList=cons(newEntry CDS_LBBhistList)

					;only keep around a set number of entries before rolling them off
    tmpList='()
    for(i 0 CDS_LBBhistListLength-1
					;don't write nils
       when(nth(i CDS_LBBhistList)
	  tmpList=cons(nth(i CDS_LBBhistList) tmpList)
       )
    ) ; ** for i **
    CDS_LBBhistList=reverse(tmpList)
    CDS_LBBaccessHistFile("write" CDS_LBBhistList)
    when(boundp('CDS_LBBhistForm) 
       CDS_LBBhistForm->lbbhistViewBox->choices=CDS_LBBhistList
       CDS_LBBhistForm->lbbhistViewBox->value=list(car(CDS_LBBhistList))
    )
  ) ; ** prog **
) ; ** procedure CDS_LBBupdateHistList **


procedure(CDS_LBBopenHistCell()			  ;_Jul 17 00 sikand 487
  prog((lib cell view strList openMode)
					;open one of the cells in the history list box

    when(car(CDS_LBBhistForm->lbbhistViewBox->value)
       if(CDS_LBBhistForm->lbbOpenMode->value  == "Edit" then
	  openMode="a"
       else
	  openMode="r"
       )
       strList=parseString(car(CDS_LBBhistForm->lbbhistViewBox->value) " ")
       lib=nth(0 strList)
       cell=nth(1 strList)
       view=nth(2 strList)
       CDS_LBBupdateHistList(strcat(lib "  " cell "  " view))

       if(ddGetObj(lib cell view) then
	  printf("Opening: %s %s %s...\n" lib cell view)
	  geOpen(?lib  lib
		 ?cell cell
		 ?view view
		 ?mode openMode)
       else
	  printf("Can't find %s %s %s...\n" lib cell view)
       ) ; ** if ddGetObj **
    ) ; ** when car **
  );prog
) ; ** procedure CDS_LBBopenHistCell **


procedure(CDS_LBBaccessHistFile(mode @optional curList)	;_Jul 17 00 sikand 1001
					;open/create/read the history file
  prog((histFileId nextline histList)

    cond(
       (mode == "read"
	if(histFileId=infile(CDS_LBBhistoryFile) then
	   
	   CDS_LBBhistList='()
					;read the file into a list
	   while(nextline=lineread(histFileId)   
	      
					;check for blank line or a comment
	      unless(nextline == t || rexMatchp("^;" nth(0 nextline))
		 histList=append(histList nextline)
	      )
	   ) ; ** while nextline **
	   close(histFileId)
	   return(histList)
	else
					;no existing hist file, just create a blank list
	   histList=list("")
	   return(histList)
	) ; ** if histFileId **
       )
       (mode == "write"
	if(histFileId=outfile(CDS_LBBhistoryFile "w") then
	   foreach(line curList
	      fprintf(histFileId "\"%s\"\n" line) 

					;limit the size of the history list
	   )
	   close(histFileId)
	   return()
	else
	   printf("Error: Could not open history file: %s\n" CDS_LBBhistoryFile)
	   return()
	) ; ** if histFileId **
       )
    );cond
  );prog
) ; ** procedure CDS_LBBaccessHistFile **

procedure(CDS_lbbGetMasterId(libName cellName viewName)	;_Jul 17 00 sikand 16

					;Get the ddId of the master cell.  The following rules apply:
					;- If the master.tag file exists, the file specified by the master.tag file 
					;  is the master representation.
					;- If there is only one file in the directory, it is the master.
					;- If a file named vhdl.vhd or verilog.v (but not both) is present in the 
					;  directory, it is the master.

  prog((ddId)

					;commented out to keep lint happy (some code below is commented out...)
 ;;;prog((tagFile tagPort masterFile masterPort master ddId line masterId)


    ddId=ddGetObj(libName cellName viewName "*")
    unless( ddId
       error("Empty directory!")
    )
    
    return(ddId)
    
    

    
					; ddId=ddGetObj(libName cellName viewName)
;     tagFile = strcat(ddId~>writePath "/master.tag")
;     tagPort = infile(tagFile)
;     if(tagPort then
;         while(gets(line tagPort)
;             ;skip the first line
;             gets(line tagPort)
;             master = car(parseString(line "\n"))
;             masterId=ddGetObj(libName cellName viewName master)
;         )  ; ** while gets **
;         close(tagPort)
;     else
;         ;no master.tag file so check if there is a verilog.v
;         masterFile = strcat(ddId~>writePath "/verilog.v")
;         masterPort=infile(masterFile)
;         if(masterPort then
;             masterId=ddGetObj(libName cellName viewName "verilog.v")
;         else
;             ;just get the cdb file
;             masterId=ddGetObj(libName cellName viewName strcat(viewName ".cdb"))
;         ) ; ** if masterPort **
;        close(masterPort)
;     )  ; ** if tagPort **
;     return(masterId)
  ) ; ** prog **
) ; ** procedure CDS_lbbGetMasterId **


procedure(CDS_lbbGetCatMembers(libId catName )	  ;_Jul 17 00 sikand 433

					;wrote our own equivalent of ddCatGetCatMembers to check relative speed
  prog((libPath fileId aLine catItems fileLines)
    libPath=libId~>readpath
    fileId=infile(strcat(libPath "/" catName ".Cat"))
    catItems='()

					;if file does not exist, then there are no cats
    unless(fileId
       return(nil)
    )
    fileLines='()
    while(aLine=CDS_FFreadLine(fileId)
       fileLines=cons(aLine fileLines)

					;ignore blank lines
       unless(strlen(aLine) < 1
	  when(rexMatchp("\"category\"" aLine)
	     catItems=cons(list(car(parseString(nth(1 parseString(aLine " /")) ".")) "category") catItems)
	  )
	  when(rexMatchp("\"cell\"" aLine) 
	     catItems=cons(list(car(parseString(nth(1 parseString(aLine " /")) ".")) "cell") catItems)
	  )
       ) ; ** unless strlen **
    );while lines
    close(fileId)
    return(catItems)
  ) ; ** prog **
) ; ** procedure CDS_lbbGetCatMembers **



procedure(CDS_lbbopenLibraryUpdateCat(libToOpen mode) ;_Feb 24 03 jdao 2543
						  ;open a library and then update the category
					;and cell list.  
  prog(()
					;leave as a list since multiple cell commands assume a list structure
    when(mode == "open"
       CDS_lbbselectedLibIDs=list(ddGetObj(libToOpen))
       unless(car(CDS_lbbselectedLibIDs)
	  printf("Error: Could not Open the Lib: %s\n" libToOpen)
	  return()
       )
    ) ; ** when mode **

					;be sure no cell name have "." in them as this breaks p4 
    ;;(cadence maps "." to #2e under the hood...)
    when(rexMatchList("[.]" car(CDS_lbbselectedLibIDs)~>cells~>name)
       CDS_FFpopDialogBox(sprintf(nil "Can't have \".\" in cell names.  Please rename these:\n %L" 
				  setof(x car(CDS_lbbselectedLibIDs)~>cells~>name rexMatchp("[.]" x))))
    )

					;create a table indexed by category name.  Values are the parent and children cat names
    CDS_lbbCatTable=makeTable(gensym('CDS_lbbCatTable) nil)
    unless( CDS_lbbFlattenCats
       CDS_lbbcategoryList=CDS_lbbGetLibCats(car(CDS_lbbselectedLibIDs))

					;build a category table with parent/child nodes
       CDS_lbbCatTable["Top Level"]=append(list(nil) CDS_lbbcategoryList)

       if(CDS_lbbcategoryList then
	  CDS_lbbcategoryList=sort(CDS_lbbcategoryList 'alphalessp)
	  CDS_lbbCurCat= "Top Level"
	  CDS_listBoxBrowserForm->currentCatName->value=CDS_lbbCurCat
       else
	  CDS_lbbCurCat= "Top Level"
	  CDS_listBoxBrowserForm->currentCatName->value=CDS_lbbCurCat
	  CDS_lbbcategoryList=list("No Categories")
       ) ; ** if CDS_lbbcategoryList **
       CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
    ) ; ** unless CDS_lbbFlattenCats **
					;this is the list of cells that are at the same level as the top categories
					;ddCatGetCellsNotInCat only works if there are categories in the lib...

    if( CDS_lbbFlattenCats then
       CDS_lbbcategoryList=list("Categories Flattened")
       CDS_lbbCurCat= "Top Level"
       CDS_listBoxBrowserForm->currentCatName->value=CDS_lbbCurCat
       CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
       CDS_lbbcellList=car(CDS_lbbselectedLibIDs)~>cells
       ;;CDS_lbbcellList=CDS_lbbPrune(CDS_lbbcellList)~>name
       CDS_lbbcellList = CDS_lbbcellList~>name
    else
       if(CDS_lbbGetLibCats(car(CDS_lbbselectedLibIDs)) then
	  CDS_lbbcellList=CDS_CatGetCellsNotInCat(car(CDS_lbbselectedLibIDs))
       else
	  CDS_lbbcellList=car(CDS_lbbselectedLibIDs)~>cells
	 ;; CDS_lbbcellList=CDS_lbbPrune(CDS_lbbcellList)~>name
	  CDS_lbbcellList = CDS_lbbcellList~>name
       ) ; ** if CDS_lbbGetLibCats **
    ) ; ** if CDS_lbbFlattenCats **
					;in case there were just categories at the top level
    unless(CDS_lbbcellList
       CDS_lbbcellList='("No Cells")
    )
    CDS_lbbcellList=CDS_lbbsortTheList("Cell" CDS_lbbcellList)
    CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
    CDS_lbbClearListBox(list("CellView"))
    return(t)
  ) ; ** prog **
) ; ** procedure CDS_lbbopenLibraryUpdateCat **

procedure(CDS_lbbPrune(clist)			  ;_Oct  3 02 sikand 75
;; prune empty dirs
  prog((clist2 empty)

    clist2=clist
    ;; reject empty views and cells with no views
    foreach(cell clist
       empty=0
       if(cell~>views == nil then
	  ;;printf("cell Pruning %s\n" cell~>name)
	  clist2=remove(cell clist2)
       else
	  ;; now reject the cell if all views are empty
	  foreach(el cell~>views~>files
	     when(el
		empty++
	     )
	  )
       ) ; ** if cell **
       when(empty == 0
	  ;;printf("view Pruning %s\n" cell~>name)
	  clist2=remove(cell clist2)
       )
    ) ; ** foreach cell **
    return(clist2)
  ) ; ** prog **
) ; ** procedure CDS_lbbPrune **


procedure(CDS_lbbsortTheList(type theList)	  ;_Jul 17 00 sikand 965
					;procedure sort the lists based on the options set
  prog((reversed sortType sortedList timeList)

    case(type
       ("Lib"
	reversed=CDS_lbbLibOptionsForm->sortOrder->value
	sortType=CDS_lbbLibOptionsForm->sortType->value
       )
       ("Cell"
	reversed=CDS_lbbCellOptionsForm->sortOrder->value
	sortType=CDS_lbbCellOptionsForm->sortType->value
       )
    );case
    cond(
       (sortType == "Alphabetic"
	sortedList=sort(theList 'alphalessp)
	when(reversed
	   sortedList=reverse(sortedList)
	)
       )
       (sortType == "By Date"
	case(type
	   ("Lib"
	    foreach(lib theList
	       timeList=cons(list(lib ddGetObj(lib)~>lastModify) timeList) 
	    )
	   )
	   ("Cell"
	    foreach(cell theList
	       timeList=cons(list(cell ddGetObj(car(CDS_listBoxBrowserForm->libraryListBox->value)
						cell)~>lastModify) timeList) 
	    )
	   )   
	);case
	timeList=sort(timeList 'CDS_lbbsortTime)
	sortedList=foreach(mapcar lib timeList car(lib))
	when(reversed
	   sortedList=reverse(sortedList)
	)
       )
    ) ; ** cond sortType **
    return(sortedList)
  );prog
) ; ** procedure CDS_lbbsortTheList **






procedure(CDS_lbbmoveToCatUpdateCell(catToMoveTo @optional (pop nil)) ;_Jul 17 00 sikand 2187
					;read the cells in the category, update the cell list box and category list
  prog((currentCatID new_lbbcategoryList new_lbbcellList )
    
    if(catToMoveTo == "No Sub-Categories" || catToMoveTo == "No Categories" ||  catToMoveTo == "Categories Flattened" then
       hiGetAttention()
       printf("No category to push into...\n")
    else
       new_lbbcategoryList='()
       new_lbbcellList='()
       if(catToMoveTo == "Top Level" then
	  currentCatID=nil
       else
	  currentCatID=ddCatOpen(car(CDS_lbbselectedLibIDs) catToMoveTo "r")

					;if pushing down into a category, add to the parent/child to the table
	  unless(pop
	     CDS_lbbReadCatFile( CDS_lbbCurCat catToMoveTo)
	  )
       ) ; ** if catToMoveTo **
       CDS_lbbCurCat= catToMoveTo
       CDS_listBoxBrowserForm->currentCatName->value=CDS_lbbCurCat

					;if we are returning to the top, go get the current lib categories and cells
					;also, if there are no categories, then currentCatID would be nil.  Check...
       if(!currentCatID || currentCatID~>name == "Top Level" then
	  CDS_lbbopenLibraryUpdateCat(car(CDS_listBoxBrowserForm->libraryListBox->value) "update")
       else
					;now go separate the members into categories and cells. Update list boxs
	  foreach(catMember CDS_lbbGetCatMembers(car(CDS_lbbselectedLibIDs) catToMoveTo)
	     cond(
		(cadr(catMember) == "cell"
		 new_lbbcellList=cons(car(catMember) new_lbbcellList)
		)
		(cadr(catMember) == "category"
		 new_lbbcategoryList=cons(car(catMember) new_lbbcategoryList)
		)
	     ) ; ** cond cadr **
	  ) ; ** foreach catMember **
	  if(new_lbbcategoryList then
	     CDS_lbbcategoryList=sort(new_lbbcategoryList 'alphalessp)
	  else
	     CDS_lbbcategoryList=list("No Sub-Categories")
	  )
	  if(new_lbbcellList then
	     CDS_lbbcellList=CDS_lbbsortTheList("Cell" new_lbbcellList)
	     unless(CDS_lbbcellList
                CDS_lbbcellList=list("No Cells")
	     )
	  else
	     CDS_lbbcellList=list("No Cells")
	  ) ; ** if new_lbbcellList **
	  CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
	  CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
	  CDS_lbbClearListBox(list("CellView"))
       ) ; ** if currentCatID **
    );unless no categories
  ) ; ** prog **
) ; ** procedure CDS_lbbmoveToCatUpdateCell **


procedure(CDS_lbbpopOneCategoryLevel()		  ;_Jul 11 01 sikand 121
  prog((parentCatID parentCatName)
    parentCatID = nil
    ;;check to see if we are at the top.  If not, then pop up one
    if(CDS_lbbCurCat == "Top Level" then
       ;;we are back to the top, so just go refresh the contents.
       CDS_lbbopenLibraryUpdateCat(car(CDS_listBoxBrowserForm->libraryListBox->value) "update")
       return()
    else
       parentCatName=car(CDS_lbbCatTable[CDS_lbbCurCat])

       ;;just in case there is a problem in the table, this will get us out of the recursion...
       unless(parentCatName parentCatName = "Top Level")  

       ;;check that the cat was not empty, and thus deleted by opus after a ddCatClose
       ;;if so, we need to remove it from the parents cat file, then pop to the parent
       ;;if the cat did still have some contents, then just move the the parent normally

       if(ddCatOpen(car(CDS_lbbselectedLibIDs) CDS_lbbCurCat "r") then
	  CDS_lbbCurCat=parentCatName
	  CDS_lbbmoveToCatUpdateCell(parentCatName "pop")
       else
	  unless(parentCatName == "Top Level"
	     parentCatID=ddCatOpen(car(CDS_lbbselectedLibIDs) car(CDS_lbbCatTable[CDS_lbbCurCat]) "a")
	     unless( parentCatID
		error("Could not open category!")
	     )
	     
	     ddCatSubItem(parentCatID CDS_lbbCurCat)
	     ddCatSave(parentCatID)
	     ddCatClose(parentCatID)
	  ) ; ** unless parentCatName **
	  CDS_lbbcategoryList=remove(CDS_lbbCurCat CDS_lbbcategoryList)
	  remove(CDS_lbbCurCat CDS_lbbCatTable)
	  CDS_lbbCurCat=parentCatName
	  CDS_lbbpopOneCategoryLevel()
       ) ; ** if ddCatOpen **
    ) ; ** if CDS_lbbCurCat **
  ) ; ** prog **
) ; ** procedure CDS_lbbpopOneCategoryLevel **


procedure(CDS_lbbReadCatFile( parentName catName) ;_Jul 17 00 sikand 530
  prog((libPath fileId aLine childCatNames )
    childCatNames='()
    libPath=car(CDS_lbbselectedLibIDs)~>readpath
    fileId=infile(strcat(libPath "/" catName ".Cat"))
    while(aLine=CDS_FFreadLine(fileId)

					;ignor blank lines
       unless(strlen(aLine) < 1
	  when(rexMatchp("\"category\"" aLine)
	     childCatNames=cons(car(parseString(nth(1 parseString(aLine " /")) ".")) childCatNames)
	  )
       )
    );while lines
    close(fileId)
    CDS_lbbCatTable[catName]=append(list(parentName) childCatNames)
  ) ; ** prog **
) ; ** procedure CDS_lbbReadCatFile **


procedure(CDS_findNameInListBox(type)		  ;_Jul 17 00 sikand 2048
					;find a name(s) in the list box
					;pop a form to ask for the search string
  prog((searchString mainXY LROffset)

    when(!(boundp('CDS_lbbFindNameForm) && CDS_lbbFindNameForm) || CDS_lbbformDebug 
       searchString= hiCreateStringField(
			?name 'searchString
			?prompt "Find:"
			?value ""
			?callback ""
			?format "%s"
		     )

					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_lbbFindNameForm
	  ?buttonLayout 'OKCancel
	  ?fields list(
		     list(searchString                     5:5 200:25  40)
		  )
	  ?formTitle "Find Name"
	  ?callback "CDS_lbbfindTheNames(CDS_lbbFindNameForm->searchString->value 
                                     CDS_lbbgetTheCurrentList(type) type)"
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize 225:75
       );hiCreateAppForm
    );unless not defined before

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(cadr(mainXY) < 500 then
       LROffset=0
    else
       LROffset=-210
    )
    case(type
       ("Lib"
	CDS_lbbFindNameForm->searchString->value=CDS_lbb_libFindString
	hiDisplayForm(CDS_lbbFindNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+40)
	CDS_lbb_libFindString= CDS_lbbFindNameForm->searchString->value
       )
       ("Cat"
	CDS_lbbFindNameForm->searchString->value=CDS_lbb_catFindString
	hiDisplayForm(CDS_lbbFindNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+240)
	CDS_lbb_catFindString= CDS_lbbFindNameForm->searchString->value
       )
       ("Cell"
	CDS_lbbFindNameForm->searchString->value=CDS_lbb_cellFindString
	hiDisplayForm(CDS_lbbFindNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+390)
	CDS_lbb_cellFindString= CDS_lbbFindNameForm->searchString->value
       )
       ("CellView"
	CDS_lbbFindNameForm->searchString->value=CDS_lbb_cellFindString
	hiDisplayForm(CDS_lbbFindNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+790)
	CDS_lbb_cellFindString= CDS_lbbFindNameForm->searchString->value
       )
    ) ; ** case type **
  ) ; ** prog **
) ; ** procedure CDS_findNameInListBox **


procedure(CDS_lbbChooseCellView()		  ;_Jul 17 00 sikand 1282
					;No view was selected, so have the user choose one (or multiple)
					;pop a form to ask for the search string
  prog((mainXY LROffset lbbChooseViewBox lbbChooseViewLabel)

    lbbChooseViewLabel=hiCreateLabel(
			  ?name 'lbbChooseViewLabel
			  ?labelText "Choose View(s)"
			  ?justification 'center
		       )
    lbbChooseViewBox= hiCreateListBoxField(
			 ?name 'lbbChooseViewBox
			 ?choices CDS_listBoxBrowserForm->cellViewListBox->choices
			 ?multipleSelect t
			 ?doubleClickCB "CDS_lbbUpdateAndClose()"
			 ?callback ""
		      )

					;go display the form
    hiCreateAppForm(
       ?name 'CDS_lbbChooseViewForm
       ?buttonLayout 'OKCancel
       ?fields list(
		  list(lbbChooseViewLabel         0:10  180:20    )
		  list(lbbChooseViewBox         0:40  180:75   0)
	       )
       ?formTitle "Select View Name"
       ?callback "CDS_lbbupdateListDisplay(CDS_lbbChooseViewForm->lbbChooseViewBox->value \"select\" \"CellView\")"
       ?help "Layout" ;Look at Layout.HRF file for help
       ?initialSize 190:175
    );hiCreateAppForm

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-50
    else
       LROffset=-230
    )
    hiDisplayForm(CDS_lbbChooseViewForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+600)
  ) ; ** prog **
) ; ** procedure CDS_lbbChooseCellView **



procedure(CDS_lbbCopyCell()			  ;_Mar  5 03 jdao 1992
  prog((destLibName srclib destlib srcell destcell)
    if(CDS_listBoxBrowserForm->cellListBox->value then
       CDS_lbbGetLibAndCellInfo()


       unless( CDS_lbbGetLibAndCellInfoForm->action
	  error("Operation aborted by user request")
       )
       
       
       ;;destLibName=CDS_lbbGetLibAndCellInfoForm->lbbCellLibNameField->value
       ;;when(destLibName == "" return())

       srclib = CDS_lbbGetLibAndCellInfoForm->lbbCellLibNameField->value
       destlib = CDS_lbbGetLibAndCellInfoForm->lbbTCellLibNameField->value
       srcell = CDS_lbbGetLibAndCellInfoForm->lbbCellNameField->value
       destcell = CDS_lbbGetLibAndCellInfoForm->lbbTCellNameField->value
       
       when( (destlib == srclib) &&  (srcell == destcell)
	  warn("Not copying cell onto itself!")
	  return()
       )
       
       
       if(length(CDS_listBoxBrowserForm->cellListBox->value) == 1 then
	  printf("Copying: %s  %s...\n" car(CDS_lbbselectedLibIDs)~>name 
		 car(CDS_listBoxBrowserForm->cellListBox->value))
	  CDS_FFdbCopyCell(?srcLib  srclib
			   ?srcCellName srcell
			   ?destLib destlib
			   ?destCellName destcell
			   ?copyHier CDS_lbbGetLibAndCellInfoForm->lbbCopyHierField->value 
			   ?copyFromRefLib CDS_lbbGetLibAndCellInfoForm->lbbRefLibField->value
			   ?updateInsts CDS_lbbGetLibAndCellInfoForm->lbbResetMasters->value
			   ?force CDS_lbbGetLibAndCellInfoForm->forceOverwrite->value)
					;use the movetocat command to update the cell list... yes I'm lazy
					;move to the top level since that is where the new cell ends up...
	  CDS_lbbmoveToCatUpdateCell("Top Level")
       else
	  destLibName=CDS_lbbGetLibAndCellInfoForm->lbbTCellLibNameField->value

	  when( srcell != destcell
	     error("Source and destination cell must match for multiple select copy!")
	  )
	  
	  

	  foreach(cell CDS_listBoxBrowserForm->cellListBox->value
	     printf("Copying: %s  %s...\n" car(CDS_lbbselectedLibIDs)~>name cell)
	     unless(CDS_FFdbCopyCell(?srcLib car(CDS_lbbselectedLibIDs)~>name
				     ?srcCellName cell 
				     ?destLib destLibName 
				     ?destCellName cell
				     ?copyHier CDS_lbbGetLibAndCellInfoForm->lbbCopyHierField->value
				     ?copyFromRefLib CDS_lbbGetLibAndCellInfoForm->lbbRefLibField->value
				     ?updateInsts CDS_lbbGetLibAndCellInfoForm->lbbResetMasters->value
				     ?force CDS_lbbGetLibAndCellInfoForm->forceOverwrite->value)

		printf("Error: Problem copying %s. Have you specified a valid Lib name?\n" cell) 
	     ) ; ** unless CDS_FFdbCopyCell **
	  ) ; ** foreach cell **
       );if/else length == 1
       printf("Copy command completed\n")
    else
       println("No cell selected!  Select one before choosing Copy Cell command.")
    ) ; ** if CDS_listBoxBrowserForm **
  ) ; ** prog **
) ; ** procedure CDS_lbbCopyCell **




procedure(CDS_lbbCopyCellView()			  ;_Jul 17 00 sikand 2538
  prog((cv destLibName)
    if(CDS_listBoxBrowserForm->cellListBox->value then
       if(length(CDS_listBoxBrowserForm->cellListBox->value) == 1 then
	  unless(car(CDS_listBoxBrowserForm->cellViewListBox->value)
	     if(length(CDS_listBoxBrowserForm->cellViewListBox->choices) == 1 then
		CDS_listBoxBrowserForm->cellViewListBox->value=CDS_listBoxBrowserForm->cellViewListBox->choices
	     else
		CDS_lbbChooseCellView()
	     )
	     unless(CDS_listBoxBrowserForm->cellViewListBox->value
		printf("You must choose a view before copying..\n")
		return()
	     )
	  ) ; ** unless car **
	  unless(CDS_lbbAskForName()
	     return()
	  )
	  when( CDS_lbbAskForNameForm->lbbNameField->value == "" ||
	     CDS_lbbAskForNameForm->lbbViewNameField->value == ""
	     return()
	  )

	  cv=CDS_FFdbCopyCellView(?srcLib car(CDS_lbbselectedLibIDs)~>name 
				  ?srcCellName car(CDS_listBoxBrowserForm->cellListBox->value)
				  ?srcViewName car(CDS_listBoxBrowserForm->cellViewListBox->value)
				  ?destLib car(CDS_lbbselectedLibIDs)~>name
				  ?destCellName CDS_lbbAskForNameForm->lbbNameField->value
				  ?destViewName CDS_lbbAskForNameForm->lbbViewField->value
				  ?destViewType CDS_viewTypeTable[CDS_lbbAskForNameForm->lbbViewField->value])

	  dbClose(cv)
					;use the movetocat command to update the cell list... yes I'm lazy
					;move to the top level since that is where the new cell ends up...
	  CDS_lbbmoveToCatUpdateCell("Top Level")
	  CDS_lbbcheckOtherForms(car(CDS_listBoxBrowserForm->cellListBox->value))
       else
	  CDS_lbbGetLibName() 
	  destLibName=CDS_lbbGetLibNameForm->CDS_lbbLibNameField->value
	  when(destLibName == ""
	     return()
	  )
	  foreach(cell CDS_listBoxBrowserForm->cellListBox->value
	     printf("Copying cellview %s to lib %s\n" cell destLibName)
	     cv=CDS_FFdbCopyCellView(?srcLib car(CDS_lbbselectedLibIDs)~>name  
				     ?srcCellName cell
				     ?srcViewName car(CDS_listBoxBrowserForm->cellViewListBox->value)
				     ?destLib destLibName 
				     ?destCellName cell
				     ?destViewName car(CDS_listBoxBrowserForm->cellViewListBox->value)
				     ?destViewType CDS_viewTypeTable[car(CDS_listBoxBrowserForm->cellViewListBox->value)])
	     if(cv then
		dbClose(cv)
	     else
		printf("Error: Problem copying %s. Have you specified a valid Lib name?\n" cell) 
	     )
	  ) ; ** foreach cell **
       );if one value
    else
       println("No cell selected!  Select one before choosing Copy Cellview command.")
    ) ; ** if CDS_listBoxBrowserForm **
  ) ; ** prog **
) ; ** procedure CDS_lbbCopyCellView **



procedure(CDS_lbbUpdateAndClose()		  ;_Jul 17 00 sikand 210
  CDS_lbbupdateListDisplay(CDS_lbbChooseViewForm->lbbChooseViewBox->value "select" "CellView")
  when(boundp('CDS_lbbChooseViewForm) hiFormCancel(CDS_lbbChooseViewForm))
)


procedure(CDS_lbbgetTheCurrentList(type)	  ;_Jul 17 00 sikand 320
  prog((currentList)
					;return the current list to apply any commands to 
    cond(
       (type == "Lib"
	currentList=CDS_lbblibraryList
       )
       (type == "Cat"
	currentList=CDS_lbbcategoryList
       )
       (type == "Cell"
	currentList=CDS_lbbcellList
       )
    ) ; ** cond type **
    return(currentList)
  );prog
) ; ** procedure CDS_lbbgetTheCurrentList **



procedure(CDS_lbbupdateListDisplay(selectValues mode section) ;_Jul 17 00 sikand 1018
					;update the appropriate list box field with the passed in list

  if(mode == "select" then
     cond(
	(section == "Lib" 
	 CDS_listBoxBrowserForm->libraryListBox->value = selectValues
	)
	(section == "Cat"
	 CDS_listBoxBrowserForm->categoryListBox->value = selectValues
	 CDS_lbbCurCat=CDS_listBoxBrowserForm->currentCatName->value
	)
	(section == "Cell"
	 CDS_listBoxBrowserForm->cellListBox->value = selectValues
	)
	(section == "CellView"
	 CDS_listBoxBrowserForm->cellViewListBox->value = selectValues
	)
     ) ; ** cond section **
  else ;case for "update"
     cond(
	(section == "Lib"
	 CDS_listBoxBrowserForm->libraryListBox->choices = selectValues
	)
	(section == "Cat"
	 CDS_listBoxBrowserForm->categoryListBox->choices = selectValues
	 CDS_lbbCurCat=CDS_listBoxBrowserForm->currentCatName->value
	)
	(section == "Cell"
	 CDS_listBoxBrowserForm->cellListBox->choices = selectValues
	)
	(section == "CellView"
	 CDS_listBoxBrowserForm->cellViewListBox->choices = selectValues
	)
     ) ; ** cond section **
  );if/else
) ; ** procedure CDS_lbbupdateListDisplay **



procedure(CDS_lbbfindTheNames(searchString searchList type) ;_Oct  3 02 sikand 0
  prog((catNames selectList libListToSearch)
					;go search the current display list for names that match the search string
					;if looking for a cell, look in all the categories.

    if(type == "Cell" then
					;look at all the cells in the lib, update the cat and lib fields if found
					;search in each lib selected in the library list box browser
       libListToSearch=CDS_listBoxBrowserForm->libraryListBox->value
       unless(libListToSearch 
	  println("No Libraries Selected!")
	  return()
       )
       foreach(lib libListToSearch
	  unless(CDS_lbbopenLibraryUpdateCat(lib "open")
	     return()
	  )
	  CDS_lbbupdateListDisplay(list(lib) "select" "Lib")
	  printf("Searching Lib: %s\n" lib)

					;first build a list that starts with the current category so we search it first.

	  
	  
	  when(CDS_lbbCurCat == "Top Level" || CDS_lbbCurCat == ""
	     CDS_lbbCurCat="Top Level"
	     CDS_listBoxBrowserForm->currentCatName->value=CDS_lbbCurCat
	  )
	  if( !CDS_lbbFlattenCats then
	     catNames='()
	     foreach(cat CDS_lbbGetLibCats(car(CDS_lbbselectedLibIDs))
		catNames=cons(cat catNames)
		catNames=append(CDS_lbbGetAllCatNames(lib cat) catNames)
	     )
					;make the current cat name the head of the list
	     catNames=append(list(CDS_lbbCurCat) remove(CDS_lbbCurCat catNames))
	     foreach(cat catNames
		CDS_lbbmoveToCatUpdateCell(cat)
		selectList = rexMatchList(searchString CDS_lbbcellList)
		unless(zerop(length(selectList))
					;return the list to the list box
		   CDS_lbbupdateListDisplay(selectList "select" type)
		   print("Names found => ")
		   println(selectList)
		   CDS_lbbcheckOtherForms(car(CDS_listBoxBrowserForm->cellListBox->value))
		   return()
		) ; ** unless zerop **
	     ) ; ** foreach cat **
	  else
	     selectList = rexMatchList(searchString CDS_lbbcellList)
	     CDS_lbbupdateListDisplay(selectList "select" type)
	     print("Names found => ")
	     println(selectList)
	     CDS_lbbcheckOtherForms(car(CDS_listBoxBrowserForm->cellListBox->value))
	     return()

	  ) ; ** if CDS_lbbFlattenCats **
	  
	  when(zerop(length(selectList))
	     println("No match")
	     CDS_lbbCurCat="Top Level"
	     CDS_listBoxBrowserForm->currentCatName->value=CDS_lbbCurCat
	     currentLib=CDS_listBoxBrowserForm->libraryListBox->value
	     CDS_lbbopenLibraryUpdateCat(car(currentLib) "open")
	  )    ; ** when zerop **
       );foreach lib

					;if we found no matchs at all, then just leave the browser in
					;the top level of the last lib searched
       printf("select list=%d" length(selectList))
       unless(zerop(length(selectList))
	  CDS_lbbmoveToCatUpdateCell("Top Level")
       ) 
    else
       selectList = rexMatchList(searchString searchList)
       if(zerop(length(selectList)) then
	  println("No match")
       else
					;return the list to the list box
	  CDS_lbbupdateListDisplay(selectList "select" type)
	  print("Names found => ")
	  println(selectList)
       ) ; ** if zerop **
    )  ; ** if type **
  ) ; ** prog **
) ; ** procedure CDS_lbbfindTheNames **


procedure(CDS_lbbGetAllCatNames(libName catName)  ;_Jul 17 00 sikand 349
					;go recurse down the cat tree to pick up all sub cats
  prog((catMems catList)
    catList='()
    catMems=CDS_lbbGetCatMembers(ddGetObj(libName) catName)
    foreach(mem catMems
       when(cadr(mem) == "category"
	  catList=cons(car(mem) catList)
	  catList=append(CDS_lbbGetAllCatNames(libName car(mem)) catList)
       )
    ) ; ** foreach mem **
    return(catList)
  ) ; ** prog **
) ; ** procedure CDS_lbbGetAllCatNames **


procedure(CDS_lbbOpenCell(mode @optional dblClk)  ;_Oct  3 02 sikand 0
  prog(()

					;update the cellview list box first
    CDS_lbbcheckOtherForms(car(CDS_listBoxBrowserForm->cellListBox->value
			   ))

					;allow editing directly with double click in the cellview list box
    when(dblClk && CDS_lbbdblClickMode == "edit" 
       mode = "a"
    )

    if(CDS_listBoxBrowserForm->cellListBox->value then
       when(length(CDS_listBoxBrowserForm->cellListBox->value) > 1
	  printf("Can only open one cell, taking the first on the list...\n")
       )
       unless(CDS_listBoxBrowserForm->cellViewListBox->value

					;default to the only view if there is just one...
	  if(length(CDS_listBoxBrowserForm->cellViewListBox->choices) == 1 then
	     CDS_listBoxBrowserForm->cellViewListBox->value=CDS_listBoxBrowserForm->cellViewListBox->choices
	  else
					;users can specify a default view to open (if it exists)
	     if(boundp('CDS_lbbDefaultView) then
		if(member(CDS_lbbDefaultView CDS_listBoxBrowserForm->cellViewListBox->choices) then
		   CDS_listBoxBrowserForm->cellViewListBox->value=list(CDS_lbbDefaultView)
		else
		   CDS_lbbChooseCellView()
		)
	     else
		CDS_lbbChooseCellView()
	     ) ; ** if boundp **
	  ) ; ** if length **
	  unless(CDS_listBoxBrowserForm->cellViewListBox->value
	     printf("You must select a cellView before opening...")
	     return()
	  )
       ) ; ** unless CDS_listBoxBrowserForm **
					;add to the history list
       CDS_LBBupdateHistList(strcat(car(CDS_lbbselectedLibIDs)~>name "  "
				    car(CDS_listBoxBrowserForm->cellListBox->value) "  "
				    car(CDS_listBoxBrowserForm->cellViewListBox->value)))

       geOpen(?lib  car(CDS_lbbselectedLibIDs)~>name
	      ?cell car(CDS_listBoxBrowserForm->cellListBox->value)
	      ?view car(CDS_listBoxBrowserForm->cellViewListBox->value)
	      ?mode mode)

    else
       printf("No cell selected...\n")
    ) ; ** if CDS_listBoxBrowserForm **
  ) ; ** prog **
) ; ** procedure CDS_lbbOpenCell **


procedure(CDS_lbbCreateNew(type @optional (newName nil)) ;_Mar 18 03 jdao 3509
						  ;create a new category, cell or library depending on setting of "Apply" 
  prog((viewName catID newPath cv)
    catID = nil

    case(type
       ("Lib"
	unless(newName
	   unless(CDS_lbbAskForLibName()
	      return()
	   )
	   newName=CDS_lbbAskForLibNameForm->lbbNameField->value
	   newPath=CDS_lbbAskForLibNameForm->lbbPathField->value
	) ; ** unless newName **
	when(ddGetObj(newName)
	   printf("Warning: Lib %s already exists...\n" newName)
	   return()
	)

					;create the lib and point to the standard techlib for techfile info
	unless(ddCreateLib(newName strcat(newPath "/" newName)  CDS_lbbAskForLibNameForm->dmOption->value)
	   printf("Error: Problem creating lib %s.  Check Unix directory permissions ...\n" newName)
	   return()
	)
	;; bind to system wide tech file
	techBindTechFile(ddGetObj(newName) CDS_P4ProjectTechLib)
	;; set the DM type explicitly
	CDS_ddSetLibDMSys(ddGetObj(newName) CDS_lbbAskForLibNameForm->dmOption->value)
	
	CDS_lbbrefreshTheLibList(t)
	CDS_listBoxBrowserForm->libraryListBox->value=list(newName)
	CDS_lbbopenLibraryUpdateCat(newName "open")
       )
       ("Cat"
	newName=CDS_lbbMoveForm->lbbNewCatName->value
	when(CDS_lbbCatTable[newName]
	   printf("Error: %s already exists in library: %s\n" newName
		  car(CDS_lbbselectedLibIDs)~>name)
	   return()
	)
	if((CDS_lbbCurCat == "Top Level") || (CDS_lbbCurCat == "") then
	   catID=ddCatOpen(car(CDS_lbbselectedLibIDs) newName "w")
	   unless( catID
	      error("Could not open category!")
	   )
	   

	   
	   CDS_lbbCatTable[newName]=list("Top Level" nil)
	else
	   catID=ddCatOpen(ddCatOpen(car(CDS_lbbselectedLibIDs) CDS_lbbCurCat "r") newName "w")
	   unless( catID
	      error("Could not open category!")
	   )

	   
	   CDS_lbbCatTable[newName]=list(CDS_lbbCurCat nil)
	) ; ** if CDS_lbbCurCat **
	CDS_lbbcategoryList=cons(newName CDS_lbbcategoryList)
	CDS_lbbcategoryList=remove("No Categories" CDS_lbbcategoryList)
	CDS_lbbcategoryList=remove("No Sub-Categories" CDS_lbbcategoryList)
	CDS_lbbcategoryList=sort(CDS_lbbcategoryList 'alphalessp)

	CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
	return(catID)
       )
       (list("Cell" "CellView")
	unless(newName
	   when(type == "CellView" && boundp('CDS_lbbAskForCellNameForm)
	      CDS_lbbAskForCellNameForm->lbbNameField->value=car(CDS_listBoxBrowserForm->cellListBox->value)
	   )
	   unless(CDS_lbbAskForCellName()
	      return()
	   )
	   newName=CDS_lbbAskForCellNameForm->lbbNameField->value
	) ; ** unless newName **
	viewName=CDS_lbbAskForCellNameForm->lbbViewNameField->value
	when(viewName == "" || newName == ""
	   printf("Error:  You must specify a cell name and view name\n")
	   return()
	)
	unless(CDS_viewTypeTable[viewName]
	   hiGetAttention()
	   printf("Error:  ViewType: %s not currently supported by listBoxBrowser.  See your CAD person to add it...\n" viewName) 
	   return()
	)

	cv=dbOpenCellViewByType(car(CDS_lbbselectedLibIDs) newName viewName CDS_viewTypeTable[viewName] "r")
	getWarn()  ;flush the warning
	if(cv then
	   unless(CDS_FFpopDialogBox(sprintf(nil "%s %s %s already exists.  Overwrite it?\n" 
					     car(CDS_lbbselectedLibIDs)~>name newName viewName))
	      return(nil)
	   )
	) ; ** if cv **
	if( viewName == "config" then
	   ;; this is a hack to get config views to work. Seems
	   ;; like ic50 has better support for config so hopefully
	   ;; we can get rid of this. jdao:03/18/2003
	   ;; open it with deNewCellView, this brings up the
	   ;;hierEditor
	   deNewCellView(car(CDS_lbbselectedLibIDs)~>name newName viewName CDS_viewTypeTable[viewName] nil)
	else
	   dbOpenCellViewByType(car(CDS_lbbselectedLibIDs) newName viewName CDS_viewTypeTable[viewName] "w")
	) ; ** if viewName **
	;;Move the new cell to the category we are currently in
	unless(CDS_lbbCurCat == "Top Level"
	   CDS_lbbMoveCellsToCategory(CDS_lbbCurCat list(newName))
	)
	CDS_lbbcellList=remove("No Cells" CDS_lbbcellList)
	unless(member(newName CDS_lbbcellList)
	   CDS_lbbcellList=cons(newName CDS_lbbcellList)
	   CDS_lbbcellList=CDS_lbbsortTheList("Cell" CDS_lbbcellList)
	)
	CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
	CDS_lbbviewList=ddGetObj(car(CDS_lbbselectedLibIDs)~>name newName)~>views~>name
	CDS_lbbviewList=sort(CDS_lbbviewList 'alphalessp)
	CDS_lbbupdateListDisplay(CDS_lbbviewList "update" "CellView")

					;open the layout editor
	unless( viewName == "config"
	   geOpen(?lib  car(CDS_lbbselectedLibIDs)~>name
		  ?cell newName
		  ?view viewName
		  ?viewType CDS_viewTypeTable[viewName]
		  ?mode "a")
	) ; ** unless viewName **
      ); ** list("Cell" "CellView")
    );case
    return(t)
  );prog
) ; ** procedure CDS_lbbCreateNew **




procedure(CDS_lbbIpcError(pid data)		  ;_Jul 17 00 sikand 16
  println(pid)
  printf("%s" data)
)


procedure(CDS_lbbDelete(type @optional (libName nil)) ;_Oct  3 02 sikand 6752
					;delete a  category, cell or library depending on setting of "Apply" 
  prog((catID cats allCatNames deleteList dddid cellListToDelete lbbDeleteViewField displayList
        mainXY LROffset libid cells viewList action formSize viewsToDel deleteCount deleteTotal
        delObj)

    catId = nil
    case(type
       ("Lib"
	if(libName then
	   CDS_listBoxBrowserForm->libraryListBox->value=list(libName)
	else
	   unless(CDS_WarnDialogBox("Delete Warn" "Do you really want to delete the lib(s)?")
	      return()
	   )
	) ; ** if libName **
					;go blow away all the selected libraries
	foreach(lib CDS_listBoxBrowserForm->libraryListBox->value

					;Had to first blow off categories first else we got .nfs file errors....
	   allCatNames='()
	   foreach(cat CDS_lbbGetLibCats(ddGetObj(lib))
	      allCatNames=cons(cat allCatNames)
	      allCatNames=append(CDS_lbbGetAllCatNames(lib cat) allCatNames)
	   )
	   
					;Comment this section out to demonstrate the delete lib problem
	   ;; I did -- Shiv
					; printf("Removing Old Categories...\n")
;                 foreach(cat allCatNames
;                     catID=ddCatOpen(ddGetObj(lib) cat "a")
;                     ddCatRemove(catID)
;                 )
	   
	   printf("\nRemoving Library: %s\n" lib)
	   ddDeleteObj(ddGetObj(lib))
	   ddSetForcedLib("cds.lib")
	   ddUpdateLibList()
	   CDS_lbblibraryList=CDS_lbbsortTheList("Lib" ddGetLibList()~>name)
	   CDS_lbbrefreshTheLibList(t)
	) ; ** foreach lib **
					;if we blew away all the libs, then stuff a default message 
	unless(CDS_lbblibraryList
	   CDS_lbblibraryList='("No Libraries")
	)
	CDS_lbbupdateListDisplay(CDS_lbblibraryList "update" "Lib")
	CDS_lbbrefreshTheLibList(t)
       )
       ("Cat"
	cats=CDS_listBoxBrowserForm->categoryListBox->value 
	foreach(category cats
	   deleteList='()

					;blow off all lower level cats, then the selected cat
	   deleteList=CDS_lbbGetAllCatNames(car(CDS_lbbselectedLibIDs)~>name category)
	   deleteList=cons(category deleteList)
	   foreach(cat deleteList
	      catID=ddCatOpen(car(CDS_lbbselectedLibIDs) cat "r")
	      when(catID
		 ddCatRemove(catID)
	      )
	      CDS_lbbcategoryList=remove(cat CDS_lbbcategoryList)
	      remove(cat CDS_lbbCatTable)
	   ) ; ** foreach cat **
	) ; ** foreach category **
	unless(CDS_lbbcategoryList
	   CDS_lbbcategoryList='("No Categories")
	)
	CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
	
					;check to see if we are at the top.  If we are then we need to regenerate
					;a new cell list.  If not, then we just update the category field.
	when((CDS_lbbCurCat == "Top Level")  || (CDS_lbbCurCat == "")
	   CDS_lbbmoveToCatUpdateCell("Top Level")
	)
       )
       ("Cell"
	unless(CDS_WarnDialogBox("Delete Warn" "     Do you really want to delete the cell(s)?\n (Includes all views- layout/schematic/symbol/etc.) ")
	   return()
	)
	unless(CDS_lbbCurCat == "Top Level"
	   catID=ddCatOpen(car(CDS_lbbselectedLibIDs) CDS_lbbCurCat  "a")
	   unless( catID
	      error("Could not open category!")
	   )
	) ; ** unless CDS_lbbCurCat **
					;go blow away all the selected cells
	deleteCount=1
	deleteTotal=length(CDS_listBoxBrowserForm->cellListBox->value)
	foreach(cell CDS_listBoxBrowserForm->cellListBox->value
	   printf("Deleting %d of %d => %s\n" deleteCount++ deleteTotal cell)
	   dddid = ddGetObj(car(CDS_lbbselectedLibIDs)~>name cell)
	   when( dddid
	      ddDeleteObj(dddid)
	   )
	   when(catID
	      ddCatSubItem(catID cell)
	   )
	   CDS_lbbcellList=remove(cell CDS_lbbcellList)
	) ; ** foreach cell **
	when(catID
	   ddCatSave(catID)
	   ddCatClose(catID)
	)
					;if we blew away all the cells, then stuff a default message, unless there are 
					;subcategories with cells in them 
	unless(CDS_lbbcellList
	   if(CDS_lbbCurCat == "Top Level" then
	      CDS_lbbcellList='("No Cells")
	   else
					;if there is a category, then we can stay here.  This is the case of a category
					;with only sub-categories as members.  This is legal.
	      if(car(CDS_lbbcategoryList) == "No Categories" ||
		 car(CDS_lbbcategoryList) == "No Sub-Categories" then
		 CDS_lbbpopOneCategoryLevel()
	      else
		 CDS_lbbcellList='("No Cells")
	      ) ; ** if car **
	   ) ; ** if CDS_lbbCurCat **
	) ; ** unless CDS_lbbcellList **
	unless(CDS_lbbcategoryList
	   CDS_lbbcategoryList='("No Categories")
	)
	CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
	CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
	CDS_lbbviewList='()
	CDS_lbbupdateListDisplay(CDS_lbbviewList "update" "CellView")
       )
       ("EmptyCells"
	unless(CDS_listBoxBrowserForm->libraryListBox->value
	   hiGetAttention()
	   printf("Must Select A Lib First...\n")
	   return()
	)
	foreach(cell car(CDS_lbbselectedLibIDs)~>cells
	   unless(cell~>views
	      printf("Deleting Empty Cell: %s\n" cell~>name)
	      ddDeleteObj(cell)
	   )
	) ; ** foreach cell **
	CDS_lbbrefreshTheLibList(t)
       )
       ("CellView"
	unless(car(CDS_listBoxBrowserForm->cellViewListBox->value)
	   if(length(CDS_listBoxBrowserForm->cellViewListBox->choices) == 1 then
	      CDS_listBoxBrowserForm->cellViewListBox->value=CDS_listBoxBrowserForm->cellViewListBox->choices
	   else
	      CDS_lbbChooseCellView()
	   )
	   unless(CDS_listBoxBrowserForm->cellViewListBox->value
	      printf("Error: No cellView exists to delete...\n")
	      return()
	   )
	) ; ** unless car **
	unless(CDS_WarnDialogBox("Delete Warn" "Do you really want to delete the cellView(s)?")
	   return()
	)

	foreach(view CDS_listBoxBrowserForm->cellViewListBox->value
	   printf("Deleting view %s %s\n" car(CDS_listBoxBrowserForm->cellListBox->value) view)
	   
	   when(delObj = ddGetObj(car(CDS_lbbselectedLibIDs)~>name car(CDS_listBoxBrowserForm->cellListBox->value) view)
	      ddDeleteObj(delObj)
	   )
	   	   
	   CDS_lbbviewList=remove(view CDS_lbbviewList)

					;if there are no more views for this cell, then delete the cell too
	   ;;unless(ddGetObj(car(CDS_lbbselectedLibIDs)~>name car(CDS_listBoxBrowserForm->cellListBox->value))~>views
	   unless(CDS_lbbviewList
					;move the cell to the top to get it out of any cat files
	      cellListToDelete=CDS_listBoxBrowserForm->cellListBox->value
	      CDS_lbbMoveCellsToCategory("Top Level" cellListToDelete)
	      printf("Deleting cell %s because it has no cellviews\n" car(cellListToDelete))
	      ;; only call ddDeleteObj if there are files to delete (property bags usually)
	      when(ddGetObj(car(CDS_lbbselectedLibIDs)~>name car(cellListToDelete))~>files
		 delObj = ddGetObj(car(CDS_lbbselectedLibIDs)~>name car(cellListToDelete))
		 when( delObj
		    ddDeleteObj(delObj)
		 )
	      ) ; ** when ddGetObj **
	      ;;printf("After deleting the cellview, there were no remaining views for cell: %s, so lbb deleted it as well...\n" car(cellListToDelete))
	      CDS_lbbcellList=remove(car(CDS_listBoxBrowserForm->cellListBox->value) CDS_lbbcellList)
	   ) ; ** unless CDS_lbbviewList **
	) ; ** foreach view **
					;if we blew away all the cellviews, then stuff a default message 
	unless(CDS_lbbcellList
	   CDS_lbbcellList='("No Cells")
	)
	CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
	CDS_lbbupdateListDisplay(CDS_lbbviewList "update" "CellView")
       )
       ("Views"
					;delete all specified views in a lib 
	lbbDeleteViewField= hiCreateStringField(
			       ?name 'lbbDeleteViewField
			       ?prompt "View Name(s)"
			       ?value ""
			       ?callback ""
			       ?format "%s"
			    )
	displayList=list(
		       list(lbbDeleteViewField           5:10 300:25  90)
		    )
	formSize= 350:120
	
					;go display the form
	hiCreateAppForm(
	   ?name 'CDS_lbbDeleteViewForm
	   ?buttonLayout 'OKCancelDef
	   ?fields displayList
	   ?formTitle "Delete All Views"
	   ?callback ""
	   ?help "Layout" ;Look at Layout.HRF file for help
	   ?initialSize formSize
	);hiCreateAppForm
	mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
	if(car(mainXY) < 500 then
	   LROffset=-150
	else
	   LROffset=-410
	)
	action=hiDisplayForm(CDS_lbbDeleteViewForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+140)

	when(CDS_lbbDeleteViewForm->lbbDeleteViewField->value == "" || !action
	   return()
	)

					;go delete all the specified views.  Give TWO warnings...
	unless(CDS_WarnDialogBox("Delete Warn" "Do you REALLY want to delete all these views in the lib?")
	   return()
	)
	viewsToDel=parseString(CDS_lbbDeleteViewForm->lbbDeleteViewField->value " ")
	libid=car(CDS_lbbselectedLibIDs)
	cells=libid~>cells
	viewList='()
	foreach(cell cells
	   foreach(view cell~>views
	      when(member(view~>name viewsToDel)
		 viewList=cons(view viewList)
	      )
	   )
	) ; ** foreach cell **
	deleteCount=1
	deleteTotal=length(viewList)
	foreach(view viewList
	   printf("Deleting %d of %d=> %s %s %s\n" deleteCount++ deleteTotal 
		  view~>lib~>name view~>cell~>name view~>name)
	   when(delObj = ddGetObj(view~>lib~>name view~>cell~>name view~>name)
	      ddDeleteObj(delObj)
	   )
	)
	CDS_lbbmoveToCatUpdateCell("Top Level")

					;clean up any cells that ended up without cellviews
	CDS_lbbDelete("EmptyCells")
	printf("Deleting Complete.\n")
       )
    ) ; ** case type **
  ) ; ** prog **
) ; ** procedure CDS_lbbDelete **


procedure(CDS_lbbUserFuncLoop()			  ;_Jul 17 00 sikand 633
					;procedure to go through each selected cell and call CDS_lbbUserFunc with the
					;cellviewID passed for the cell.

  prog((libname)

    when(zerop(length(CDS_listBoxBrowserForm->cellListBox->value))
       println("No Cells selected.  Select cells before running CDS_lbbUserFunc...")
       return()
    )
    libname=car(CDS_lbbselectedLibIDs)~>name
    foreach(cell CDS_listBoxBrowserForm->cellListBox->value
       foreach(cellview ddGetObj(libname cell)~>views
	  CDS_lbbUserFunc(dbOpenCellViewByType(libname cell cellview~>name))
       )
    )
    printf("CDS_lbbUserFunc Complete.\n")
  );prog
) ; ** procedure CDS_lbbUserFuncLoop **


procedure(CDS_lbbUserFunc(cv)			  ;_Jul 17 00 sikand 74
					;Initial CDS_lbbUserFunc - this would be reloaded with the users function.
  prog(()
    printf("Current Lib: %s\tCell: %s\t\tView:%s\n" cv~>libName cv~>cellName cv~>viewName)
  )
) ; ** procedure CDS_lbbUserFunc **



procedure(CDS_lbbMove()				  ;_Jul 17 00 sikand 2248
					;function to move cells into a category.  Optionally, create a new category if the user wants.
  prog((mainXY lbbMoveListBox lbbMoveLabel lbbMoveLabel1 LROffset catList libPath cats
	lbbNewCatName)

    when(zerop(length(CDS_listBoxBrowserForm->cellListBox->value))
       println("No Cells selected.  Select cells before trying to move them...")
       return()
    )
    
    libPath=car(CDS_lbbselectedLibIDs)~>readpath

    CDS_IPCBufferProcess(sprintf(nil "ls %s\n" libPath))
    catList=parseString(CDS_IPCBuffer "\n")
    cats=setof(x catList rexMatchp("\\.Cat$" x))
    cats=foreach(mapcar x cats substring(x 1 strlen(x)-4))
    cats=append(list("Top Level") cats)


					;pop a form to ask which category to put the cells in
    lbbMoveLabel=hiCreateLabel(
		    ?name 'lbbMoveLabel
		    ?labelText "Choose Category Or Enter New"
		    ?justification 'center
		 )
    lbbMoveLabel1=hiCreateLabel(
		     ?name 'lbbMoveLabel1
		     ?labelText "Category Name To Move Cells"
		     ?justification 'center
		  )
    lbbMoveListBox= hiCreateListBoxField(
		       ?name 'lbbMoveListBox
		       ?choices sort(cats 'alphalessp)
		       ?multipleSelect nil
		       ?callback ""
		    )
    lbbNewCatName= hiCreateStringField(
		      ?name 'lbbNewCatName
		      ?prompt "New Cat:"
		      ?value ""
		      ?callback ""
		      ?format "%s"
		   )
					;go display the form
    hiCreateAppForm(
       ?name 'CDS_lbbMoveForm
       ?buttonLayout 'OKCancelApply
       ?fields list(
		  list(lbbMoveLabel           0:10  190:20    )
		  list(lbbMoveLabel1          0:25  190:20    )
		  list(lbbMoveListBox          0:50  190:100  0)
		  list(lbbNewCatName          5:150 190:25  70)
	       )
       ?formTitle "Move Cells To Category"
       ?callback "CDS_lbbMoveCellsToCategory(car(CDS_lbbMoveForm->lbbMoveListBox->value)
                                            CDS_listBoxBrowserForm->cellListBox->value)"
       ?help "Layout" ;Look at Layout.HRF file for help
       ?initialSize 280:230
    );hiCreateAppForm

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-50
    else
       LROffset=-300
    )
    hiDisplayForm(CDS_lbbMoveForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+240)
  ) ; ** prog **
) ; ** procedure CDS_lbbMove **


procedure(CDS_lbbMoveCellsToCategory(catName cellsToMove) ;_Oct  3 02 sikand 0
					;move selected cells to a new category. 
  prog((catID currentCatID cellIDs newId )

    catID = nil
    currentCatID = nil
    unless(catName || (boundp('CDS_lbbMoveForm) && CDS_lbbMoveForm->lbbNewCatName->value) 
       return()
    )
					;if the user entered a new name, go create it before moving cells into it
    if(boundp('CDS_lbbMoveForm) && CDS_lbbMoveForm->lbbNewCatName->value != ""  then
       catName=CDS_lbbMoveForm->lbbNewCatName->value
       catID=CDS_lbbCreateNew("Cat" CDS_lbbMoveForm->lbbNewCatName->value)
    else
       unless(catName == "Top Level"
	  catID=ddCatOpen(car(CDS_lbbselectedLibIDs) catName "a")
	  unless( catID
	     error("Could not open category!")
	  )
       ) ; ** unless catName **
    ) ; ** if boundp **
    unless(CDS_lbbCurCat == "Top Level"
       currentCatID=ddCatOpen(car(CDS_lbbselectedLibIDs) CDS_lbbCurCat  "a")
       unless(currentCatID
	  error("Could not open category!")
       )
       
    ) ; ** unless CDS_lbbCurCat **
    cellIDs=setof(cell car(CDS_lbbselectedLibIDs)~>cells member(cell~>name cellsToMove))

					;remove cell(s) else we end up with duplicate cells in categories (except
					;when moving cells from the top level down into a category or where the catID
					;and currentCatID are = meaning we are creating a new cell within an existing cat)
    unless((CDS_lbbCurCat == "Top Level") || (CDS_lbbCurCat == "") ||
       (currentCatID == catID)
       foreach(cell cellIDs
	  ddCatSubItem(currentCatID cell~>name)
       )
       ddCatSave(currentCatID)
    ) ; ** unless CDS_lbbCurCat **

    unless(catName == "Top Level"
       foreach(cell cellIDs
	  newId=ddCatAddItem(catID cell~>name "cell")
	  unless(newId
	     println("Error: Cells were not successfully moved, check for valid lib and categories")
	     return()
	  )
       ) ; ** foreach cell **
       ddCatSave(catID)
    ) ; ** unless catName **
					;if CatID = currentCatID, we are creating a new cell within an existing cat
    unless(currentCatID == catID
       foreach(cell cellsToMove
	  CDS_lbbcellList=remove(cell CDS_lbbcellList)
       )
    )

					;don't try to close it twice if they are the same ID or we will get an error.
    if(currentCatID == catID then
       when(currentCatID ddCatClose(currentCatID))
    else
       when(currentCatID ddCatClose(currentCatID))
       when(catID ddCatClose(catID))
    ) ; ** if currentCatID **

					;update the browser
    if(!CDS_lbbcellList then
       CDS_lbbrefreshTheLibList() 
    else
       CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
       CDS_lbbviewList='()
       CDS_lbbupdateListDisplay(CDS_lbbviewList "update" "CellView")
    ) ; ** if CDS_lbbcellList **
    when(boundp('CDS_lbbMoveForm)
       CDS_lbbMoveForm->lbbNewCatName->value=""  ;reset for subsequent cell moves
    )
  ) ; ** prog **
) ; ** procedure CDS_lbbMoveCellsToCategory **



procedure(CDS_lbbAskForName()			  ;_Jul 17 00 sikand 1165
  prog((lbbNameField lbbViewField mainXY displayList formSize res LROffset)

    lbbNameField= hiCreateStringField(
		     ?name 'lbbNameField
		     ?prompt "Cell Name:"
		     ?value car(CDS_listBoxBrowserForm->cellListBox->value)
		     ?callback ""
		     ?format "%s"
		  )
    lbbViewField= hiCreateStringField(
		     ?name 'lbbViewField
		     ?prompt "View Name:"
		     ?value car(CDS_listBoxBrowserForm->cellViewListBox->value)
		     ?callback ""
		     ?format "%s"
		  )
    displayList=list(
		   list(lbbNameField           5:10 300:25  80)
		   list(lbbViewField           5:35 300:25  80)
		)
    formSize= 350:120

					;go display the form
    hiCreateAppForm(
       ?name 'CDS_lbbAskForNameForm
       ?buttonLayout 'OKCancelDef
       ?fields displayList
       ?formTitle "Enter New Name"
       ?callback ""
       ?help "Layout" ;Look at Layout.HRF file for help
       ?initialSize formSize
    );hiCreateAppForm

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-50
    else
       LROffset=-410
    )
    res=hiDisplayForm(CDS_lbbAskForNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+740)
    return(res)
  ) ; ** prog **
) ; ** procedure CDS_lbbAskForName **



procedure(CDS_lbbAskForCellName()		  ;_May  8 02 sikand 0
  prog((lbbNameField lbbViewNameField mainXY displayList formSize res LROffset)

					;define the form only once
    when(!(boundp('CDS_lbbAskForCellNameForm) && CDS_lbbAskForCellNameForm) || CDS_lbbformDebug 
       lbbNameField= hiCreateStringField(
			?name 'lbbNameField
			?prompt "Cell Name:"
			?value ""
			?callback ""
			?format "%s"
		     )
       lbbViewNameField= hiCreateStringField(
			    ?name 'lbbViewNameField
			    ?prompt "View Name:"
			    ?value ""
			    ?callback ""
			    ?format "%s"
			 )


       displayList=list(
		      list(lbbNameField           5:10 300:25  80)
		      list(lbbViewNameField       5:35 300:25  80)
		   )
       formSize= 350:120

					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_lbbAskForCellNameForm
	  ?buttonLayout 'OKCancelDef
	  ?fields displayList
	  ?formTitle "Enter New Cell Name"
	  ?callback ""
	  
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize formSize
       );hiCreateAppForm
    );when not previously defined

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-50
    else
       LROffset=-410
    )
    res=hiDisplayForm(CDS_lbbAskForCellNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+440)
    return(res)
  ) ; ** prog **
) ; ** procedure CDS_lbbAskForCellName **



procedure(CDS_lbbGetLibName()			  ;_Jul 17 00 sikand 1082
  prog((CDS_lbbLibNameField mainXY LROffset)

   ;;;(definition of ask for Lib name form **********************************
					;define the form only once
    when(!(boundp('CDS_lbbGetLibNameForm) && CDS_lbbGetLibNameForm) || CDS_lbbformDebug 
       CDS_lbbLibNameField= hiCreateStringField(
			       ?name 'CDS_lbbLibNameField
			       ?prompt "Name of Lib to copy cells to:"
			       ?value ""
			       ?callback ""
			       ?format "%s"
			    )

					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_lbbGetLibNameForm
	  ?buttonLayout 'OKCancelDef
	  ?fields list(
		     list(CDS_lbbLibNameField           5:10 350:25  180)
		  )
	  ?formTitle "Enter Lib Name"
	  ?callback ""
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize 400:80
       );hiCreateAppForm
    );when not defined before
   ;;; end of newname form) ;;;

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-50
    else
       LROffset=-460
    )
    hiDisplayForm(CDS_lbbGetLibNameForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+440)
  ) ; ** prog **
) ; ** procedure CDS_lbbGetLibName **



procedure(CDS_lbbGetLibAndCellInfo()		  ;_Oct  3 02 sikand 0
  prog((lbbCellLibNameField  lbbTCellLibNameField lbbCopyHierField lbbRefLibField 
	lbbResetMasters forceOverwrite mainXY LROffset lbbCellNameField
        lbbTCellNameField form)

   ;;;(definition of ask for Lib and cell info ******************************
					;define the form only once

    
    
    
    when(!(boundp('CDS_lbbGetLibAndCellInfoForm) && CDS_lbbGetLibAndCellInfoForm) || CDS_lbbformDebug 
       lbbCellLibNameField= hiCreateStringField(
			       ?name 'lbbCellLibNameField
			       ?prompt "Source Library:"
			       ?value car(CDS_lbbselectedLibIDs)~>name
			       ?callback ""
			       ?format "%s"
			    )


       lbbCellNameField= hiCreateStringField(
			    ?name 'lbbCellNameField
			    ?prompt "Source Cell:"
			    ?value car(CDS_listBoxBrowserForm->cellListBox->value)
			    ?callback ""
			    ?format "%s"
			 )


       lbbTCellLibNameField= hiCreateStringField(
				?name 'lbbTCellLibNameField
				?prompt "Target Library:"
				?value   car(CDS_lbbselectedLibIDs)~>name
				?callback ""
				?format "%s"
			     )

       lbbTCellNameField= hiCreateStringField(
			     ?name 'lbbTCellNameField
			     ?prompt "Target Cell:"
			     ?value car(CDS_listBoxBrowserForm->cellListBox->value)
			     ?callback ""
			     ?format "%s"
			  )

       
       lbbCopyHierField= hiCreateBooleanButton(
			    ?name 'lbbCopyHierField
			    ?buttonText "Copy cell hierarchy?"
			    ?value nil
			 )
       lbbRefLibField= hiCreateBooleanButton(
			  ?name 'lbbRefLibField
			  ?buttonText "Copy from reference libs?"
			  ?value nil
		       )
       lbbResetMasters= hiCreateBooleanButton(
			   ?name 'lbbResetMasters
			   ?buttonText "Reset Instance Masters?"
			   ?value t 
			)
       forceOverwrite= hiCreateBooleanButton(
			  ?name 'forceOverwrite
			  ?buttonText "Overwrite Existing Cells?"
			  ?value nil
		       )

					;go display the form
       hiCreateAppForm(
	  ?name 'CDS_lbbGetLibAndCellInfoForm
	  ?buttonLayout 'OKCancelDef
	  ?fields list(
		     list(lbbCellLibNameField       5:10  350:25  180)
		     list(lbbCellNameField       5:50  350:25  180)
		     list(lbbTCellLibNameField       5:90  350:25  180)
		     list(lbbTCellNameField       5:120  350:25  180)
		     list(lbbCopyHierField          5:160  200:20 170)
		     list(lbbRefLibField            5:185 200:20 170)
		     list(lbbResetMasters           5:210 200:20 170)
		     list(forceOverwrite            5:235 200:20 170)
		  )
	  ?formTitle "Copy Cell"
	  ?callback '("CDS_lbbGetLibAndCellInfoForm->action=t" "CDS_lbbGetLibAndCellInfoForm->action=nil")
	  
	  ?help "Layout" ;Look at Layout.HRF file for help
	  ?initialSize 400:400
       );hiCreateAppForm
    );when not defined before
    ;;; end of newname form) ;;;
    form = CDS_lbbGetLibAndCellInfoForm
    


    if(length(CDS_listBoxBrowserForm->cellListBox->value) >  1 then
       form~>lbbCellNameField~>editable = nil
       form~>lbbTCellNameField~>editable = nil
    else
       form~>lbbCellNameField~>editable = t
       form~>lbbCellNameField~>editable = t
    ) ; ** if length **

    mainXY=cadr(hiGetAbsWindowScreenBBox(CDS_LBBwid))
    if(car(mainXY) < 500 then
       LROffset=-50
    else
       LROffset=-455
    )
    form = CDS_lbbGetLibAndCellInfoForm
    form~>lbbTCellNameField~>value = car(CDS_listBoxBrowserForm->cellListBox->value)
    form~>lbbCellNameField~>value = car(CDS_listBoxBrowserForm->cellListBox->value)
    hiDisplayForm(CDS_lbbGetLibAndCellInfoForm car(mainXY)+LROffset:cadr(hiGetMaxScreenCoords())-cadr(mainXY)+400)
  ) ; ** prog **
) ; ** procedure CDS_lbbGetLibAndCellInfo **



procedure(CDS_lbbClearListBox(selectList)	  ;_Jul 17 00 sikand 458
					;clear the various list boxes
  foreach(listBox selectList
     case(listBox
	("Cat"
	 CDS_lbbcategoryList='("No Categories")
	 CDS_lbbupdateListDisplay(CDS_lbbcategoryList "update" "Cat")
	 CDS_lbbCurCat = ""
	)
	("Cell"
	 CDS_lbbcellList=list("No Cells")
	 CDS_lbbupdateListDisplay(CDS_lbbcellList "update" "Cell")
	)
	("CellView"
	 CDS_lbbviewList='()
	 CDS_lbbupdateListDisplay(CDS_lbbviewList "update" "CellView")
	)
     ) ; ** case listBox **
  ) ; ** foreach listBox **
) ; ** procedure CDS_lbbClearListBox **


procedure(CDS_lbbsortTime(sortElementA sortElementB) ;_Jul 17 00 sikand 16
					;takes a list of names and times  ((name time) (name time) ...) and sorts them
					;into assending time order
  prog(()
    cond(
       (compareTime(cadr(sortElementA) cadr(sortElementB)) < 0
	return(nil)        ;return nil to sort which means swap elements
       )
       (compareTime(cadr(sortElementA) cadr(sortElementB)) > 0
	return(t)          ;return t to sort which means don't swap elements
       )
       (compareTime(cadr(sortElementA) cadr(sortElementB)) == 0
	return(t)       ;if A = B, then don't swap the elements
       )
    );cond
  );prog 
) ; ** procedure CDS_lbbsortTime **


procedure(CDS_lbbCloseDownForms(wid)		  ;_Jul 17 00 sikand 1149
					;close any open forms

					;now have to unregister window trigger in case we came to this cleanup
					;via the window->close rather than the Motif frame button (else we would
					;call this cleanup procedure twice)

  hiUnregCloseProc(wid "CDS_lbbCloseDownForms")
  when(boundp('CDS_lbbAskForNameForm) hiFormCancel(CDS_lbbAskForNameForm))
  when(boundp('CDS_lbbCellOptionsForm) hiFormCancel(CDS_lbbCellOptionsForm))
  when(boundp('CDS_lbbLibOptionsForm) hiFormCancel(CDS_lbbLibOptionsForm))
  when(boundp('CDS_lbbAskForLibNameForm) hiFormCancel(CDS_lbbAskForLibNameForm))
  when(boundp('CDS_lbbAskForCellNameForm) hiFormCancel(CDS_lbbAskForCellNameForm))
  when(boundp('CDS_lbbGetLibNameForm) hiFormCancel(CDS_lbbGetLibNameForm))
  when(boundp('CDS_lbbGetLibAndCellInfoForm) hiFormCancel(CDS_lbbGetLibAndCellInfoForm))
  when(boundp('CDS_lbbFindNameForm) hiFormCancel(CDS_lbbFindNameForm))
  when(boundp('CDS_lbbMoveForm) hiFormCancel(CDS_lbbMoveForm))
  when(boundp('CDS_lbbChooseViewForm) hiFormCancel(CDS_lbbChooseViewForm))
  when(boundp('CDS_LBBhistForm) hiFormCancel(CDS_LBBhistForm))
  
					;close the floorplanner window
  hiUnmapWindow(wid)
) ; ** procedure CDS_lbbCloseDownForms **