; English forum: http://purebasic.myforums.net/viewtopic.php?t=9201&highlight= ; Author: Danilo (example added by Andre) ; Date: 17. January 2004 Procedure Selection_SelectAll(editorgadget) range.CHARRANGE\cpMin = 0 range\cpMax = -1 ProcedureReturn SendMessage_(GadgetID(editorgadget),#EM_EXSETSEL,0,@range) EndProcedure OpenWindow(0,0,0,300,230,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget - Select all") CreateGadgetList(WindowID()) EditorGadget(0,5,5,290,190) For a=0 To 5 AddGadgetItem(0,a,"Line "+Str(a)) Next ButtonGadget(1,5,200,100,20,"Select all") Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow: End Case #PB_Event_Gadget Select EventGadgetID() Case 1: Selection_SelectAll(0) EndSelect EndSelect ForEver ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; DisableDebugger ; EOF