fbi.icl 829 Bytes
Newer Older
Diederik van Arkel's avatar
Diederik van Arkel committed
1 2 3 4 5 6 7
implementation module fbi

import StdString
import StdId, PmParse
import ExtListBox

:: FindBoxInfo p =
8 9 10 11 12 13 14 15
	{ dlogId		:: !Id
	, intrId		:: !Id
	, msgId			:: !Id
	, findId		:: !Id
	, closeId		:: !Id
	, stringId		:: !Id
	, kind			:: !SearchKind
	, type			:: !SearchType
Diederik van Arkel's avatar
Diederik van Arkel committed
16
	, is_searching	:: !Bool			// currently searching?
17 18 19 20 21
	, cleanid		:: ![String]
	, verb			:: !Bool
	, export_		:: !Bool
	, windId		:: !Id
	, windlbId		:: !ExtListBoxId p
Diederik van Arkel's avatar
Diederik van Arkel committed
22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
	, src_offset	:: !Vector2
	, src_font		:: !Font
	, src_forg		:: !Colour
	, src_back		:: !Colour
	, src_size		:: !Size
	, pathname		:: !String
	, recvId		:: !RId Bool
	}

:: SearchType = SearchPaths | SearchImports | SearchProject

instance == SearchType
where
	(==) SearchPaths SearchPaths = True
	(==) SearchImports SearchImports = True
	(==) SearchProject SearchProject = True
	(==) _ _ = False