From: Laszlo T. <ave...@us...> - 2005-08-15 20:29:26
|
Update of /cvsroot/gemrb/gemrb/gemrb/GUIScripts/bg2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31383/GUIScripts/bg2 Modified Files: TextScreen.py Log Message: implemented textscreen scrolling (it is still very ugly, no screen refresh, no sound) Index: TextScreen.py =================================================================== RCS file: /cvsroot/gemrb/gemrb/gemrb/GUIScripts/bg2/TextScreen.py,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** TextScreen.py 12 Aug 2005 19:14:35 -0000 1.5 --- TextScreen.py 15 Aug 2005 20:29:15 -0000 1.6 *************** *** 28,31 **** --- 28,32 ---- TextScreen = None TextArea = None + Position = 1 def StartTextScreen (): *************** *** 47,50 **** --- 48,52 ---- TextArea = GemRB.GetControl (TextScreen, 2) GemRB.SetTextAreaFlags (TextScreen, TextArea, IE_GUI_TEXTAREA_SMOOTHSCROLL) + GemRB.SetEvent (TextScreen, TextArea, IE_GUI_TEXTAREA_OUT_OF_TEXT, "FeedScroll") #done *************** *** 60,69 **** GemRB.HideGUI () GemRB.SetVisible (0, 0) #removing the gamecontrol screen GemRB.SetVisible (TextScreen, 1) def ReplayTextScreen (): ! global TextScreen, TextArea - #GemRB.Rewind(TextScreen, TextArea) def EndTextScreen (): --- 62,91 ---- GemRB.HideGUI () GemRB.SetVisible (0, 0) #removing the gamecontrol screen + GemRB.SetVisible (TextScreen, 1) + ReplayTextScreen () + + + def FeedScroll (): + global TextScreen, TextArea, Position + + if Position: + TableName = GemRB.GetGameString (STR_LOADMOS) + print TableName + Table = GemRB.LoadTable(TableName) + print Table + Value = GemRB.GetTableValue (Table, 1, 1) + print Value + GemRB.UnloadTable (Table) + GemRB.TextAreaAppend (TextScreen, TextArea, Value) + Position = 0 + def ReplayTextScreen (): ! global TextScreen, TextArea, Position ! ! Position = 1 ! GemRB.RewindTA (TextScreen, TextArea, 100) def EndTextScreen (): |