home *** CD-ROM | disk | FTP | other *** search
- |##########|
- |#MAGIC #|DBGFFBII
- |#PROJECT #|""
- |#PATHS #|"EGSProject"
- |#FLAGS #|-x---x--x----xx-----------------
- |#USERSW #|--------------------------------
- |#USERMASK#|--------------------------------
- |#SWITCHES#|x--x-x----------
- |##########|
- (* $V- $R- $S- $N- *)
- IMPLEMENTATION MODULE GBTextEdit;
-
- FROM Exec IMPORT OpenLibrary,CloseLibrary;
- FROM Exceptions IMPORT CouldNotOpenLibrary;
-
-
- BEGIN
- GBTextEditBase:=OpenLibrary("egb/gbtextedit.library",0);
- ASSERT(GBTextEditBase#NIL,CouldNotOpenLibrary);
- CLOSE
- IF GBTextEditBase#NIL THEN
- CloseLibrary(GBTextEditBase);GBTextEditBase:=NIL
- END;
- END GBTextEdit.
-
-
-