terminate current list

140 views
Skip to first unread message

Er...@ericwalden.net

unread,
Nov 4, 2013, 4:32:57 PM11/4/13
to e-p...@googlegroups.com
I am trying to figure out how to terminate the currently running list on a certain key press.  I can get the currently running list with c.GetAttribute("Running").  I can use the list name as a variable in the list as [Running].  What I need is code that basically does this:

if DsiplayProductInfoSlide.ACC = 1 then c.GetAttribute("Running").terminate

however, c.GetAttribute("Running") is the string name of the running list not the running list itself.

If I run if DsiplayProductInfoSlide.ACC = 1 then List1.terminates

then it works fine.  However, I have many lists and I need it to automatically terminate the current one.

Paul Groot

unread,
Nov 5, 2013, 10:19:21 AM11/5/13
to e-p...@googlegroups.com
I think I grabbed this from the E_Basic manual some time ago:

Dim theList As List
Set theList = CList(Rte.GetObject(c.GetAttrib("Running")))
If Not theList Is Nothing Then
theList.Terminate
End If

Paul


--
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To unsubscribe from this group and stop receiving emails from it, send an email to e-prime+u...@googlegroups.com.
To post to this group, send email to e-p...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/e-prime/1cee53cc-755e-4173-8f3c-dfd9bbb97637%40googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

David McFarlane

unread,
Nov 5, 2013, 10:53:38 AM11/5/13
to e-p...@googlegroups.com
Also covered at https://groups.google.com/d/topic/e-prime/D1Zdx9DVB6M
, where this gets reduced to the single line

CList( Rte.GetObject( c.GetAttrib("Running") ) ).Terminate

-- David McFarlane


At 11/5/2013 10:19 AM Tuesday, Paul Groot wrote:
>I think I grabbed this from the E_Basic manual some time ago:
>
>Dim theList As List
>Set theList = CList(Rte.GetObject(c.GetAttrib("Running")))
>If Not theList Is Nothing Then
>theList.Terminate
>End If
>
>Paul
>
>
>On 4 November 2013 22:32,
><mailto:Er...@ericwalden.net>Er...@ericwalden.net
Reply all
Reply to author
Forward
0 new messages