text: """browsepict - Display all "PICT" resources found"""
  
  import FrameWork
  import EasyDialogs
  import Res
  import Qd
  import Win
  import Controls
  import List
  import sys
  import struct
  
  #
  # Resource definitions
  ID_MAIN=512
  MAIN_LIST=1
  MAIN_SHOW=2
  
  # Where is the picture window?
  LEFT=200
  TOP=64
  MINWIDTH=64
  MINHEIGHT=64
  MAXWIDTH=320
  MAXHEIGHT=320
  
  def main():
  	try:
  		dummy = Res.GetResource('DLOG', ID_MAIN)
  	except Res.Error:
  		try:
  			Res.FSpOpenResFile("PICTbrowse.rsrc", 1)
  		except Res.Error, arg:
  			EasyDialogs.Message("Cannot open PICTbrowse.rsrc: "+arg[1])
  			sys.exit(1)	
  	PICTbrowse()
  
  class PICTbrowse(FrameWork.Application):
  	def __init__(self):
  		# First init menus, etc.
  		FrameWork.Application.__init__(self)
  		# Next create our dialog
  		self.main_dialog = MyDialog(self)
  		# Now open the dialog
  		contents = self.findPICTresources()
  		self.main_dialog.open(ID_MAIN, contents)
  		# Finally, go into the event loop
  		self.mainloop()
  	
  	def makeusermenus(self):
  		self.filemenu = m = FrameWork.Menu(self.menubar, "File")
  		self.quititem = FrameWork.MenuItem(m, "Quit", "Q", self.quit)
  	
  	def quit(self, *args):
  		self._quit()
  		
  	def showPICT(self, resid):
  		w = PICTwindow(self)
  		w.open(resid)
  		#EasyDialogs.Message('Show PICT '+`resid`)
  		
  	def findPICTresources(self):
  		num = Res.CountResources('PICT')
  		rv = []
  		for i in range(1, num+1):
  			Res.SetResLoad(0)
  			try:
  				r = Res.GetIndResource('PICT', i)
  			finally:
  				Res.SetResLoad(1)
  			id, type, name = r.GetResInfo()
  			rv.append((id, name))
  		return rv
  		
  class PICTwindow(FrameWork.Window):
  	def open(self, (resid, resname)):
  		if not resname:
  			resname = '#'+`resid`
  		self.resid = resid
  		self.picture = Qd.GetPicture(self.resid)
  		# Get rect for picture
  		sz, t, l, b, r = struct.unpack('hhhhh', self.picture.data[:10])
  		self.pictrect = (l, t, r, b)
  		width = r-l
  		height = b-t
  		if width < MINWIDTH: width = MINWIDTH
  		elif width > MAXWIDTH: width = MAXWIDTH
  		if height < MINHEIGHT: height = MINHEIGHT
  		elif height > MAXHEIGHT: height = MAXHEIGHT
  		bounds = (LEFT, TOP, LEFT+width, TOP+height)
  		
  		self.wid = Win.NewWindow(bounds, resname, 1, 0, -1, 1, 0)
  		self.do_postopen()
  		
  	def do_update(self, *args):
  		currect = self.fitrect()
  		Qd.DrawPicture(self.picture, currect)
  		
  	def fitrect(self):
  		"""Return self.pictrect scaled to fit in window"""
  		graf = self.dlg.GetWindowPort()
  		screenrect = graf.portRect
  		picwidth = self.pictrect[2] - self.pictrect[0]
  		picheight = self.pictrect[3] - self.pictrect[1]
  		if picwidth > screenrect[2] - screenrect[0]:
  			factor = float(picwidth) / float(screenrect[2]-screenrect[0])
  			picwidth = picwidth / factor
  			picheight = picheight / factor
  		if picheight > screenrect[3] - screenrect[1]:
  			factor = float(picheight) / float(screenrect[3]-screenrect[1])
  			picwidth = picwidth / factor
  			picheight = picheight / factor
  		return (screenrect[0], screenrect[1], screenrect[0]+int(picwidth),
  				screenrect[1]+int(picheight))
  		
  class MyDialog(FrameWork.DialogWindow):
  	"Main dialog window for PICTbrowse"
  
  	def open(self, id, contents):
  		self.id = id
  		FrameWork.DialogWindow.open(self, ID_MAIN)
  		self.dlg.SetDialogDefaultItem(MAIN_SHOW)
  		self.contents = contents
  		self.ctl = self.dlg.GetDialogItemAsControl(MAIN_LIST)
  		h = self.ctl.GetControlData_Handle(Controls.kControlListBoxPart, 
  				Controls.kControlListBoxListHandleTag)
  		self.list = List.as_List(h)
  		self.setlist()
  
  	def setlist(self):
  		self.list.LDelRow(0, 0)
  		self.list.LSetDrawingMode(0)
  		if self.contents:
  			self.list.LAddRow(len(self.contents), 0)
  			for i in range(len(self.contents)):
  				v = `self.contents[i][0]`
  				if self.contents[i][1]:
  					v = v + '"' + self.contents[i][1] + '"'
  				self.list.LSetCell(v, (0, i))
  		self.list.LSetDrawingMode(1)
  		self.list.LUpdate(self.wid.GetWindowPort().visRgn)
  		
  	def getselection(self):
  		items = []
  		point = (0,0)
  		while 1:
  			ok, point = self.list.LGetSelect(1, point)
  			if not ok:
  				break
  			items.append(point[1])
  			point = point[0], point[1]+1
  		values = []
  		for i in items:
  			values.append(self.contents[i])
  		return values
  		
  	def do_show(self, *args):
  		selection = self.getselection()
  		for resid in selection:
  			self.parent.showPICT(resid)
  		
  	def do_close(self):
  		self.close()
  		
  	def do_itemhit(self, item, event):
  		if item == MAIN_SHOW:
  			self.do_show()
  
  main()
  