mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
d5f74e42d6
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
70 lines
3.2 KiB
Plaintext
70 lines
3.2 KiB
Plaintext
-- Created on: 1993-07-28
|
|
-- Created by: Christian CAILLET
|
|
-- Copyright (c) 1993-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
--
|
|
-- This file is part of Open CASCADE Technology software library.
|
|
--
|
|
-- This library is free software; you can redistribute it and/or modify it under
|
|
-- the terms of the GNU Lesser General Public License version 2.1 as published
|
|
-- by the Free Software Foundation, with special exception defined in the file
|
|
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
|
-- distribution for complete text of the license and disclaimer of any warranty.
|
|
--
|
|
-- Alternatively, this file may be used under the terms of Open CASCADE
|
|
-- commercial license or contractual agreement.
|
|
|
|
class Functions from IFSelect
|
|
|
|
---Purpose : Functions gives access to all the actions which can be
|
|
-- commanded with the resources provided by IFSelect : especially
|
|
-- WorkSession and various types of Selections and Dispatches
|
|
--
|
|
-- It works by adding functions by method Init
|
|
|
|
uses CString, HSequenceOfTransient from TColStd,
|
|
WorkSession from IFSelect , Dispatch from IFSelect
|
|
|
|
is
|
|
|
|
GiveEntity (myclass; WS : WorkSession; name : CString = "")
|
|
returns Transient;
|
|
---Purpose : Takes the name of an entity, either as argument, or (if <name>
|
|
-- is empty) on keybord, and returns the entity
|
|
-- name can be a label or a number (in alphanumeric), it is
|
|
-- searched by NumberFromLabel from WorkSession.
|
|
-- If <name> doesn't match en entity, a Null Handle is returned
|
|
|
|
GiveEntityNumber (myclass; WS : WorkSession; name : CString = "")
|
|
returns Integer;
|
|
---Purpose : Same as GetEntity, but returns the number in the model of the
|
|
-- entity. Returns 0 for null handle
|
|
|
|
GiveList (myclass; WS : WorkSession; first, second : CString = "")
|
|
returns HSequenceOfTransient;
|
|
---Purpose : Computes a List of entities from a WorkSession and two idents,
|
|
-- first and second, as follows :
|
|
-- if <first> is a Number or Label of an entity : this entity
|
|
-- if <first> is the name of a Selection in <WS>, and <second>
|
|
-- not defined, the standard result of this Selection
|
|
-- if <first> is for a Selection and <second> is defined, the
|
|
-- standard result of this selection from the list computed
|
|
-- with <second> (an entity or a selection)
|
|
-- If <second> is erroneous, it is ignored
|
|
|
|
GiveDispatch (myclass; WS : WorkSession; name : CString;
|
|
mode : Boolean = Standard_True)
|
|
returns Dispatch from IFSelect;
|
|
---Purpose : Evaluates and returns a Dispatch, from data of a WorkSession
|
|
-- if <mode> is False, searches for exact name of Dispatch in WS
|
|
-- Else (D), allows a parameter between brackets :
|
|
-- ex.: dispatch_name(parameter)
|
|
-- The parameter can be: an integer for DispPerCount or DispPerFiles
|
|
-- or the name of a Signature for DispPerSignature
|
|
-- Returns Null Handle if not found not well evaluated
|
|
|
|
Init (myclass);
|
|
---Purpose : Defines and loads all basic functions (as ActFunc)
|
|
|
|
end Functions;
|