userlogin.pro

在IDL的文本框中

;
; IDL Widget Interface Procedures. This Code is automatically
;     generated and should not be modified.

;
; Generated on:	05/22/2007 14:41.46
;
pro WID_BASE_00_2_event, Event

  wTarget = (widget_info(Event.id,/NAME) eq 'TREE' ?  $
      widget_info(Event.id, /tree_root) : event.id)


  wWidget =  Event.top

  case wTarget of

    Widget_Info(wWidget, FIND_BY_UNAME='WID_BASE_00_2'): begin
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_log_0'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        LogPress, Event
    end
   Widget_Info(wWidget, FIND_BY_UNAME='WID_BASE_00_2'): begin
    end
    widget_info(wWidget, FIND_BY_UNAME='WID_BUTTON_Cancel'):begin
     if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
       widget_control,event.top,/destroy
    end
    else:
  endcase

end

PRO Password_Event, event
; This event handler for the password widget. Asterisks are returned.

IF event.type EQ 0 THEN BEGIN
   IF event.ch EQ 10 THEN BEGIN
      Widget_Control, event.top, /Destroy
      RETURN
   ENDIF
ENDIF

   ; Deal with simple one-character insertion events.

IF event.type EQ 0 THEN BEGIN

      ; Get the current text in the widget and find its length.

;   ;Widget_Control, event.id, Get_Value=text
;   text = text[0]
;   length = StrLen(text)

Widget_Control, event.id, Get_Value=text
text=text[0]
length = StrLen(text)

 Widget_Control, event.id, /Use_Text_Select, Set_Value='*'

      ; Update the current insertion point in the text widget.

   Widget_Control, event.id, Set_Text_Select=event.offset+1

      ; Store the password.

   Widget_Control, event.top, Get_UValue=ptr
   IF *ptr EQ "" THEN *ptr=String(event.ch) ELSE $
      *ptr = *ptr + String(event.ch)

ENDIF ; of insertion event

   ; Deal with deletion events.

IF event.type EQ 2 THEN BEGIN

      ; Get the current text password.

   Widget_Control, event.top, Get_UValue=ptr
   text = *ptr
   length = StrLen(text)

      ; Put it back with the deletion subtracted.

   *ptr = StrMid(text, 0, length-event.length)
   passwordLen = StrLen(*ptr)
   if(passwordLen ne 0) then begin
   	Widget_Control, event.id, Set_Value=Replicate('*', passwordLen)
   endif else begin
   	Widget_Control, event.id, Set_Value=''
   		endelse

      ; Reset the text insertion point in the text widget.

   Widget_Control, event.id, Set_Text_Select=event.offset
ENDIF

Widget_Control, event.top, Set_UValue=ptr

END ;-------------------------------------------------------------------------


pro WID_BASE_00_2, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_

  Resolve_Routine, 'UserLogin_eventcb',/COMPILE_FULL_FILE  ; Load event callback routines

  WID_BASE_00_2 = Widget_Base( GROUP_LEADER=wGroup,  $
      UNAME='WID_BASE_00_2' ,XOFFSET=5 ,YOFFSET=5 ,SCR_XSIZE=490  $
      ,SCR_YSIZE=325 ,NOTIFY_REALIZE='OnRealize_Login'  $
      ,TITLE='用户登陆' ,SPACE=3 ,XPAD=3 ,YPAD=3 ,TLB_FRAME_ATTR=1)

; TLB_FRAME_ATTR=1
  PostCreation_Login, WID_BASE_00_2, _EXTRA=_VWBExtra_


  WID_TEXT0_2 = Widget_Text(WID_BASE_00_2, UNAME='WID_TEXT0_2'  $
      ,FRAME=1 ,XOFFSET=330 ,YOFFSET=145 ,SCR_XSIZE=130 ,SCR_YSIZE=20  $
      ,TAB_MODE=0 ,/EDITABLE ,XSIZE=20 ,YSIZE=1)




  WID_TEXT1_2 = Widget_Text(WID_BASE_00_2, UNAME='WID_TEXT1_2'  $
      ,FRAME=1 ,XOFFSET=330 ,YOFFSET=180 ,SCR_XSIZE=130 ,SCR_YSIZE=20  $
      ,CONTEXT_EVENTS=1,/ALL_EVENTS ,EVENT_PRO='Password_Event',XSIZE=20 ,YSIZE=1) ;,TAB_MODE=1


  WID_BUTTON_log_0 = Widget_Button(WID_BASE_00_2,  $
      UNAME='WID_BUTTON_log_0' ,FRAME=1 ,XOFFSET=330,YOFFSET=220  $
      ,SCR_XSIZE=50 ,SCR_YSIZE=25 ,/ALIGN_CENTER ,VALUE='上面明码')


  WID_BUTTON_Cancel = Widget_Button(WID_BASE_00_2,  $
      UNAME='WID_BUTTON_Cancel' ,FRAME=1 ,XOFFSET=410,YOFFSET=220  $
      ,SCR_XSIZE=50 ,SCR_YSIZE=25 ,/ALIGN_CENTER ,VALUE='下面掩码')


  WID_DRAW_Welcome = Widget_Draw(WID_BASE_00_2,  $
      UNAME='WID_DRAW_Welcome' ,XOFFSET=1 ,SCR_XSIZE=485  $
      ,SCR_YSIZE=296 ,RETAIN=2, GRAPHICS_LEVEL=2)
; WID_DRAW_Welcome = Widget_Draw(WID_BASE_00_2,  $
;      UNAME='WID_DRAW_Welcome' ,XOFFSET=1 ,SCR_XSIZE=485  $
;      ,SCR_YSIZE=296 ,RETAIN=2)
  Widget_Control, /REALIZE, WID_BASE_00_2
  ptr = Ptr_New("")
  Widget_Control, WID_BASE_00_2, Set_UValue=ptr
  XManager, 'WID_BASE_00_2', WID_BASE_00_2  ;, /NO_BLOCK
	thePassword = *ptr
	Ptr_Free, ptr
;	return,thePassword
end
;
; Empty stub procedure used for autoloading.
;
pro UserLogin, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_

  WID_BASE_00_2, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
end