deletePoint

deletePoint() 
=> t / nil 

Description

Deletes a point from the enterfunction in the current window.

Argument

None

Values Returned

t	The point was successfully deleted from the pending enterfunction.
nil	The current window is not in an enterfunction.

Examples

Displays the prompt Enter the second point in the CIW prompt line.

procedure( segDone( w done pts )
   if( done then
      printf("Segment entered was %L.\n" pts)
   else
      println("Segment entry aborted.")
   )
)

procedure( myEnterSegment( )
   enterSegment( ?prompts
      list( "Enter the first point."
      "Enter the second point." )
      ?doneProc "segDone"
   )
)

Sets the infix mode on and bind the s key to the procedure myEnterSegment. Type the s key in a Schematics window at location p0. Because of infix mode, p0 is taken as the first point for the enterSegment call. The rubberbanding line immediately appears between p1 and the cursor location.

window(1)->infixOn = t
hiSetBindKey("Schematics" "<Key>s" "myEnterSegment( )")

The first prompt is skipped since the first point is already entered. Type:

deletePoint( )

The rubberbanding line goes away, and the CIW prompt changes to “Enter the first point.” Enter point p1. The rubberbanding line reappears from p1 to the cursor, and the prompt changes to Enter the second point. Enter p2. doneProc prints out the specified message:

Segment entered was ( p1 p2 ).

The enterfunction returns the point list:

( p1 p2 )

Related Topics

User Entry Functions

Return to top