mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
fix for explore
This commit is contained in:
parent
84b1255993
commit
2557cbfc47
|
@ -4235,6 +4235,7 @@ CLASS lcl_gui DEFINITION FINAL.
|
|||
RETURNING value(rv_html) TYPE string.
|
||||
|
||||
CLASS-METHODS: install
|
||||
IMPORTING iv_url TYPE string
|
||||
RAISING lcx_exception.
|
||||
|
||||
CLASS-METHODS: add
|
||||
|
@ -4567,13 +4568,15 @@ CLASS lcl_gui IMPLEMENTATION.
|
|||
|
||||
DATA: lx_exception TYPE REF TO lcx_exception,
|
||||
ls_result TYPE st_result,
|
||||
lv_url type string,
|
||||
ls_repo TYPE st_repo.
|
||||
|
||||
|
||||
TRY.
|
||||
CASE action.
|
||||
WHEN 'install'.
|
||||
install( ).
|
||||
lv_url = getdata.
|
||||
install( lv_url ).
|
||||
WHEN 'explore'.
|
||||
go_html_viewer->show_url( 'http://larshp.github.io/abapGit/explore.html' ).
|
||||
WHEN 'abapgithome'.
|
||||
|
@ -4715,9 +4718,10 @@ CLASS lcl_gui IMPLEMENTATION.
|
|||
|
||||
|
||||
APPEND INITIAL LINE TO lt_fields ASSIGNING <ls_field>.
|
||||
<ls_field>-tabname = 'ABAPTXT255'.
|
||||
<ls_field>-tabname = 'ABAPTXT255'.
|
||||
<ls_field>-fieldname = 'LINE'.
|
||||
<ls_field>-fieldtext = 'Url'. "#EC NOTEXT
|
||||
<ls_field>-value = iv_url.
|
||||
|
||||
CALL FUNCTION 'POPUP_GET_VALUES'
|
||||
EXPORTING
|
||||
|
|
Loading…
Reference in New Issue
Block a user